R/checkParallel.R

In YinanZheng/PGS: Penalized GEE with Grid Search

#Internal function: parallel computing check

checkParallel <- function(program.name, parallel, ncore)
{
  if (parallel == TRUE & ncore > 1)
  { 
    if(ncore > detectCores())
    {
      cat(paste0("You requested ", ncore, " cores. There are only ", detectCores()," in your machine!"),'\n')
      ncore = detectCores()
    }
    cat(paste0("Start running ",program.name," with ", ncore, " cores in parallel...   (",Sys.time(),")\n"))
    if(getDoParWorkers() != ncore) registerDoParallel(ncore)
  } else {
    cat(paste0("Start running ",program.name," with single core...   (",Sys.time(),")\n"))
    registerDoSEQ()
  }
}