fix

easystats · Oct 5, 2023 · 8bfbeb7 · 8bfbeb7
1 parent 159098f
commit 8bfbeb7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utils_format.R b/R/utils_format.R
@@ -1154,7 +1154,7 @@
   col_len <- vapply(final_table, function(i) length(colnames(i)), numeric(1))
 
   # remove non matching columns
-  if (!all(col_len) == max(col_len)) {
+  if (!all(col_len == max(col_len))) {
     all_columns <- unique(unlist(lapply(final_table, colnames)))
     for (i in seq_along(final_table)) {
       missing_columns <- setdiff(all_columns, colnames(final_table[[i]]))