Nothing
provideDevice <- function(file=blackbox.getOption("basicRplotsfile"),bbdefaultPars,...) {
if (is.null(file)) {
## typically the case in interactive session unless the user (or previous code) defined a basicRplotsfile in such a session
dev <- getOption("device")
if ( ! (inherits(dev,"character") && dev == "RStudioGD") ) dev.new(...)
if (bbdefaultPars) par(blackbox.getOption("ParArgs"))
} else {
newFile <- providePlotFile(file) ## will check if file is not already opened and, if not,
## providePlotFile will eval(call(blackbox.getOption("graphicsFormat"), file,...))
if (newFile && bbdefaultPars) par(blackbox.getOption("ParArgs"))
}
}
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.