Close #477. save_html() now works correctly with components and pages with non-default theme values

Author: cpsievert

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)

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()
+}