shorten execution time for step_discretize_xgb()

Author: EmilHvitfeldt

R/discretize_xgb.R

@@ -86,13 +86,13 @@
 #' credit_data_te <- testing(split)
 #'
 #' xgb_rec <-
-#'   recipe(Status ~ ., data = credit_data_tr) %>%
-#'   step_impute_median(all_numeric()) %>%
-#'   step_discretize_xgb(all_numeric(), outcome = "Status")
+#'   recipe(Status ~ Income + Assets, data = credit_data_tr) %>%
+#'   step_impute_median(Income, Assets) %>%
+#'   step_discretize_xgb(Income, Assets, outcome = "Status")
 #'
 #' xgb_rec <- prep(xgb_rec, training = credit_data_tr)
 #'
-#' bake(xgb_rec, credit_data_te, Price)
+#' bake(xgb_rec, credit_data_te, Assets)
 #' @seealso [embed::step_discretize_cart()], [recipes::recipe()],
 #' [recipes::prep()], [recipes::bake()]
 #' @export