This function checks that the PDF file does not exist to avoid overwriting a plot the user has previously made.
check_pdf(PDF = "four_panels.pdf", OUTDIR = tempdir())
The name of the PDF file. Defaults to
four_panels.pdf
.
The default directory where PDF
will be saved to.
The path to the PDF file if the file doesn't exist. It appends
the pdf file extension if it was absent from PDF
.
This is an utility function used by four_panels and plot_coverage.
## Choose a random PDF file
PDF <- paste0("test_", stats::runif(1, max = 1e10))
## Initially this works because the output PDF does not exist.
PDF <- check_pdf(PDF)
## It also adds the PDF extension if the user didn't supply it.
PDF
#> [1] "/tmp/Rtmp3fU3Pu/test_9432762232.60909.pdf"
## Create a dummy PDF file
pdf(file = PDF)
plot(1, 1)
dev.off()
#> agg_png
#> 2
## Now it doesn't work since the PDF file already exists.
testthat::expect_error(
check_pdf(basename(PDF)),
"already exists! Rename or erase it"
)