From fc52f68fe1b44c6344e0d5c6b79ee9227e05bcff Mon Sep 17 00:00:00 2001 From: johndharrison Date: Sun, 30 Oct 2016 06:48:41 -0700 Subject: [PATCH 1/2] Render user custon html for widget. --- R/htmlwidgets.R | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/R/htmlwidgets.R b/R/htmlwidgets.R index 5a7ca032..8a9b16ea 100644 --- a/R/htmlwidgets.R +++ b/R/htmlwidgets.R @@ -226,7 +226,9 @@ widget_html <- function(name, package, id, style, class, inline = FALSE, ...){ # call the custom function if we have one, otherwise create a div if (is.function(fn)) { - fn(id = id, style = style, class = class, ...) + renderTags( + fn(id = id, style = style, class = class, ...) + ) } else if (inline) { tags$span(id = id, style = style, class = class) } else { From 6dc93f88aa158247b872929786c3bb0c79366605 Mon Sep 17 00:00:00 2001 From: johndharrison Date: Sun, 30 Oct 2016 06:48:41 -0700 Subject: [PATCH 2/2] Render user custom html for widget. --- R/htmlwidgets.R | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/R/htmlwidgets.R b/R/htmlwidgets.R index 5a7ca032..8a9b16ea 100644 --- a/R/htmlwidgets.R +++ b/R/htmlwidgets.R @@ -226,7 +226,9 @@ widget_html <- function(name, package, id, style, class, inline = FALSE, ...){ # call the custom function if we have one, otherwise create a div if (is.function(fn)) { - fn(id = id, style = style, class = class, ...) + renderTags( + fn(id = id, style = style, class = class, ...) + ) } else if (inline) { tags$span(id = id, style = style, class = class) } else {