The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.

once

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 instructions

#install.packages("devtools")
devtools::install_github("gdmcdonald/once")
library(once)

Further details

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

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.