Merge pull request #117 from Warnes-Innovations/main

Fix 'length(x) = 4 > 1' in coercion to 'logical(1)' in `webshot`
wch · Apr 28, 2023 · bff3fb3 · bff3fb3
2 parents e5df3d0 + b5b9304
commit bff3fb3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/webshot.R b/R/webshot.R
@@ -220,7 +220,7 @@ webshot <- function(
   # them into a character vector with the desired format.
   argToVec <- function(arg) {
     vapply(arg, FUN.VALUE = character(1), function(x) {
-      if (is.null(x) || is.na(x)) NA_character_
+      if (any(is.null(x)) || any(is.na(x))) NA_character_
       else paste(x, collapse = ",")
     })
   }