improve cbind for summary_table and qable

dewittpe · Mar 22, 2023 · be23528 · be23528
1 parent c7bd7c5
commit be23528
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/summary_table.R b/R/summary_table.R
@@ -399,7 +399,7 @@ cbind.qwraps2_qable <- function(...) {
       clnms <- c(clnms, colnames(tabs[[i]])[-1])
       tabs[[i]] <- matrix(tabs[[i]][, -1], nrow = nrow(tabs[[1]]))
     } else {
-      clnms <- c(clnms, names(tabs)[i])
+      clnms <- c(clnms, ifelse(is.null(names(tabs)[i]), "", names(tabs)[i]))
       tabs[[i]] <- matrix(tabs[[i]], nrow = nrow(tabs[[1]]))
     }
   }