"boa.plot.open" <- function()
#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
{
do.call(options()$device, args = list())
created <- dev.cur()
boa.par(dev.list = intersect(c(boa.par("dev.list"), created), dev.list()))
return(created)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.