From 1465a330030f05583424b2c082fbf64665beb36e Mon Sep 17 00:00:00 2001
From: Vincent Arel-Bundock <vincent.arel-bundock@umontreal.ca>
Date: Wed, 17 Jan 2024 22:42:54 -0500
Subject: [PATCH] fixup

---
 R/style_bootstrap.R | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/R/style_bootstrap.R b/R/style_bootstrap.R
index 2c14408b..cbc1940b 100644
--- 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