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

Inizia confrontando htmlwidgets::saveWidget() con htmltools::save_html() e analizza il wrapper save_html() proposto, inclusi i relativi casi htmlwidget e shiny.tag. Il lavoro è completato quando un unico metodo generale di salvataggio gestisce entrambi i tipi di input supportati e le opzioni elencate, senza richiedere agli utenti di scegliere tra le funzioni esistenti.