Nothing
library(shiny)
library(apexcharter)
data("economics", package = "ggplot2")
ui <- fluidPage(
tags$h2("Retrieve zoom information"),
fluidRow(
column(
width = 8,
tags$b("Datetime"),
apexchartOutput("chart1")
),
column(
width = 4,
verbatimTextOutput("result1")
)
),
fluidRow(
column(
width = 8,
tags$b("Scatter"),
apexchartOutput("chart2")
),
column(
width = 4,
verbatimTextOutput("result2")
)
)
)
server <- function(input, output, session) {
output$chart1 <- renderApexchart({
apex(economics, aes(date, psavert), type = "line") %>%
set_input_zoom("zoom_ts")
})
output$result1 <- renderPrint({
input$zoom_ts
})
output$chart2 <- renderApexchart({
apex(iris, aes(Sepal.Length, Sepal.Width), type = "scatter") %>%
ax_chart(zoom = list(type = "xy")) %>%
set_input_zoom("zoom_scatter")
})
output$result2 <- renderPrint({
input$zoom_scatter
})
}
shinyApp(ui, server)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.