# NOT RUN {
rec <- recipe( ~ ., data = iris) %>%
step_arrange(desc(Sepal.Length), 1/Petal.Length)
prepped <- prep(rec, training = iris %>% slice(1:75), retain = TRUE)
tidy(prepped, number = 1)
library(dplyr)
dplyr_train <-
iris %>%
as_tibble() %>%
slice(1:75) %>%
dplyr::arrange(desc(Sepal.Length), 1/Petal.Length)
rec_train <- juice(prepped)
all.equal(dplyr_train, rec_train)
dplyr_test <-
iris %>%
as_tibble() %>%
slice(76:150) %>%
dplyr::arrange(desc(Sepal.Length), 1/Petal.Length)
rec_test <- bake(prepped, iris %>% slice(76:150))
all.equal(dplyr_test, rec_test)
# When you have variables/expressions, you can create a
# list of symbols with `rlang::syms()`` and splice them in
# the call with `!!!`. See https://tidyeval.tidyverse.org
sort_vars <- c("Sepal.Length", "Petal.Length")
qq_rec <-
recipe( ~ ., data = iris) %>%
# Embed the `values` object in the call using !!!
step_arrange(!!!syms(sort_vars)) %>%
prep(training = iris)
tidy(qq_rec, number = 1)
# }
Run the code above in your browser using DataLab