if (FALSE) { # rlang::is_installed(c("modeldata", "wordpiece"))
library(recipes)
library(modeldata)
data(tate_text)
tate_rec <- recipe(~., data = tate_text) %>%
step_tokenize_wordpiece(medium)
tate_obj <- tate_rec %>%
prep()
bake(tate_obj, new_data = NULL, medium) %>%
slice(1:2)
bake(tate_obj, new_data = NULL) %>%
slice(2) %>%
pull(medium)
tidy(tate_rec, number = 1)
tidy(tate_obj, number = 1)
}
Run the code above in your browser using DataLab