466 bslib::bs_theme dev version (#485)

Closes #466 Modified getting the path to the sass file. This is still a brittle solution.
insightsengineering · Oct 24, 2023 · ac790e4 · ac790e4
1 parent c91445b
commit ac790e4
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -47,13 +47,13 @@ Imports:
     shinyWidgets (>= 0.6.2),
     teal.data (>= 0.3.0),
     teal.logger (>= 0.1.1),
-    teal.widgets (>= 0.4.0)
+    teal.widgets (>= 0.4.0),
+    utils
 Suggests:
     knitr (>= 1.42),
     MultiAssayExperiment,
     SummarizedExperiment,
     testthat (>= 3.1.5),
-    utils,
     withr (>= 2.1.0)
 VignetteBuilder:
     knitr

diff --git a/R/FilterState-utils.R b/R/FilterState-utils.R
@@ -256,7 +256,11 @@ fetch_bs_color <- function(color, alpha = NULL) {
 
   # locate file that describes the current theme
   ## TODO this is not ideal
-  sass_file <- bslib::bs_theme()[["layers"]][[2]][["defaults"]][[1]]
+  sass_file <- if (utils::packageVersion("bslib") < as.package_version("0.5.1.9000")) {
+    bslib::bs_theme()[["layers"]][[2]][["defaults"]][[1]]
+  } else {
+    bslib::bs_theme()[["layers"]][[2]][["defaults"]][[1]][[1]]
+  }
   sass_file <- attr(sass_file, "sass_file_path")
 
   # load scss file that encodes variables