inst/appdir/DMVRAP/parcores.R

lcores <- parallel::detectCores()

if (is.na(lcores) || lcores == 1) {
  parcores <- function() { 1 }
} else {
  parcores <- function() {lcores %/% 2}
}
nwfsc-math-bio/DMVRAPapp documentation built on Feb. 3, 2022, 12:33 a.m.