Nothing
cellplot <- function(x, y, name=NULL, vp=NULL, clip = TRUE, e) {
pushViewport(viewport(layout.pos.row=x, layout.pos.col=y, name=name, clip=clip))
n <- 1
if (!is.null(vp)){
pushViewport(vp)
n <- n + 1
}
v <- current.viewport()
x <- e
upViewport(n=n)
gTree(children=gList(x), vp=v, name=name)
}
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.