# NOT RUN {
library(recipes)
library(modeldata)
data(tate_text)
tate_rec <- recipe(~medium, data = tate_text) %>%
step_tokenize(medium) %>%
step_tokenfilter(medium) %>%
step_sequence_onehot(medium)
tate_obj <- tate_rec %>%
prep()
bake(tate_obj, new_data = NULL)
tidy(tate_rec, number = 3)
tidy(tate_obj, number = 3)
# }
Run the code above in your browser using DataLab