Fix compact_list() for labelled + other vctrs classes

Closes easystats/performance#727
easystats · Jun 1, 2024 · 85eb328 · 85eb328
1 parent 24c23c4
commit 85eb328
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/utils_compact.R b/R/utils_compact.R
@@ -10,9 +10,9 @@
 #' @export
 compact_list <- function(x, remove_na = FALSE) {
   if (remove_na) {
-    x[!sapply(x, function(i) !is_model(i) && !inherits(i, c("Formula", "gFormula")) && (length(i) == 0L || is.null(i) || (length(i) == 1L && is.na(i)) || all(is.na(i)) || any(i == "NULL", na.rm = TRUE)))]
+    x[!sapply(x, function(i) !is_model(i) && !inherits(i, c("Formula", "gFormula")) && (length(i) == 0L || is.null(i) || (length(i) == 1L && is.na(i)) || all(is.na(i)) || any(sapply(i, identical, y = "NULL"), na.rm = TRUE)))]
   } else {
-    x[!sapply(x, function(i) !is_model(i) && !inherits(i, c("Formula", "gFormula")) && (length(i) == 0L || is.null(i) || any(i == "NULL", na.rm = TRUE)))]
+    x[!sapply(x, function(i) !is_model(i) && !inherits(i, c("Formula", "gFormula")) && (length(i) == 0L || is.null(i) || any(sapply(i, identical, y = "NULL"), na.rm = TRUE)))]
   }
 }