doff <-
function (which = dev.cur())
{
if (which == 1)
stop("cannot shut down device 1 (the null device)")
.External(C_devoff, as.integer(which))
dev.cur()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.