Create standard safetyGraphics shiny binding

[jwildfire]

Would it make sense to also add Shiny binding functions like in {safetyGraphics} prepareChart function? Something like below?

sgV2's chartsTab module is great, however, the following binding might add flexibility to drop a widget to a Shiny app without having to use tab UI.

#' @export
meta_widgetOutput <- function(outputId, widgetName, width = "100%", height = "400px") {
  
  htmlwidgets::shinyWidgetOutput(outputId, widgetName, width, height, package="safetyCharts")
  
}

#' @export
meta_renderWidget <- function(expr, widgetName, env = parent.frame(), quoted = FALSE) {
  
  widgetOutput <- function(outputId, width = "100%", height = "400px") {
    htmlwidgets::shinyWidgetOutput(outputId, widgetName, width, height, package="safetyCharts")
  }
  
  if (!quoted) { expr <- substitute(expr) } # force quoted
  
  params <- list(
    expr             = expr, 
    outputFunction   = widgetOutput, 
    env              = env, 
    quoted           = quoted,
    cacheHint        = "auto"
  )
  
  do.call( htmlwidgets::shinyRenderWidget, params)
}

Originally posted by @xni7 in #101 (review)