Nothing
# options(demo.ask=FALSE)
# is_windows <- Sys.info()['sysname'] == "Windows"
#
# for(demo in demo(package="loon")$results[,"Item"]) {
# if (!(demo %in% c("loon", "lsystem"))) {
# # on windows all the image resizing seem to use up too much memory
# # when all the demos are run sequentially
# if (!(is_windows && grepl("^l_ng_", demo))) {
# demo(demo, package="loon", character.only=TRUE)
# }
# }
# }
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.