Add hook to set futures::plan in single-cell docker jobs

Author: bbimber

singlecell/resources/chunks/Functions.R

@@ -91,4 +91,9 @@ addIntermediateFile <- function(f) { intermediateFiles <<- c(intermediateFiles,
 print('Updating future.globals.maxSize')
 options(future.globals.maxSize = Inf)
 
-options('Seurat.memsafe' = TRUE)
+options('Seurat.memsafe' = TRUE)
+
+if (!is.null(Sys.getenv('SEURAT_MAX_THREADS'))) {
+    print(paste0('Setting future::plan workers to: ', Sys.getenv('SEURAT_MAX_THREADS')))
+    future::plan(strategy='multiprocess', workers=Sys.getenv('SEURAT_MAX_THREADS'))
+}