R/setup_parallel.r

In jdyeakel/paradox: Portfolio effect paradox

#' Setup parallel processing
setup_parallel <- function() {
  if(!require("foreach")) {
    stop("The foreach package is required for parallel scenario simulations.",
      call. = FALSE)
  }
  cores <- getDoParWorkers()
  if(cores == 1) {
    warning(
"You have only registered one core. Reverting to non-parallel
processing. You need to register multiple cores first. For example:
library(doParallel)
registerDoParallel(cores = 2)")
  }
  cores
}