From dbc719e2001eadde0abb2de66716be07a7956210 Mon Sep 17 00:00:00 2001
From: Carson Sievert <cpsievert1@gmail.com>
Date: Tue, 17 Apr 2018 12:05:56 -0500
Subject: [PATCH] Add support for saving shiny.tag/shiny.tag.list objects in
 saveWidget

---
 R/savewidget.R | 21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

diff --git a/R/savewidget.R b/R/savewidget.R
index 8ca0ae47..8fff0c95 100644
--- a/R/savewidget.R
+++ b/R/savewidget.R
@@ -25,15 +25,30 @@ saveWidget <- function(widget, file, selfcontained = TRUE, libdir = NULL,
     background <- sprintf("rgba(%d,%d,%d,%f)", bgcol[1,1], bgcol[2,1], bgcol[3,1], bgcol[4,1]/255)
   }
 
-  # convert to HTML tags
-  html <- toHTML(widget, standalone = TRUE, knitrOptions = knitrOptions)
-
   # form a path for dependenent files
   if (is.null(libdir)){
     libdir <- paste(tools::file_path_sans_ext(basename(file)), "_files",
       sep = "")
   }
 
+  # convert to HTML tags
+  isWidget <- inherits(widget, "htmlwidget")
+  isTags <- inherits(widget, c("shiny.tag", "shiny.tag.list"))
+  html <- if (isWidget) {
+    toHTML(widget, standalone = TRUE, knitrOptions = knitrOptions)
+  } else if (isTags) {
+    widget
+  } else {
+    stop("`widget` must be an object of class 'htmlwidget' or 'shiny.tag' or 'shiny.tag.list'.", call. = FALSE)
+  }
+
+  # selfcontained isn't yet supported in htmltools, but maybe it will someday
+  # https://github.com/rstudio/htmltools/issues/73
+  if (isTags && selfcontained) {
+    warning("`selfcontained` is not yet supported for HTML tags (just HTML widgets).", call. = FALSE)
+    selfcontained <- FALSE
+  }
+
   # make it self-contained if requested
   if (selfcontained) {