Handle column extra args correctly when cbinding. Fixes #324.

insightsengineering · May 25, 2022 · cd3206d · cd3206d
1 parent de3e711
commit cd3206d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/tt_compatibility.R b/R/tt_compatibility.R
@@ -465,7 +465,7 @@ combine_cinfo = function(..., new_total = NULL) {
     if(is.null(new_total))
         new_total <- sum(newcounts)
     newexprs <- unlist(lapply(cinfs, col_exprs), recursive = FALSE)
-    newexargs <- unlist(lapply(cinfs, col_extra_args)) %||% vector("list", length(newcounts))
+    newexargs <- unlist(lapply(cinfs, col_extra_args), recursive = FALSE) %||% vector("list", length(newcounts))
     newdisp <- any(vapply(cinfs, disp_ccounts, NA))
     alltls <- lapply(cinfs, top_left)
     newtl <- character()