diff --git a/R/utils_format.R b/R/utils_format.R
index b32169bcd..158df12d5 100644
--- 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]]))