Capture event
Add an event capture.
e_capture(e, event)
e |
An |
event |
An event name from the event documentation. |
Many events can be captured, however not all are integrated, you can pass one that is not implemented with this function.
## Not run:
# 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)
}
## End(Not run)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.