Checks extension using
vld_string(x) && vld_subset(tools::file_ext(x), ext)
The user may want to use toupper()
or tolower()
to ensure the case matches.
Usage
chk_ext(x, ext, x_name = NULL)
vld_ext(x, ext)
Arguments
- x
The object to check.
- ext
A character vector of the permitted file extensions
(without the .).
- x_name
A string of the name of object x or NULL.
Value
The chk_
function throws an informative error if the test fails or
returns the original object if successful so it can used in pipes.
The vld_
function returns a flag indicating whether the test was met.
Examples
# chk_ext
try(chk_ext("file1.pdf", "png"))
#> Error in eval(expr, envir) :
#> `"file1.pdf"` must have extension 'png' (not 'pdf').
# vld_ext
vld_ext("oeu.pdf", "pdf")
#> [1] TRUE
vld_ext(toupper("oeu.pdf"), "PDF")
#> [1] TRUE