Nothing
# A memFormat is a list of memBlock's
is.memFormat <- function(x) {
inherits(x, "memFormat")
}
memFormat <- function(...) {
blocks <- list(...)
if (!all(sapply(blocks, is.memBlock)))
stop("Invalid format")
class(blocks) <- "memFormat"
blocks
}
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.