Shorten error message

Author: hadley

R/modifiers.R

@@ -218,9 +218,7 @@ type.stringr_fixed <- function(x, error_call = caller_env()) {
 type.character <- function(x, error_call = caller_env()) {
   if (any(is.na(x))) {
     cli::cli_abort(
-      tr_(
-        "{.arg pattern} must be a character vector that does not contain NAs."
-      ),
+      tr_("{.arg pattern} can not contain NAs."),
       call = error_call
     )
   }

tests/testthat/_snaps/modifiers.md

@@ -35,5 +35,5 @@
       type(c("a", "b", NA_character_, "c"))
     Condition
       Error:
-      ! `pattern` must be a character vector that does not contain NAs.
+      ! `pattern` can not contain NAs.