R/deliverChart.R

In XD-DENG/ECharts2Shiny: Embedding Interactive Charts Generated with ECharts Library into Shiny Applications

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