--- a/redelacSticsSimulator.R	Tue Oct 17 11:21:34 2023 +0000
+++ b/redelacSticsSimulator.R	Fri Oct 27 09:15:25 2023 +0000
@@ -9,6 +9,7 @@
 library(dplyr)
 library(stringr)
 library(readr)
+library(doFuture)
 
 sessionInfo()
 
@@ -50,11 +51,9 @@
 rotation <- successRef$rotation[1]
 
 if (parallel) {
-  cl <- makeCluster(nbSlots)
-  print("Inside R, info on the cluster:")
-  print(cl)
-  registerDoParallel(cl)
-  `%dordopar%` <- `%dopar%`
+  doFuture::registerDoFuture()
+  future::plan(multisession, workers = nbSlots)
+  `%dordopar%` <- `%dofuture%`
 } else {
   `%dordopar%` <- `%do%`
 }
@@ -75,10 +74,9 @@
 result <- foreach(j = 1:length(casesUpcSol)) %:%
   foreach(
     i = 1:nrow(successive_usms_tab_split[[j]]),
-    .packages = c("foreach", "SticsRFiles", "SticsOnR")
+    .options.future = list(packages =c("foreach", "SticsRFiles", "SticsOnR"))
+
   ) %dordopar% {
-    if (parallel)
-      sink("./logPaRedelac.txt", append = TRUE)
 
     nusms <- as.numeric(successive_usms_tab_split[[j]][i, 2])
 
@@ -97,18 +95,12 @@
 
     list_usms <- vec
 
-    cat(paste0("-->", successive_usms_tab_split[[j]][i, 1], "launched\n"))
+    cat(paste0("--> succession : ", successive_usms_tab_split[[j]][i, 1], " launched\n"))
 
     return(stics_wrapper(model_options = sim_options, situation = list_usms))
 
   }
 
-if (parallel) {
-  stopCluster(cl)
-  sink()
-  cat(read_file("./logPaRedelac.txt"))
-}
-
 for (j in  1:length(casesUpcSol)) {
   splited <- strsplit(casesUpcSol[j], split = "-")[[1]]