Fix #435

gesistsa · Jul 11, 2024 · 7038b64 · 7038b64
1 parent 4071bec
commit 7038b64
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -103,6 +103,9 @@ escape_xml <- function(x, replacement = c("&amp;", "&quot;", "&lt;", "&gt;", "&a
     if (isFALSE(length(file) == 1) && single_only) {
         stop("Invalid `file` argument: `file` must be single", call. = FALSE)
     }
+    if (any(is.na(file))) {
+        stop("Invalid `file` argument: `file` must not be NA", call. = FALSE)
+    }
     invisible(NULL)
 }
 

diff --git a/tests/testthat/test_check_file.R b/tests/testthat/test_check_file.R
@@ -8,6 +8,10 @@ test_that(".check_file", {
     expect_error(.check_file(data))
     expect_error(.check_file(iris))
     expect_error(.check_file(c("a.csv", "b.csv")))
+    expect_error(.check_file(NA))
+    expect_error(.check_file(NA_character_))
+    expect_error(.check_file(c(NA, "a.csv")))
+    expect_error(.check_file(c(NA_character_, "a.csv")))
     expect_error(.check_file("a.csv"), NA)
     expect_error(.check_file(), NA)
     ## single_only FALSE