use "light" navbar by default

r-lib · Feb 12, 2024 · 71aa616 · 71aa616
1 parent 5e4ce97
commit 71aa616
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/navbar.R b/R/navbar.R
@@ -21,7 +21,7 @@ navbar_style <- function(navbar = list(), theme = "_default", bs_version = 3) {
     list(type = navbar$type %||% "default")
   } else {
     # bg is usually light, dark, or primary, but can use any .bg-*
-    bg <- navbar$bg %||% bootswatch_bg[[theme]]
+    bg <- navbar$bg %||% purrr::pluck(bootswatch_bg, theme, .default = "light")
     type <- navbar$type %||% if (bg == "light") "light" else "dark"
 
     list(bg = bg, type = type)