From 5de8f2a23c6173631f348c03cc2d73d4a403bb4a Mon Sep 17 00:00:00 2001 From: MilanFischer Date: Sat, 13 Apr 2024 00:57:34 +0200 Subject: [PATCH] Update calibrateMuso.R --- RBBGCMuso/R/calibrateMuso.R | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/RBBGCMuso/R/calibrateMuso.R b/RBBGCMuso/R/calibrateMuso.R index 3489e7b..e02dd54 100644 --- a/RBBGCMuso/R/calibrateMuso.R +++ b/RBBGCMuso/R/calibrateMuso.R @@ -17,9 +17,7 @@ calibrateMuso <- function(measuredData, parameters =read.csv("parameters.csv", s maxLikelihoodEpc=TRUE, pbUpdate = setTxtProgressBar, outputLoc="./", method="GLUE",lg = FALSE, w=NULL, ...){ - # Explicitly specify the environment in the multisession call - plan <- future::multisession(workers = numCores, envir = environment()) - future::plan(plan) + future::plan(future::multisession, workers = numCores) 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)