# HG changeset patch
# User siwaa
# Date 1687800319 0
# Node ID f262814e48a372032cf415ae7c592d7d92289bc5
# Parent  ea8e91473dc8b8122df14554fed0788bafbeb4c2
"planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/acafb1f877e923efa13655229681753dfa1928c0/tools/REDELACSticsSimulator commit acafb1f877e923efa13655229681753dfa1928c0-dirty"

diff -r ea8e91473dc8 -r f262814e48a3 redelacSticsSimulator.R
--- a/redelacSticsSimulator.R	Fri Jun 23 10:17:27 2023 +0000
+++ b/redelacSticsSimulator.R	Mon Jun 26 17:25:19 2023 +0000
@@ -40,14 +40,16 @@
 successive_usms_file <- ("successionPlan.csv")
 successive_usms_tab <- read.csv(file = file.path(workspace, successive_usms_file), sep =";")
 
-no_cores <- detectCores() - 1  
+#no_cores <- detectCores() - 1  
 #no_cores <- 10  
-cl <- makeCluster(no_cores)  
-registerDoParallel(cl)
+#cl <- makeCluster(no_cores)  
+#registerDoParallel(cl)
 
-result <- foreach(i=1:nrow(successive_usms_tab),
-                  .packages = c("SticsRFiles", "SticsOnR") ) %dopar% {
+result <- list()
 
+#result <- foreach(i=1:nrow(successive_usms_tab),
+#                  .packages = c("SticsRFiles", "SticsOnR") ) %dopar% {
+ for(i in 1:nrow(successive_usms_tab)) {
 
   print(paste("coucou ", i))
   nusms <- as.numeric(successive_usms_tab[i,2])
@@ -64,10 +66,10 @@
                                        successive = list_successive_usms)
   list_usms <- vec
   
-  stics_wrapper(model_options = sim_options, situation = list_usms)
+  result = append(result, stics_wrapper(model_options = sim_options, situation = list_usms))
                   }
 
-stopCluster(cl)  
+#stopCluster(cl)  
 
 for (i in 1:nrow(successive_usms_tab)) { #i=1
   if (i == 1) {