inst/VRAP/parcores.R

lcores <- parallel::detectCores()

if (is.na(lcores) || lcores == 1) {
  parcores <- function() { 1 }
} else {
  parcores <- function() {lcores %/% 2}
}
eeholmes/VRAPCpp documentation built on Feb. 6, 2024, 7:25 a.m.