Running examples in ‘embed-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: step_discretize_xgb
> ### Title: Discretize numeric variables with XgBoost
> ### Aliases: step_discretize_xgb
> 
> ### ** Examples
> 
> library(modeldata)
> data(credit_data)
> library(rsample)
> library(recipes)
> 
> split <- initial_split(credit_data, strata = "Status")
> 
> credit_data_tr <- training(split)
> 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")
> 
> if (rlang::is_installed("xgboost")) {
+   xgb_rec <- prep(xgb_rec, training = credit_data_tr)
+ 
+   bake(xgb_rec, credit_data_te, Price)
+ }
Error in `step_impute_median()`:
Caused by error in `vectbl_assign()`:
! DLL requires the use of native symbols
Backtrace:
     ▆
  1. ├─recipes::prep(xgb_rec, training = credit_data_tr)
  2. ├─recipes:::prep.recipe(xgb_rec, training = credit_data_tr)
  3. │ ├─recipes:::recipes_error_context(...)
  4. │ │ ├─base::withCallingHandlers(...)
  5. │ │ └─base::force(expr)
  6. │ ├─recipes::bake(x$steps[[i]], new_data = training)
  7. │ └─recipes:::bake.step_impute_median(x$steps[[i]], new_data = training)
  8. │   ├─base::`[<-`(`*tmp*`, is.na(new_data[[i]]), i, value = `<int>`)
  9. │   └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(new_data[[i]]), i, value = `<int>`)
 10. │     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
 11. │       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
 12. │         ├─base::withCallingHandlers(...)
 13. │         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
 14. └─base::.handleSimpleError(...)
 15.   └─recipes (local) h(simpleError(msg, call))
 16.     └─recipes:::stop_recipes_step(call = call(step_name), parent = cnd)
 17.       └─recipes:::stop_recipes(...)
 18.         └─rlang::abort(...)
Execution halted