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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.