brush examples

inst/example-brush-proxy/app.R

@@ -0,0 +1,80 @@
+
+#  ------------------------------------------------------------------------
+#
+# Title : apexcharts brush example (alternative)
+#    By : Victor
+#  Date : 2020-07-24
+#
+#  ------------------------------------------------------------------------
+
+
+library(shiny)
+library(apexcharter)
+data("economics", package = "ggplot2")
+
+ui <- fluidPage(
+  fluidRow(
+    column(
+      width = 8, offset = 2,
+      tags$h2("Apexchart brush example (alternative) in Shiny", class = "text-center"),
+      apexchartOutput("brush_1"),
+      apexchartOutput("brush_2", height = "130px")
+    )
+  )
+)
+
+server <- function(input, output, session) {
+  
+  output$brush_1 <- renderApexchart({
+    apex(
+      data = economics,
+      mapping = aes(x = date, y = psavert),
+      type = "line"
+    ) %>%
+      ax_chart(
+        toolbar = list(
+          autoSelected = "pan",
+          show = FALSE
+        )
+      )
+  })
+  
+  output$brush_2 <- renderApexchart({
+    apex(
+      data = economics,
+      mapping = aes(x = date, y = psavert),
+      type = "line"
+    ) %>%
+      ax_chart(
+        brush = list(
+          enabled = TRUE
+        ),
+        offsetY = -20,
+        selection = list(
+          enabled = TRUE
+        )
+      ) %>%
+      ax_xaxis(labels = list(show = FALSE)) %>%
+      ax_yaxis(labels = list(show = FALSE)) %>% 
+      set_input_selection(
+        inputId = "brush", 
+        xmin = format_date(economics$date[1]),
+        xmax = format_date(economics$date[100])
+      )
+  })
+  
+  observeEvent(input$brush, {
+    apexchartProxy("brush_1") %>% 
+      ax_proxy_options(list(
+        xaxis = list(
+          min = as.numeric(input$brush$x$min) * 1000,
+          max = as.numeric(input$brush$x$max) * 1000
+        )
+      ))
+  })
+  
+}
+
+
+shinyApp(ui, server)
+

inst/example-brush-proxy/rsconnect/shinyapps.io/dreamrs/example-brush-proxy.dcf

@@ -0,0 +1,12 @@
+name: example-brush-proxy
+title: example-brush-proxy
+username:
+account: dreamrs
+server: shinyapps.io
+hostUrl: https://api.shinyapps.io/v1
+appId: 2608382
+bundleId: 3430958
+url: https://dreamrs.shinyapps.io/example-brush-proxy/
+when: 1595597401.31657
+asMultiple: FALSE
+asStatic: FALSE

inst/example-brush/app.R

@@ -0,0 +1,70 @@
+
+#  ------------------------------------------------------------------------
+#
+# Title : apexcharts brush example
+#    By : Victor
+#  Date : 2020-07-24
+#
+#  ------------------------------------------------------------------------
+
+
+library(shiny)
+library(apexcharter)
+data("economics", package = "ggplot2")
+
+ui <- fluidPage(
+  fluidRow(
+    column(
+      width = 8, offset = 2,
+      tags$h2("Apexchart brush example in Shiny", class = "text-center"),
+      apexchartOutput("brush_1"),
+      apexchartOutput("brush_2", height = "130px")
+    )
+  )
+)
+
+server <- function(input, output, session) {
+  
+  output$brush_1 <- renderApexchart({
+    apex(
+      data = economics,
+      mapping = aes(x = date, y = psavert),
+      type = "line"
+    ) %>%
+      ax_chart(
+        id = "target-chart",
+        toolbar = list(
+          autoSelected = "pan",
+          show = FALSE
+        )
+      )
+  })
+  
+  output$brush_2 <- renderApexchart({
+    apex(
+      data = economics,
+      mapping = aes(x = date, y = psavert),
+      type = "line"
+    ) %>%
+      ax_chart(
+        brush = list(
+          target = "target-chart", # <-- use target id here
+          enabled = TRUE
+        ),
+        offsetY = -20,
+        selection = list(
+          enabled = TRUE, # <-- enable selection and define starting range
+          xaxis = list(
+            min = format_date(economics$date[1]),
+            max = format_date(economics$date[100])
+          )
+        )
+      ) %>%
+      ax_xaxis(labels = list(show = FALSE)) %>%
+      ax_yaxis(labels = list(show = FALSE))
+  })
+  
+}
+
+shinyApp(ui, server)
+