# NOT RUN {
if (requireNamespace("stringi", quietly = TRUE)) {
library(recipes)
sample_data <- tibble(text = c("sch\U00f6n", "scho\U0308n"))
okc_rec <- recipe(~ ., data = sample_data) %>%
step_text_normalization(text)
okc_obj <- okc_rec %>%
prep()
juice(okc_obj, text) %>%
slice(1:2)
juice(okc_obj) %>%
slice(2) %>%
pull(text)
tidy(okc_rec, number = 1)
tidy(okc_obj, number = 1)
}
# }
Run the code above in your browser using DataLab