add renderHTML function

NAMESPACE

@@ -124,6 +124,7 @@ export(reactiveValuesToList)
 export(registerInputHandler)
 export(removeInputHandler)
 export(renderDataTable)
+export(renderHTML)
 export(renderImage)
 export(renderPlot)
 export(renderPrint)

R/shinywrappers.R

@@ -407,6 +407,27 @@ renderText <- function(expr, env=parent.frame(), quoted=FALSE, func=NULL) {
   })
 }
 
+#' @export
+renderHTML <- function(expr, env=parent.frame(), quoted=FALSE) {
+
+  installExprFunction(expr, "func", env, quoted)
+
+  markRenderFunction(htmlOutput, function() {
+
+    result <- func()
+    if (is.null(result) || length(result) == 0)
+      return(NULL)
+
+    output <- list(
+      html = result,
+      deps = attr(result, "dependencies")
+    )
+
+    return(output)
+  })
+}
+
+
 #' UI Output
 #'
 #' \bold{Experimental feature.} Makes a reactive version of a function that

inst/examples/12_justgage/server.R

@@ -0,0 +1,10 @@
+library(shiny)
+library(rmdexamples)
+
+shinyServer(function(input, output) {
+
+  output$gage <- renderHTML({
+    justgage("Foo", 5, 1, 10)
+  })
+
+})

inst/examples/12_justgage/ui.R

@@ -0,0 +1,9 @@
+library(shiny)
+
+shinyUI(fluidPage(
+
+  titlePanel("Hello Shiny!"),
+
+  htmlOutput("gage")
+
+))