Nothing
`saveChart` <-
function(.type='pdf', ..., dev=dev.cur()) {
dev <- as.numeric(dev)
gchob <- get.chob()[[dev]]
dim.inches <- par('din')
resolution <- 1
if(.type %in% c('png', 'jpeg')) resolution <- 72
width <- dim.inches[1] * resolution
height <- dim.inches[2] * resolution
export.pars <- c(list(...), list(file=paste(gchob@name,.type,sep='.'),width=width,height=height))[unique(names(c(list(file=1,width=width, height=height),
list(...))))]
do.call(.type, export.pars) # set up new device
chartSeries.chob(gchob)
invisible(dev.off()) # turn off device
release.chob(length(get.chob())) # remove from internal chob list
message(paste("chart saved to",export.pars$file))
}
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.