tweak check + use of parallel

rstudio · Sep 25, 2024 · 6b0503f · 6b0503f
1 parent 6fd4f16
commit 6b0503f
Showing 1 changed file with 9 additions and 6 deletions.
diff --git a/R/parallel.R b/R/parallel.R
@@ -5,17 +5,20 @@ renv_parallel_cores <- function() {
     return(1L)
 
   value <- config$updates.parallel()
-  case(
-    identical(value, TRUE)  ~ getOption("mc.cores", default = 2L),
-    identical(value, FALSE) ~ 1L,
-    ~ as.integer(value)
-  )
+  if (identical(value, TRUE)) {
+    parallel <- requireNamespace("parallel", quietly = TRUE)
+    getOption("mc.cores", default = if (parallel) 2L else 1L)
+  } else if (identical(value, FALSE)) {
+    1L
+  } else {
+    as.integer(value)
+  }
 
 }
 
 renv_parallel_exec <- function(data, callback) {
   cores <- renv_parallel_cores()
-  if (cores > 1)
+  if (cores > 1L)
     parallel::mclapply(data, callback, mc.cores = cores)
   else
     lapply(data, callback)