# 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_pos_filter(text, keep_tags = "NOUN") %>%
step_tf(text)
okc_obj <- prep(okc_rec)
juice(okc_obj)
# }
Run the code above in your browser using DataLab