console.focus <- dev.con <- function() {
Temp <- tempfile('Dummy', fileext = '.png')
png(Temp)
dev.off()
file.remove(Temp)
invisible()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.