tests/testthat/setup_cluster.R

In foreach: Provides Foreach Looping Construct

method <- Sys.getenv("FOREACH_BACKEND", "SEQ")

if(method == "PAR") {
  cl <- parallel::makeCluster(2, type="PSOCK")
  .Last <- function() {
    parallel::stopCluster(cl)
  }
  doParallel::registerDoParallel(cl)
} else if(method == 'MC') {
  doMC::registerDoMC()
} else if(method == 'SEQ') {
  registerDoSEQ()
} else {
  stop('illegal backend specified: ', method)
}