Nothing
source("incl/start.R")
message("with_progress() - progressr.debug = TRUE ...")
options(progressr.debug = TRUE)
with_progress({
y <- slow_sum(1:10)
})
with_progress({
progress <- progressor(steps = 1 + 2 + 1)
relay_progress <- progress_aggregator(progress)
p <- progress()
progressr::progress(p) ## duplicated - will be ignored
relay_progress(slow_sum(1:2))
progress(type = "finish")
progress() ## one too many - will be ignored
})
message("with_progress() - progressr.debug = TRUE ... done")
source("incl/end.R")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.