BUG FIX: Only the last of multiple progression handlers registered was used [#73]

Author: HenrikBengtsson

NEWS

@@ -1,9 +1,11 @@
 Package: progressr
 ==================
 
-Version: 0.4.0-9000 [2020-01-23]
+Version: 0.4.0-9000 [2020-04-06]
 
- * ...
+BUG FIXES:
+
+ * Only the last of multiple progression handlers registered was used.
 
 
 Version: 0.4.0 [2020-01-22]

R/with_progress.R

@@ -139,7 +139,7 @@ with_progress <- function(expr, handlers = progressr::handlers(), cleanup = TRUE
       withRestarts({
         signalCondition(control_progression("reset"))
       }, muffleProgression = function(p) NULL)
-  }, progression = handler)
+  }, progression = calling_handler)
 
   ## Evaluate expression
   capture_conditions <- TRUE
@@ -149,7 +149,7 @@ with_progress <- function(expr, handlers = progressr::handlers(), cleanup = TRUE
       ## Don't capture conditions that are produced by progression handlers
       capture_conditions <<- FALSE
       on.exit(capture_conditions <<- TRUE)
-      handler(p)
+      calling_handler(p)
     },
     condition = function(c) {
       if (!capture_conditions || inherits(c, c("progression", "error"))) return()