eaf (version 2.3)

pdf_crop: Remove whitespace margins from a PDF file

Description

Remove whitespace margins using https://ctan.org/pkg/pdfcrop

Usage

pdf_crop(filename, mustWork = FALSE, pdfcrop = Sys.which("pdfcrop"))

Value

Nothing

Arguments

filename

Filename of a PDF file to crop. The file will be overwritten.

mustWork

If TRUE, then give an error if the file cannot be cropped.

pdfcrop

Path to the pdfcrop utility.

Examples

if (FALSE) {
extdata_path <- system.file(package = "eaf", "extdata")
A1 <- read_datasets(file.path(extdata_path, "wrots_l100w10_dat"))
A2 <- read_datasets(file.path(extdata_path, "wrots_l10w100_dat"))
pdf(file = "eaf.pdf", onefile = TRUE, width = 5, height = 4)
eafplot(list(A1 = A1, A2 = A2), percentiles = 50, sci.notation=TRUE)
dev.off()
pdf_crop("eaf.pdf")
}