if (FALSE) { # all(c("modeldata", "text2vec", "data.table") %in% rownames(installed.packages()))
library(data.table)
data.table::setDTthreads(2)
Sys.setenv("OMP_NUM_THREADS" = 1)
Sys.setenv("OMP_THREAD_LIMIT" = 1)
Sys.setenv("rsparse_omp_threads" = 1L)
options(rsparse_omp_threads = 1L)
library(text2vec)
Sys.setenv("OMP_NUM_THREADS" = 1)
Sys.setenv("OMP_THREAD_LIMIT" = 1)
Sys.setenv("rsparse_omp_threads" = 1L)
options(rsparse_omp_threads = 1L)
options("text2vec.mc.cores" = 1)
library(recipes)
library(modeldata)
data(grants)
grants_rec <- recipe(~sponsor_code, data = grants_other) %>%
step_dummy_hash(sponsor_code)
grants_obj <- grants_rec %>%
prep()
bake(grants_obj, grants_test)
tidy(grants_rec, number = 1)
tidy(grants_obj, number = 1)
}
Run the code above in your browser using DataLab