Nothing
imguR <- function(title=NULL, caption=NULL, name=NULL, ...) {
tmpfile <- tempfile()
pdf(tmpfile, ...)
which <- dev.cur()
if (!exists(".imguR.devices", envir=.GlobalEnv)) imguR.dev <- list()
else imguR.dev <- get(".imguR.devices", envir=.GlobalEnv)
imguR.dev[[which]] <- list(filename=tmpfile, title=title, caption=caption, name=name)
assign(".imguR.devices", imguR.dev, envir=.GlobalEnv)
invisible()
}
to.imguR <- function() {
dev.copy(imguR)
dev.off()
}
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.