Nothing
source("incl/start.R")
if (requireNamespace("pbmcapply", quietly = TRUE)) {
handlers("pbmcapply")
for (x in list(integer(0), 1:10, 1L)) {
message("length(x): ", length(x))
with_progress({ y <- slow_sum(x) })
print(y)
}
}
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.