gof <-
function ()
{
while ((which <- dev.cur()) != 1) dev.off(which)
if (exists('.SavedPlots')) rm(.SavedPlots, pos = 1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.