more specific imports for #141

Author: topepo

NAMESPACE

@@ -129,7 +129,6 @@ export(translate)
 export(varying)
 export(varying_args)
 export(xgb_train)
-import(rlang)
 importFrom(dplyr,arrange)
 importFrom(dplyr,as_tibble)
 importFrom(dplyr,bind_cols)
@@ -163,7 +162,25 @@ importFrom(purrr,map_dbl)
 importFrom(purrr,map_df)
 importFrom(purrr,map_dfr)
 importFrom(purrr,map_lgl)
+importFrom(rlang,abort)
+importFrom(rlang,call2)
+importFrom(rlang,caller_env)
+importFrom(rlang,current_env)
+importFrom(rlang,enquo)
+importFrom(rlang,enquos)
 importFrom(rlang,eval_tidy)
+importFrom(rlang,expr)
+importFrom(rlang,get_expr)
+importFrom(rlang,is_empty)
+importFrom(rlang,is_missing)
+importFrom(rlang,is_null)
+importFrom(rlang,is_quosure)
+importFrom(rlang,is_symbolic)
+importFrom(rlang,lgl)
+importFrom(rlang,ll)
+importFrom(rlang,missing_arg)
+importFrom(rlang,quo_get_expr)
+importFrom(rlang,quos)
 importFrom(rlang,sym)
 importFrom(rlang,syms)
 importFrom(stats,.checkMFClasses)

R/arguments.R

@@ -1,5 +1,5 @@
-#' @import rlang
-
+#' @importFrom rlang expr enquos enquo quos is_quosure call2 quo_get_expr ll
+#' @importFrom rlang abort current_env get_expr is_missing is_null is_symbolic  missing_arg
 null_value <- function(x) {
   res <- if(is_quosure(x))
     isTRUE(all.equal(x[[-1]], quote(NULL))) else

R/descriptors.R

@@ -399,6 +399,7 @@ poke_descrs <- function(descrs) {
 # frame = evaluation frame of when the on.exit() call is made
 # we generally set it to whatever fn calls scoped_descrs()
 # which should be inside of fit()
+#' @importFrom rlang caller_env
 scoped_descrs <- function(descrs, frame = caller_env()) {
   old <- poke_descrs(descrs)
 

R/misc.R

@@ -5,6 +5,7 @@
 #' @param prefix A character string for a class.
 #' @return A character vector.
 #' @keywords internal
+#' @importFrom rlang is_empty
 #' @export
 make_classes <- function(prefix) {
   c(prefix, "model_spec")
@@ -50,6 +51,7 @@ print_arg_list <- function(x, ...) {
 #' @param x A model object.
 #' @param ... Not currently used.
 #' @keywords internal
+#' @importFrom rlang lgl
 #' @export
 model_printer <- function(x, ...) {
   non_null_args <- x$args[!vapply(x$args, null_value, lgl(1))]

R/translate.R

@@ -46,6 +46,7 @@ translate <- function (x, ...)
 
 #' @importFrom utils getFromNamespace
 #' @importFrom purrr list_modify
+#' @importFrom rlang lgl
 #' @export
 translate.default <- function(x, engine = x$engine, ...) {
   check_empty_ellipse(...)