R/deliverChart.R

deliverChart <- function(div_id,
                        running_in_shiny = TRUE){

  to_eval <- paste0("uiOutput(\"",
                   div_id,
                   "\")")

  if(running_in_shiny == TRUE){
    eval(parse(text = to_eval)
    )
  } else {
    cat(to_eval)
  }
}
yinscapital/echarts-shiny-reference documentation built on May 24, 2019, 7:26 p.m.