Assert all strings contain a regex pattern — assert_all_strings

Assert all elements of a character vector match a regex pattern.

Usage

assert_all_strings_contain(
  x,
  pattern,
  ignore.case = FALSE,
  perl = FALSE,
  fixed = FALSE,
  useBytes = FALSE,
  msg = NULL,
  call = rlang::caller_env(),
  arg_name = NULL
)

Arguments

x: An object to check
pattern: A regular expression pattern (string)
ignore.case, perl, fixed, useBytes: Logical flags passed to grepl()
msg: A character string containing the error message to display if x does not match pattern
call: Only relevant when pooling assertions into multi-assertion helper functions. See cli_abort for details.
arg_name: Advanced use only. Name of the argument passed (default: NULL, will automatically extract arg_name).

Value

invisible(TRUE) if x matches pattern, otherwise aborts with the error message specified by msg

Examples

try({
assert_all_strings_contain(c("abc", "a1"), "^a") # Passes
assert_all_strings_contain(c("abc", "b1"), "^a") # Throws default error
assert_all_strings_contain(c("abc", "b1"), "^a", msg = "Custom error message") # Throws custom error
})
#> Error in eval(expr, envir) : 
#>   'c("abc", "b1")' must all match regex `^a`. 1/2 elements did not match
#> pattern