R/utilities_parallel.R

In varPro: Model-Independent Variable Selection via the Rule-Based Variable Priority

myDoRegister <- function(cores, parallel) {
  if (parallel && requireNamespace("doMC", quietly = TRUE)) {
    doMC::registerDoMC(cores = cores)
    TRUE
  } else {
    FALSE
  }
}
myUnRegister <- function(parallel) {
  if (parallel && requireNamespace("foreach", quietly = TRUE)) {
    foreach::registerDoSEQ()
  } 
  NULL
}