Re-introduce dhb overlay

MedicalCentres/app.R

@@ -106,6 +106,10 @@ ui <- fillPage(title = "New Zealand GP Practice Locations 2017",
                                "DHB affiliation" = "DHB",
                                "Snargleflagen" = "Snargleflagen")),
       hr(),
+      radioButtons("overlay", "Show overlay",
+                   choices = c("None" = "None",
+                               "DHB boundaries" = "DHB-boundaries")),
+      hr(),
       actionLink("closedrop", label = "close", icon = icon("close"),
                  style="float:right"),
       circle=FALSE, inputId = "ddown", right = TRUE,
@@ -113,6 +117,8 @@ ui <- fillPage(title = "New Zealand GP Practice Locations 2017",
     leafletOutput(outputId = "medmap")
 )
 
+# Store group name of overlays that have been loaded
+loaded.overlays <- c()
 
 server <- function(input, output, session) {
     output$medmap <- renderLeaflet({
@@ -163,6 +169,23 @@ server <- function(input, output, session) {
       }
     })
 
+    observeEvent(input$overlay, {
+      gl <- leafletProxy("medmap")
+      for (g in loaded.overlays) {
+        hideGroup(gl, g)
+      }
+      if (input$overlay == "DHB-boundaries") {
+        if (input$overlay %in% loaded.overlays) {
+          showGroup(gl, input$overlay)
+        } else {
+          dhb2015 <- readRDS("dhb2015.rds") %>% subset(dhb2015$DHB2015_Co != "99")
+          addPolygons(gl, data = dhb2015, fill = FALSE, 
+                                          color = "#000000", weight = 2,
+                                          group = input$overlay)
+          loaded.overlays <<- c(loaded.overlays, input$overlay)
+        }
+      }
+    })
 }
 
 # Run the application