interactive-plot | reactively show 'show plot' checkbox

RWParsons · Jun 9, 2024 · 72be097 · 72be097
1 parent 74510c1
commit 72be097
Show file tree

Hide file tree

Showing 2 changed files with 42 additions and 23 deletions.
diff --git a/app/app/view/main_map/interactive_plot.R b/app/app/view/main_map/interactive_plot.R
@@ -2,48 +2,61 @@ box::use(
   bslib,
   ggplot2,
   shiny,
+  stringr,
 )
 
 box::use(
   app / logic / scales_and_palettes,
+  app / logic / utils,
 )
 
 
-
-
 #' @export
 interactive_plot_ui <- function(id) {
   ns <- shiny$NS(id)
-  shiny$absolutePanel(
-    id = "plot_panel",
-    class = "panel panel-default",
-    fixed = TRUE,
-    draggable = FALSE,
-    top = 170,
-    left = 50,
-    right = "auto",
-    bottom = "auto",
-    width = 120,
-    height = 50,
-    shiny$checkboxInput(
-      ns("show_plot_checkbox"),
-      shiny$HTML("<b>Show plot</b>"),
-      value = TRUE
-    ),
-    shiny$uiOutput(ns("plot_ui"))
-  )
+  shiny$uiOutput(ns("interactive_plot_container"))
 }
 
 #' @export
-interactive_plot_server <- function(id, d_poly) {
+interactive_plot_server <- function(id, d_poly, selected_layer) {
   shiny$moduleServer(id, function(input, output, session) {
     ns <- session$ns
+
+    output$interactive_plot_container <- shiny$renderUI({
+      shiny$req(selected_layer())
+
+      if (stringr$str_detect(utils$get_standard_layer_name(selected_layer()), "sa[12]_")) {
+        chkbox <- shiny$checkboxInput(
+          ns("show_plot_checkbox"),
+          shiny$HTML("<b>Show plot</b>"),
+          value = FALSE
+        )
+      } else {
+        chkbox <- NULL
+      }
+
+      shiny$absolutePanel(
+        id = "plot_panel",
+        class = "panel panel-default",
+        fixed = TRUE,
+        draggable = FALSE,
+        top = 170,
+        left = 50,
+        right = "auto",
+        bottom = "auto",
+        width = 120,
+        height = 50,
+        chkbox,
+        shiny$uiOutput(ns("plot_ui"))
+      )
+    })
+
     output$plot_ui <- shiny$renderUI({
+      shiny$req(input$show_plot_checkbox)
       if (!input$show_plot_checkbox) {
         return()
       }
 
-
       shiny$plotOutput(
         ns("interactive_plot"),
         width = 500, height = 400

diff --git a/app/app/view/main_map/page.R b/app/app/view/main_map/page.R
@@ -60,7 +60,13 @@ server <- function(id) {
       )
     })
 
-    interactive_plot$interactive_plot_server(id = "plot", d_poly = d_poly)
+    interactive_plot$interactive_plot_server(
+      id = "plot",
+      d_poly = d_poly,
+      selected_layer = shiny$reactive({
+        input$layer_selection
+      })
+    )
 
     shiny$observeEvent(list(proxymap(), d_poly(), input$layer_selection), {
       mm$update_map_shapes(