Nothing
f <- list.files(pattern = "*.pdf")
# these have transparency, need to use Illustrator to flatten:
f <- f[-which(f == "spatial-mv.pdf")]
f <- f[-which(f == "cons-plans-n.pdf")]
for(i in 1:length(f)) {
system(paste0("pdftops -eps ", f[i]))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.