Provide a more general method for saving HTML

Users shouldn't have to remember when to do htmlwidgets::saveWidget() vs htmltools::save_html() and the subtle differences between them.

Moreover, I want a way to save HTML tags without all the fuss of htmltools::save_html(), and I'm tired of waiting for https://github.com/rstudio/htmltools/issues/73

save_html <- function(x, file, selfcontained = TRUE, libdir = NULL, background = "white", knitrOptions = list()) {

  save_fun <- if (inherits(x, "htmlwidget")) {
    htmlwidgets::saveWidget
  } else if (inherits(x, "shiny.tag")) {
     save_tags
  } else { 
    stop("x must be an htmlwidget or an HTML tag list", call. = FALSE)
  }
    
  save_fun(x, file, selfcontained, libdir, background, knitrOptions)
}

Beginne damit, htmlwidgets::saveWidget() mit htmltools::save_html() zu vergleichen und den vorgeschlagenen save_html()-Wrapper zu prüfen, einschließlich seiner Fälle für htmlwidget und shiny.tag. Erledigt ist die Aufgabe, wenn eine allgemeine Speichermethode beide unterstützten Eingabetypen und die aufgeführten Optionen behandelt, ohne dass Benutzer zwischen den vorhandenen Funktionen wählen müssen.