inst/VRAP/parcores.R

lcores <- parallel::detectCores()

if (is.na(lcores) || lcores == 1) {
  parcores <- function() { 1 }
} else {
  parcores <- function() {lcores %/% 2}
}
eeholmes/VRAP documentation built on May 28, 2019, 8:24 a.m.