Draw the chart.
e_draw_p(proxy)
proxy | An echarts4r proxy as returned by |
---|
Useful if you set draw
to FALSE
in e_charts
.
if (FALSE) { 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) } }