isTruthy() should check for NULL before is.atomic()

rstudio · Oct 2, 2023 · 8fefdd0 · 8fefdd0
1 parent 314f7ad
commit 8fefdd0
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -1243,11 +1243,12 @@ isTruthy <- function(x) {
   if (inherits(x, 'try-error'))
     return(FALSE)
 
+  if (is.null(x))
+    return(FALSE)
+
   if (!is.atomic(x))
     return(TRUE)
 
-  if (is.null(x))
-    return(FALSE)
   if (length(x) == 0)
     return(FALSE)
   if (all(is.na(x)))