if (FALSE) {
# add datazoom
library(shiny)
ui <- fluidPage(
echarts4rOutput("chart"),
verbatimTextOutput("zoom")
)
server <- function(input, output) {
output$chart <- renderEcharts4r({
mtcars |>
e_charts(mpg) |>
e_scatter(qsec) |>
e_datazoom() |>
e_capture("datazoom")
})
output$zoom <- renderPrint({
input$chart_datazoom
})
}
if (interactive()) {
shinyApp(ui, server)
}
}
Run the code above in your browser using DataLab