--- a/redelacSticsTool.R	Tue Jul 21 14:23:47 2026 +0000
+++ b/redelacSticsTool.R	Wed Aug 19 14:35:50 2026 +0000
@@ -251,7 +251,7 @@
     )
 
     list_usms <- vec
-
+    
     cat(paste0("--> succession : ", successive_usms_tab_split[[j]][i, 1], " launched\n"))
 
     return(stics_wrapper(model_options = sim_options, situation = list_usms))
@@ -267,14 +267,18 @@
 # Output part
 #
 
+for (j in  1:length(casesUpcSol)) {
+  successive_usms_tab_split[[j]]$Treatment <- NULL
+  successive_usms_tab_split[[j]]$Number_USM <- NULL
+}
+
 beforeOutputsTime <- Sys.time()
 
-simPCPlist <- list()
+foreach(
+    j = 1:length(casesUpcSol),
+    .options.future = list(packages =c("foreach", "tidyr", "arrow"))
+    ) %dordopar% {
 
-for (j in  1:length(casesUpcSol)) {
-
-  successive_usms_tab_split[[j]]$Treatment <- NULL
-  successive_usms_tab_split[[j]]$Number_USM <- NULL
   splited <- strsplit(casesUpcSol[j], split = "-")[[1]]
 
   upc <- splited[1]
@@ -288,21 +292,13 @@
     } else {
       simPCP$sim_list <- c(simPCP$sim_list, result[[j]][[i]]$sim_list)
     }
+
   }
 
-  simPCPlist[[j]] <- simPCP	
-}
-
-rm(casesUpcSol)
-
-foreach(
-    j = 1:length(simPCPlist),
-    .options.future = list(packages =c("foreach", "tidyr", "arrow"))
-    ) %dordopar% {
-
   #agregation des sorties dans un dataframe
   sim_df <-
-    rbindlist(simPCPlist[[j]]$sim_list, use.names = TRUE, idcol = "usm")
+    rbindlist(simPCP$sim_list, use.names = TRUE, idcol = "usm")
+
 
   #ajout des colonnes explicatives + de l'horizon temporel
   sim_df <- sim_df %>%
@@ -322,6 +318,8 @@
       remove = FALSE
     )
 
+    cat(paste0("--> rotation upc sol : ", " ", rotation, " ", upc, " " , sol, " to be gathered\n"))
+
   #sauvegarde sous la forme d'un fichier rds
 
   if (baseOut) {