Nothing
source("incl/start.R")
if (requireNamespace("plyr", quietly = TRUE)) {
message("* with_progress()")
with_progress({
y <- plyr::llply(3:6, function(n, ...) {
slow_sum(1:n, stdout=TRUE, message=TRUE)
}, .progress = "progressr")
})
message("* global progression handler")
handlers(global = TRUE)
local({
y <- plyr::llply(3:6, function(n, ...) {
slow_sum(1:n, stdout=TRUE, message=TRUE)
}, .progress = "progressr")
})
handlers(global = FALSE)
}
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.