inst/ms/appendices/pdf2eps.R

files <- list.files(path = ".", pattern = "Fig[A-Z0-9\\-]*\\.pdf")

for(i in 1:length(files)) {
  message(files[i])
  system(paste("pdftops -eps", files[i]))
}
seananderson/metafolio documentation built on Feb. 13, 2024, 5:47 a.m.