use safe execution when calling diyabc/abcranger to manage missing bin file

Author: gdurif

R-pkg/R/71_training_set_submodule.R

@@ -888,11 +888,22 @@ train_set_simu_run_server <- function(input, output, session) {
             )
 
             logging("Running simulation")
-            local$diyabc_run_process <- diyabc_run_trainset_simu(
-                env$ap$proj_dir, 
-                as.integer(input$nrun),
-                run_prior_check = FALSE
+            local$diyabc_run_process <- execute_safely(
+                diyabc_run_trainset_simu(
+                    env$ap$proj_dir, 
+                    as.integer(input$nrun),
+                    run_prior_check = FALSE
+                ),
+                session = session
             )
+            
+            if(is.null(local$diyabc_run_process)) {
+                local$feedback <- tags$p(tags$div(
+                    icon("warning"), 
+                    "Simulations did not start.",
+                    style = "color: #F89406;"
+                ))
+            }
         }
     })
 
@@ -1189,9 +1200,20 @@ prior_check_server <- function(input, output, session) {
             )
 
             logging("Running model checking")
-            local$diyabc_run_process <- diyabc_run_trainset_simu(
-                env$ap$proj_dir, run_prior_check = TRUE
+            local$diyabc_run_process <- execute_safely(
+                diyabc_run_trainset_simu(
+                    env$ap$proj_dir, n_run = 1, run_prior_check = TRUE
+                ),
+                session = session
             )
+            
+            if(is.null(local$diyabc_run_process)) {
+                local$feedback <- tags$p(tags$div(
+                    icon("warning"), 
+                    "Scenario checking did not start.", 
+                    style = "color: #F89406;"
+                ))
+            }
         }
     })
 

R-pkg/R/81_random_forest_submodule.R

@@ -888,15 +888,27 @@ rf_control_server <- function(input, output, session) {
         )
 
         logging("Running abcranger")
-        local$abcranger_run_process <- abcranger_run(
-            env$ap$proj_dir, env$rf$mode, env$rf$n_rec, env$rf$min_node_size, 
-            env$rf$n_tree, env$rf$n_noise_columns, !env$rf$linear, 
-            env$rf$pls_max_var, env$rf$chosen_scenario, env$rf$noob, 
-            env$rf$parameter, env$rf$grouping
+        local$abcranger_run_process <- execute_safely(
+            abcranger_run(
+                env$ap$proj_dir, env$rf$mode, env$rf$n_rec, 
+                env$rf$min_node_size, env$rf$n_tree, 
+                env$rf$n_noise_columns, !env$rf$linear, 
+                env$rf$pls_max_var, env$rf$chosen_scenario, env$rf$noob, 
+                env$rf$parameter, env$rf$grouping
+            ),
+            session = session
         )
 
-        # start logging
-        local$start_logging <- local$start_logging + 1
+        if(is.null(local$diyabc_run_process)) {
+            local$feedback <- tags$p(tags$div(
+                icon("warning"), 
+                "Random Forest analysis did not start.",
+                style = "color: #F89406;"
+            ))
+        } else {
+            # start logging
+            local$start_logging <- local$start_logging + 1
+        }
     })
 
     ## monitor simulation run