R/deliverChart.R

Defines functions deliverChart

Documented in deliverChart

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)
  }
}

Try the ECharts2Shiny package in your browser

Any scripts or data that you put into this service are public.

ECharts2Shiny documentation built on Dec. 11, 2017, 5:08 p.m.