correct empty check (#60)

jmbarbone · May 10, 2024 · a6e2a27 · a6e2a27
1 parent 572880a
commit a6e2a27
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/list.R b/R/list.R
@@ -14,9 +14,14 @@
 #' @export
 list0 <- function(...) {
   e <- as.list(substitute(list(...)))[-1L]
-  do.call(list, e[e != substitute()], envir = parent.frame(2))
+  do.call(list, e[is_not_empty(e)], envir = parent.frame(2))
 }
 
 #' @export
 #' @rdname list0
 lst <- list0
+
+is_not_empty <- function(x) {
+  x <- x != substitute()
+  x | is.na(x)
+}