Nothing
generic.plot <-
function(type="R", width=7, height=7, name="output", CALLFUN=NULL)
{#filename
CALLFUN=c(CALLFUN)
if(!is.character(type)) stop("The output format (type) must be a string!")
if(!is.character(name)) stop("The output name (name) must be a string!")
dev.new()
if(!is.null(CALLFUN))
{
res=lapply(CALLFUN, FUN = eval)
}
if (type!="R")
{
dev.off()
}
invisible(res)
}
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.