fixup

vincentarelbundock · Jan 18, 2024 · 1465a33 · 1465a33
1 parent 91bb64b
commit 1465a33
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/style_bootstrap.R b/R/style_bootstrap.R
@@ -88,6 +88,11 @@ style_bootstrap <- function(x,
   id <- sapply(unique(settings$bootstrap), function(k) get_id(stem = "tinytable_css_"))
   settings$id <- id[match(settings$bootstrap, names(id))]
 
+  css_start <- sprintf(".table td.%s, th.%s { ", id, id)
+  css_complete <- paste(c(css_start, paste0(bootstrap_css, collapse="; "), "}"), collapse = " ")
+  out <- bootstrap_setting(out, css_complete, component = "css")
+
+  # CSS style for cell
   css_done <- NULL
   for (row in seq_len(nrow(settings))) {
     # Listener applies the styling to columns