removed or consolidated functions

Author: topepo

R/aaa.R

@@ -21,4 +21,7 @@ convert_stan_interval <- function(x, level = 0.95, lower = TRUE) {
 # ------------------------------------------------------------------------------
 
 #' @importFrom utils globalVariables
-utils::globalVariables(c("value", "engine", "lab", "original", "engine2"))
+utils::globalVariables(
+  c('.', '.label', '.pred', '.row', 'data', 'engine', 'engine2', 'group',
+    'lab', 'original', 'predicted_label', 'prediction', 'value')
+  )

R/aaa_spark_helpers.R

@@ -20,6 +20,3 @@ format_spark_num <- function(results, object) {
   results <- dplyr::rename(results, pred = prediction)
   results
 }
-
-#' @importFrom utils globalVariables
-utils::globalVariables(c(".", "predicted_label", "prediction"))

R/arguments.R

@@ -7,49 +7,6 @@ null_value <- function(x) {
   res
 }
 
-deharmonize <- function(args, key, engine) {
-  nms <- names(args)
-  orig_names <- key[nms, engine]
-  names(args) <- orig_names
-  args[!is.na(orig_names)]
-}
-
-parse_engine_options <- function(x) {
-  res <- ll()
-  if (length(x) >= 2) { # in case of NULL
-
-    arg_names <- names(x[[2]])
-    arg_names <- arg_names[arg_names != ""]
-
-    if (length(arg_names) > 0) {
-      # in case of list()
-      res <- ll()
-      for (i in arg_names) {
-        res[[i]] <- x[[2]][[i]]
-      } # over arg_names
-    } # length == 0
-  }
-  res
-}
-
-prune_arg_list <- function(x, whitelist = NULL, modified = character(0)) {
-  nms <- names(x)
-  if (length(whitelist) > 0)
-    nms <- nms[!(nms %in% whitelist)]
-  for (i in nms) {
-    if (
-      is.null(x[[i]])    |
-      is_null(x[[i]])    |
-      !(i %in% modified) |
-      is_missing(x[[i]])
-    )
-      x[[i]] <- NULL
-  }
-  if(any(names(x) == "..."))
-    x["..."] <- NULL
-  x
-}
-
 check_eng_args <- function(args, obj, core_args) {
   # Make sure that we are not trying to modify an argument that
   # is explicitly protected in the method metadata or arg_key

R/boost_tree.R

@@ -503,8 +503,3 @@ C50_by_tree <- function(tree, object, new_data, type, ...) {
   pred[, c(".row", "trees", nms)]
 }
 
-
-# ------------------------------------------------------------------------------
-
-#' @importFrom utils globalVariables
-utils::globalVariables(c(".row"))

R/fit_helpers.R

@@ -181,9 +181,3 @@ xy_form <- function(object, env, control, ...) {
   res
 }
 
-# ------------------------------------------------------------------------------
-##
-
-
-#' @importFrom utils globalVariables
-utils::globalVariables("data")

R/logistic_reg.R

@@ -355,8 +355,3 @@ predict_raw._lognet <- function (object, new_data, opts = list(), ...) {
   predict_raw.model_fit(object, new_data = new_data, opts = opts, ...)
 }
 
-
-# ------------------------------------------------------------------------------
-
-#' @importFrom utils globalVariables
-utils::globalVariables(c("group", ".pred"))

R/misc.R

@@ -132,14 +132,6 @@ make_call <- function(fun, ns, args, ...) {
   out
 }
 
-resolve_args <- function(args, ...) {
-  for (i in seq(along = args)) {
-    if (!is_missing_arg(args[[i]]))
-      args[[i]] <- eval_tidy(args[[i]], ...)
-  }
-  args
-}
-
 levels_from_formula <- function(f, dat) {
   if (inherits(dat, "tbl_spark"))
     res <- NULL

R/multinom_reg.R

@@ -322,7 +322,3 @@ check_glmnet_lambda <- function(dat, object) {
   dat
 }
 
-# ------------------------------------------------------------------------------
-
-#' @importFrom utils globalVariables
-utils::globalVariables(c("group", ".pred"))

R/surv_reg.R

@@ -208,8 +208,3 @@ flexsurv_quant <- function(results, object) {
   results <- map(results, setNames, c(".quantile", ".pred", ".pred_lower", ".pred_upper"))
 }
 
-# ------------------------------------------------------------------------------
-
-#' @importFrom utils globalVariables
-utils::globalVariables(".label")
-

R/translate.R

@@ -68,7 +68,7 @@ translate.default <- function(x, engine = x$engine, ...) {
   arg_key <- get_args(mod_name, engine)
 
   # deharmonize primary arguments
-  actual_args <- unionize(x$args, arg_key)
+  actual_args <- deharmonize(x$args, arg_key)
 
   # check secondary arguments to see if they are in the final
   # expression unless there are dots, warn if protected args are
@@ -155,7 +155,7 @@ get_args <- function(model, engine) {
 }
 
 # to replace harmonize
-unionize <- function(args, key) {
+deharmonize <- function(args, key) {
   if (length(args) == 0)
     return(args)
   parsn <- tibble(parsnip = names(args), order = seq_along(args))