makePNG <- function(plt, filename, ht=6, wt=6, ppi=300){
png(filename, width=wt*ppi, height=ht*ppi, res=ppi)
print(plt)
dev.off()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.