Nothing
cellplot <- function(x,y, vp=NULL, e){
name <- paste("(", deparse(substitute(x)),",",deparse(substitute(y)), ")", sep="")
pushViewport(viewport( name=name, layout.pos.row=x, layout.pos.col=y))
n <- 1
if (!is.null(vp)){
pushViewport(vp)
n <- n + 1
}
e
popViewport(n=n)
}
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.