Now slow_sum() output indicates stdout, message, or progress

Author: HenrikBengtsson

R/slow_sum.R

@@ -20,11 +20,11 @@ slow_sum <- function(x, delay = getOption("delay", 0.05), stdout = FALSE, messag
 
   res <- 0
   for (kk in seq_along(x)) {
-    if (stdout) cat(sprintf("Adding element #%d\n", kk))
+    if (stdout) cat(sprintf("O: Element #%d\n", kk))
     Sys.sleep(delay)
     res <- res + x[kk]
-    progress(message = sprintf("Adding %g", kk))
-    if (message) message(sprintf("Added value %g", x[kk]))
+    progress(message = sprintf("P: Adding %g", kk))
+    if (message) message(sprintf("M: Added value %g", x[kk]))
   }
 
   res