check_pdf {brainflowprobes} | R Documentation |
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())
PDF |
The name of the PDF file. Defaults to
|
OUTDIR |
The default directory where |
This is an utility function used by four_panels and plot_coverage.
The path to the PDF file if the file doesn't exist. It appends
the pdf file extension if it was absent from PDF
.
Leonardo Collado-Torres
## 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 ## Create a dummy PDF file pdf(file = PDF) plot(1, 1) dev.off() ## Now it doesn't work since the PDF file already exists. testthat::expect_error( check_pdf(basename(PDF)), "already exists! Rename or erase it" )