Get dependencies from an htmlwidget object

NAMESPACE

@@ -1,6 +1,8 @@
 # Generated by roxygen2: do not edit by hand
 
 S3method(as.tags,htmlwidget)
+S3method(getDependency,character)
+S3method(getDependency,htmlwidget)
 S3method(print,htmlwidget)
 S3method(print,suppress_viewer)
 export(JS)

R/htmlwidgets.R

@@ -206,9 +206,8 @@ toHTML <- function(x, standalone = FALSE, knitrOptions = NULL) {
       )
     }
   )
-  html <- htmltools::attachDependencies(html,
-    c(widget_dependencies(class(x)[1], attr(x, 'package')),
-      x$dependencies)
+  html <- htmltools::attachDependencies(
+    html, c(getDependency(x), x$dependencies)
   )
 
   htmltools::browsable(html)
@@ -234,10 +233,6 @@ widget_html <- function(name, package, id, style, class, inline = FALSE, ...){
   }
 }
 
-widget_dependencies <- function(name, package){
-  getDependency(name, package)
-}
-
 # Generates a <script type="application/json"> tag with the JSON-encoded data,
 # to be picked up by htmlwidgets.js for static rendering.
 widget_data <- function(x, id, ...){
@@ -386,7 +381,7 @@ shinyWidgetOutput <- function(outputId, name, width, height, package = name,
   )
 
   # attach dependencies
-  dependencies = widget_dependencies(name, package)
+  dependencies = getDependency(name, package)
   htmltools::attachDependencies(html, dependencies)
 }
 

R/utils.R

@@ -36,12 +36,22 @@ toJSON <- function(x) {
   structure(res, class = 'json')
 }
 
-#' Get js and css dependencies for  a htmlwidget
+#' Get js and css dependencies for an htmlwidget
 #'
-#' @param name name of the widget.
+#' @param name either an htmlwidget object or the name of a widget.
 #' @param package name of the package, defaults to the widget name.
 #' @export
 getDependency <- function(name, package = name){
+  UseMethod("getDependency")
+}
+
+#' @export
+getDependency.htmlwidget <- function(name, package = name){
+  getDependency.character(class(name)[1], package = attr(name, "package"))
+}
+
+#' @export
+getDependency.character <- function(name, package = name){
   config = sprintf("htmlwidgets/%s.yaml", name)
   jsfile = sprintf("htmlwidgets/%s.js", name)