R/renderChart.R

In ramnathv/rNVD3: Create interactive plots from R using NVD3.js

#' renderChart (use with Shiny)
#' 
#' Use rNVD3 charts as Shiny output. First, use \code{renderChart} in
#' \code{server.R} to assign the chart object to an Shiny output. Then create an
#' chartOutput with the same name in \code{ui.R}. \code{chartOutput} is
#' currently just an alias for \code{htmlOutput}. 
#' 
#' @param expr An expression that returns a chart object
#' @param env The environment in which to evaluate \code{expr}.
#' @param quoted Is expr a quoted expression (with \code{quote()})? This is
#'   useful if you want to save an expression in a variable.
#'   
#' @export
renderChart <- function(expr, env = parent.frame(), quoted = FALSE) {
  func <- shiny::exprToFunction(expr, env, quoted)
  
  function() {
    nvd3_ <- func()
    nvd3_$html()
  }
}