"boa.plot.close" <- function(which = dev.cur())
#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
{
shutdown <- NULL
current <- boa.par("dev.list")
idx <- is.element(current, which)
for(i in intersect(current[idx], dev.list())) {
shutdown <- dev.off(i)
}
boa.par(dev.list = current[!idx])
return(shutdown)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.