library(progressr)
message("progress_aggregator() ...")
with_progress({
progress <- progressor(steps = 4L)
relay_progress <- progress_aggregator(progress)
progress()
relay_progress(slow_sum(1:3))
relay_progress(slow_sum(1:10))
progress()
})
message("progress_aggregator() ... done")
Run the code above in your browser using DataLab