Follow up to #308: get theme: bootstrap working again

rstudio · Apr 26, 2021 · e057adc · e057adc
1 parent c032871
commit e057adc
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/R/flex_dashboard.R b/R/flex_dashboard.R
@@ -641,6 +641,9 @@ html_dependencies_flexdb <- function(theme) {
   version <- packageVersion("flexdashboard")
 
   if (is.character(theme)) {
+    if (identical(theme, "default")) {
+      theme <- "bootstrap"
+    }
     dep <- htmlDependency(
       name = name, version = version,
       src = "www/flex_dashboard",

diff --git a/R/valuebox.R b/R/valuebox.R
@@ -84,7 +84,9 @@ valueBoxCoreDependencies <- function(icon) {
 
 valueBoxStaticAccentCSS <- function(theme) {
   if (!is.character(theme)) return(NULL)
-
+  if (identical(theme, "default")) {
+    theme <- "bootstrap"
+  }
   htmltools::htmlDependency(
     name = "value-box-accent-static",
     version = packageVersion("flexdashboard"),