inst/compressPDF.R

library(tools)
pdf_files <- list.files(system.file("doc", package = "mypackage"), pattern = "\\.pdf$", full.names = TRUE)
for (file in pdf_files) {
  compactPDF(file, gs_quality = "ebook")
}

Try the meboot package in your browser

Any scripts or data that you put into this service are public.

meboot documentation built on Aug. 23, 2023, 1:07 a.m.