e_draw_p(proxy)

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

if (interactive()) {
  shinyApp(ui, server)
}

## End(Not run)