Fix invalid multibyte string

easystats · Aug 29, 2023 · e23fce0 · e23fce0
1 parent 7c86d71
commit e23fce0
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)) && max(c(0, nchar(as.character(i))), na.rm = TRUE) == 0
+      (is.character(i) || is.factor(i)) && !any(nzchar(as.character(i)))
     }, FUN.VALUE = logical(1L))
 
     which(all_na | all_empty)