# NOT RUN {
library(recipes)
short_data <- data.frame(text = c("This is a short tale,",
"With many cats and ladies."))
okc_rec <- recipe(~ text, data = short_data) %>%
step_tokenize(text, engine = "spacyr") %>%
step_lemma(text) %>%
step_tf(text)
okc_obj <- prep(okc_rec)
juice(okc_obj)
# }
Run the code above in your browser using DataLab