pdfDev <- function(..., width=840, device=grDevices::pdf) {
figDevice(..., width=width, device=device, scale=1/100, extension="pdf");
} # pdfDev()
############################################################################
# HISTORY:
# 2009-12-03
# o Added pdfDev.
############################################################################
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.