fix

easystats · Aug 29, 2023 · d92791e · d92791e
1 parent d4e4678
commit d92791e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/remove_empty.R b/R/remove_empty.R
@@ -63,7 +63,7 @@ empty_columns <- function(x) {
   } else {
     all_na <- colSums(is.na(x)) == nrow(x)
     all_empty <- vapply(x, function(i) {
-      (is.character(i) || is.factor(i)) && !any(nzchar(as.character(i)))
+      (is.character(i) || is.factor(i)) && !any(nzchar(as.character(i[!is.na(i)])))
     }, FUN.VALUE = logical(1L))
 
     which(all_na | all_empty)