# NOT RUN {
library(modeldata)
data(okc)
rec <- recipe(~ diet + location, data = okc)
rec <- rec %>%
step_string2factor(diet)
factor_test <- rec %>%
prep(training = okc,
strings_as_factors = FALSE) %>%
juice
# diet is a
class(factor_test$diet)
rec <- rec %>%
step_factor2string(diet)
string_test <- rec %>%
prep(training = okc,
strings_as_factors = FALSE) %>%
juice
# diet is a
class(string_test$diet)
tidy(rec, number = 1)
# }
Run the code above in your browser using DataLab