R Script to embed fonts in PDFs

embedFontsInDir.R

# Set the directory containing the PDF files
pdf_directory <- "path/to/dir/with/pdfs"

# Get a list of all PDF files in the directory
pdf_files <- list.files(path = pdf_directory, pattern = "\\.pdf$", full.names = TRUE)

# Iterate through each PDF file and embed fonts
for (pdf_file in pdf_files) {
  print(paste("Embedding fonts in:", pdf_file))

  embedFonts(pdf_file)
}