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

まず htmlwidgets::saveWidget() と htmltools::save_html() を比較し、提案されている save_html() ラッパーを、htmlwidget と shiny.tag のケースも含めて確認します。完了の条件は、ユーザーが既存の関数から選択する必要なく、1つの汎用的な保存メソッドで、サポートされている両方の入力型と列挙されたオプションを扱えることです。