Nothing
scriptGrob <- function(script=NULL, filename=NULL, type="application/ecmascript",
inline=FALSE, name=NULL) {
body <- ""
href <- ""
if (!is.null(filename)) {
if (inline) {
body <- paste(readLines(filename), collapse="\n")
} else {
href <- filename
}
} else if (!is.null(script)) {
body <- script
} else {
stop("No script specified")
}
sg <- grob(type = type, href = href, body = body,
name = name, cl="script.grob")
sg
}
grid.script <- function(...) {
grid.draw(scriptGrob(...))
}
grobToDev.script.grob <- function(x, dev) {
svgScript(x$body, x$href, x$type, x$name, svgdev=dev@dev)
}
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.