Nothing
source("incl/start.R")
if (require("foreach", quietly = TRUE)) {
message("* with_progress()")
with_progress({
p <- progressor(4)
y <- foreach(n = 3:6) %do% {
p()
slow_sum(1:n, stdout=TRUE, message=TRUE)
}
})
message("* global progression handler")
handlers(global = TRUE)
local({
p <- progressor(4)
y <- foreach(n = 3:6) %do% {
p()
slow_sum(1:n, stdout=TRUE, message=TRUE)
}
})
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.