Make type.character error for NA_character_

NEWS.md

@@ -1,5 +1,6 @@
 # stringr (development version)
 
+* `str_*` now errors if `pattern` includes any `NA`s (@nash-delcamp-slp, #546).
 * `str_view()` now displays a message when called with a zero-length character
   vector (@LouisMPenrod, #497).
 * Adds `[[.stringr_pattern` method to go along with existing `[.stringr_pattern`

R/modifiers.R

@@ -202,6 +202,13 @@ type.stringr_fixed <- function(x, error_call = caller_env()) {
 }
 #' @export
 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."),
+      call = error_call
+    )
+  }
+
   if (identical(x, "")) "empty" else "regex"
 }
 
@@ -213,7 +220,7 @@ type.default <- function(x, error_call = caller_env()) {
   }
 
   cli::cli_abort(
-    tr_("{.arg pattern} must be a string, not {.obj_type_friendly {x}}."),
+    tr_("{.arg pattern} must be a character vector, not {.obj_type_friendly {x}}."),
     call = error_call
   )
 }

tests/testthat/_snaps/modifiers.md

@@ -22,5 +22,18 @@
       type(1:3)
     Condition
       Error:
-      ! `pattern` must be a string, not an integer vector.
+      ! `pattern` must be a character vector, not an integer vector.
+
+# useful errors for NAs
+
+    Code
+      type(NA)
+    Condition
+      Error:
+      ! `pattern` must be a character vector, not `NA`.
+    Code
+      type(c("a", "b", NA_character_, "c"))
+    Condition
+      Error:
+      ! `pattern` must be a character vector that does not contain NAs.
 

tests/testthat/_snaps/split.md

@@ -9,7 +9,7 @@
       str_split("x", 1)
     Condition
       Error in `str_split()`:
-      ! `pattern` must be a string, not a number.
+      ! `pattern` must be a character vector, not a number.
     Code
       str_split("x", "x", n = 0)
     Condition

tests/testthat/test-modifiers.R

@@ -37,6 +37,13 @@ test_that("subsetting preserves class and options", {
   expect_equal(x[], x)
 })
 
+test_that("useful errors for NAs", {
+  expect_snapshot(error = TRUE, {
+    type(NA)
+    type(c("a", "b", NA_character_, "c"))
+  })
+})
+
 test_that("stringr_pattern methods", {
   ex <- coll(c("foo", "bar"))
   expect_true(inherits(ex[1], "stringr_pattern"))