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)
}
}
Run the code above in your browser using DataLab