Merge pull request #76 from mronkko/main

Enable progress bars in non-interactive mode for SLURM clusters

Author: philchalmers

R/analysis.R

@@ -10,6 +10,13 @@ Analysis <- function(Functions, condition, replications, fixed_objects, cl, MPI,
 {
     # This defines the work-flow for the Monte Carlo simulation given the condition (row in Design)
     #  and number of replications desired
+
+    # Configure pbapply for non-interactive mode (e.g., SLURM cluster logs)
+    if(progress && !interactive()) {
+        old_pboptions <- pbapply::pboptions(type = "txt", char = "=", style = 3)
+        on.exit(pbapply::pboptions(old_pboptions), add = TRUE)
+    }
+
     used_mainsim <- if(is.finite(max_time)) mainsim_maxtime else mainsim
     if(useFuture){
         if(!is.null(seed)) set_seed(seed[condition$ID])

R/runSimulation.R

@@ -600,7 +600,9 @@
 #'   range 1 to 2147483647 for each condition via \code{\link{genSeeds}}
 #'
 #' @param progress logical; display a progress bar (using the \code{pbapply} package)
-#'   for each simulation condition?
+#'   for each simulation condition? In interactive sessions, shows a timer-based
+#'   progress bar. In non-interactive sessions (e.g., HPC cluster jobs), displays
+#'   text-based progress updates that are visible in log files.
 #'   This is useful when simulations conditions take a long time to run (see also the
 #'   \code{notification} argument). Default is \code{TRUE}
 #'