themes bootstrap

vincentarelbundock · Oct 15, 2024 · a58bf76 · a58bf76
1 parent ab5ccc2
commit a58bf76
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 6 deletions.
diff --git a/R/style_bootstrap.R b/R/style_bootstrap.R
@@ -42,7 +42,6 @@ style_apply_bootstrap <- function(x) {
         x@bootstrap_class <- last_style_vec(sty$bootstrap_class)
     }
 
-
     sty$alignv[which(sty$alignv == "t")] <- "top"
     sty$alignv[which(sty$alignv == "b")] <- "bottom"
     sty$alignv[which(sty$alignv == "m")] <- "middle"

diff --git a/R/tt_bootstrap.R b/R/tt_bootstrap.R
@@ -144,16 +144,18 @@ setMethod(
   # before style_eval()
   x@table_string <- out
 
-  if (is.null(x@theme[[1]]) || is.function(x@theme[[1]]) || isTRUE("default" %in% x@theme[[1]])) {
+  if (length(x@bootstrap_class) == 0) {
+    if (is.null(x@theme[[1]]) || is.function(x@theme[[1]]) || isTRUE("default" %in% x@theme[[1]])) {
       x <- theme_tt(x, "default")
+    }
   } else if ("bootstrap" %in% x@theme[[1]]) {
-      x <- style_tt(x, bootstrap_class = "table")
+    x <- style_tt(x, bootstrap_class = "table")
   } else if ("striped" %in% x@theme[[1]]) {
-      x <- style_tt(x, bootstrap_class = "table table-striped")
+    x <- style_tt(x, bootstrap_class = "table table-striped")
   } else if ("grid" %in% x@theme[[1]]) {
-      x <- style_tt(x, bootstrap_class = "table table-bordered")
+    x <- style_tt(x, bootstrap_class = "table table-bordered")
   } else if ("void" %in% x@theme[[1]]) {
-      x <- style_tt(x, bootstrap_class = "table table-borderless")
+    x <- style_tt(x, bootstrap_class = "table table-borderless")
   }
 
   if (length(x@width) > 1) {