An R package that makes it easy to execute expensive operations only once.
Using once() you can wrap an expensive operation so that output is saved to disk. If the file exists, it won't run again, it will just load the saved version.
Eg. instead of
file_path <- "saved_objects/saved_random_number.Rds"
if (file.exists(file_path)){
my_number <- readRDS(file = file_path)
} else {
my_number <-
runif(1e8) %>% # some expensive operation
mean()
# or ML model training such as
# `my_trained_models <- train_models_function(...)`
saveRDS(my_number, file = file_path)
}
it would look like
my_number <-
runif(1e8) %>% # some expensive operation
mean() %>%
once(file_path = "saved_objects/saved_random_number.Rds")
which will only execute the expensive operation the first time the code is run, and save this output to file.
install.packages("once")
library(once)
You can also force it to run again, which will cause it to overwrite the saved object on disk:
my_number <-
runif(1e8) %>% # some expensive operation
mean() %>%
once(file_path = "saved_objects/saved_random_number.Rds",
rerun = TRUE ) # rerun and overwrite the existing file