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

Bắt đầu bằng cách so sánh htmlwidgets::saveWidget() với htmltools::save_html() và xem xét wrapper save_html() được đề xuất, bao gồm các trường hợp htmlwidget và shiny.tag của nó. Công việc được xem là hoàn tất khi một phương thức lưu tổng quát xử lý cả hai kiểu đầu vào được hỗ trợ cùng các tùy chọn được liệt kê mà không yêu cầu người dùng phải chọn giữa các hàm hiện có.