From e865097472bf18d9c843fda1daafc663b42609f0 Mon Sep 17 00:00:00 2001 From: MilanFischer Date: Sat, 13 Apr 2024 00:51:18 +0200 Subject: [PATCH] Update calibrateMuso.R Explicitly specify the environment in the multisession call --- RBBGCMuso/R/calibrateMuso.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/RBBGCMuso/R/calibrateMuso.R b/RBBGCMuso/R/calibrateMuso.R index b46b6b9..3489e7b 100644 --- a/RBBGCMuso/R/calibrateMuso.R +++ b/RBBGCMuso/R/calibrateMuso.R @@ -13,11 +13,13 @@ calibrateMuso <- function(measuredData, parameters =read.csv("parameters.csv", s modifyOriginal=TRUE, likelihood, uncertainity = NULL, naVal = NULL, postProcString = NULL, sourceFile=NULL, # bases for musoRand if dependecy group is not fully defined by parameters.csv - thread_prefix="thread", numCores, pb = txtProgressBar(min=0, max=iterations, style=3), + thread_prefix="thread", numCores = max(c(parallel::detectCores()-1,1)), pb = txtProgressBar(min=0, max=iterations, style=3), maxLikelihoodEpc=TRUE, pbUpdate = setTxtProgressBar, outputLoc="./", method="GLUE",lg = FALSE, w=NULL, ...){ - future::plan(future::multisession(workers = 124)) + # Explicitly specify the environment in the multisession call + plan <- future::multisession(workers = numCores, envir = environment()) + future::plan(plan) file.remove(list.files(path = settings$inputLoc, pattern="progress.txt", recursive = TRUE, full.names=TRUE)) file.remove(list.files(path = settings$inputLoc, pattern="preservedCalib.csv", recursive = TRUE, full.names=TRUE)) unlink(file.path(settings$inputLoc,"thread"),recursive=TRUE)