hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update calibrateMuso.R

Browse Source 
Explicitly specify the environment in the multisession call
This commit is contained in:
MilanFischer 2024-04-13 00:51:18 +02:00 committed by GitHub
parent 5ef318324c
commit e865097472
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
RBBGCMuso/R/calibrateMuso.R
View File

@ -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)