# NOT RUN {
library(rlang)
library(modeldata)
data(scat)
rec <- recipe(Species ~ ., data = scat)
info <- summary(rec)
info
quos <- quos(all_numeric_predictors(), where(is.factor))
recipes_eval_select(quos, scat, info)
# }
Run the code above in your browser using DataLab