Merge pull request #26 from MilanFischer/master

Too many processes started
2024-04-13 08:16:56 +02:00
parent abca8c1c86 5de8f2a23c
commit f515dcda51
1 changed files with 2 additions and 2 deletions
@@ -16,8 +16,8 @@ calibrateMuso <- function(measuredData, parameters =read.csv("parameters.csv", s
                     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)
+    
+    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)