Draw the chart.

e_draw_p(proxy)

Arguments

proxy

An echarts4r proxy as returned by echarts4rProxy.

Details

Useful if you set draw to FALSE in e_charts.

Examples

# NOT RUN {
library(shiny)

ui <- fluidPage(
  echarts4rOutput("chart"),
  actionButton("draw", "draw")
)

server <- function(input, output){
  output$chart <- renderEcharts4r({
    mtcars %>%
      e_charts(mpg, draw = FALSE) %>%
      e_scatter(qsec) %>%
      e_datazoom()
  })

  observeEvent(input$draw, {
    echarts4rProxy("chart") %>%
      e_draw_p()
  })
}

shinyApp(ui, server)
# }