Close #477. save_html() now works correctly with components and pages…

… with non-default theme values
rstudio · Oct 5, 2023 · d18c684 · d18c684
1 parent bee0b80
commit d18c684
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -9,6 +9,8 @@ S3method(print,bslib_fragment)
 S3method(print,bslib_page)
 S3method(print,bslib_showcase_layout)
 S3method(print,bslib_value_box_theme)
+S3method(save_html,bslib_fragment)
+S3method(save_html,bslib_page)
 export(accordion)
 export(accordion_panel)
 export(accordion_panel_close)

diff --git a/R/print.R b/R/print.R
@@ -36,3 +36,18 @@ print.bslib_page <- function(x, ...) {
 
   invisible(NextMethod())
 }
+
+#' @export
+save_html.bslib_fragment <- function(html, file, ...) {
+  html <- attr(html, "bslib_page")(html)
+  save_html(html, file, ...)
+}
+
+#' @export
+save_html.bslib_page <- function(html, file, ...) {
+  old_theme <- bs_global_get()
+  bs_global_set(attr(html, "bs_theme", exact = TRUE))
+  on.exit(bs_global_set(old_theme), add = TRUE)
+
+  NextMethod()
+}