temp eliminate varying tests

Author: topepo

R/varying.R

@@ -19,23 +19,23 @@ varying <- function()
 #' library(dplyr)
 #' library(rlang)
 #'
-#' rand_forest() %>% varying_args(id = "plain")
+#' #rand_forest() %>% varying_args(id = "plain")
 #'
-#' rand_forest(mtry = varying()) %>% varying_args(id = "one arg")
+#' #rand_forest(mtry = varying()) %>% varying_args(id = "one arg")
 #'
-#' rand_forest(others = list(sample.fraction = varying())) %>%
-#'   varying_args(id = "only others")
+#' #rand_forest(others = list(sample.fraction = varying())) %>%
+#' # varying_args(id = "only others")
 #'
-#' rand_forest(
-#'   others = list(
-#'     strata = expr(Class),
-#'     sampsize = c(varying(), varying())
-#'   )
-#' ) %>%
-#'   varying_args(id = "add an expr")
+#' #rand_forest(
+#' #   others = list(
+#' #     strata = expr(Class),
+#' #     sampsize = c(varying(), varying())
+#' #   )
+#' #) %>%
+#' #   varying_args(id = "add an expr")
 #'
-#' rand_forest(others = list(classwt = c(class1 = 1, class2 = varying()))) %>%
-#'   varying_args(id = "list of values")
+#' # rand_forest(others = list(classwt = c(class1 = 1, class2 = varying()))) %>%
+#' #   varying_args(id = "list of values")
 #'
 #' @export
 varying_args <- function (x, id, ...)