align group_tt in bootstrap

vincentarelbundock · Jan 20, 2024 · 5d1d337 · 5d1d337
1 parent e5b11d5
commit 5d1d337
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/group_bootstrap.R b/R/group_bootstrap.R
@@ -81,6 +81,9 @@ group_bootstrap_row <- function(x, i, j, indent = 1, ...) {
   # cannot be style_tt, because we already have a string bootstrap table at this stage
   out <- style_bootstrap(out, i = idx_old, j = 1, indent = indent)
 
+  # if there's a two-level header column multi-span, we want it centered.
+  out <- style_bootstrap(out, i = -1, align = "c")
+
   dots <- list(...)
   dots[["j"]] <- NULL
   if (length(dots) > 0) {