Better reloading

MedicalCentres/app.R

@@ -100,26 +100,10 @@ server <- function(input, output) {
     output$medmap <- renderLeaflet({
         gl <- leaflet(Geo2017)
         gl <- addTiles(gl)
-        if (input$selcol == "Snargleflagen") {
-            gl <- addCircleMarkers(gl, lng = Geo2017$lon,
-                       lat = Geo2017$lat,
-                       popup = popups(Geo2017),
-                       # color = snargcols[as.character(Geo2017$dhb_name)]
-                       col = snargcol(Geo2017$Snargle)
-                       )
-        } else if (input$selcol == "DHB") {
-            gl <- addCircleMarkers(gl, lng = Geo2017$lon,
-                       lat = Geo2017$lat,
-                       popup = popups(Geo2017),
-                       # color = dhbcols[Geo2017$dhb_name]
-                       col = dhbcol(Geo2017$dhb_name)
-                       )
-        } else {
-            gl <- addCircleMarkers(gl, lng = Geo2017$lon,
-                       lat = Geo2017$lat,
-                       popup = popups(Geo2017),
-                       col= "blue")
-        }
+        gl <- addCircleMarkers(gl, lng = Geo2017$lon,
+                   lat = Geo2017$lat,
+                   popup = popups(Geo2017),
+                   col= "blue")
         gl
     })
 
@@ -127,6 +111,31 @@ server <- function(input, output) {
       toggleDropdownButton("ddown")
     })
 
+    observeEvent(input$selcol, {
+      gl <- leafletProxy("medmap") %>%
+          clearMarkers()
+      if (input$selcol == "Snargleflagen") {
+          gl <- addCircleMarkers(gl, lng = Geo2017$lon,
+                     lat = Geo2017$lat,
+                     popup = popups(Geo2017),
+                     # color = snargcols[as.character(Geo2017$dhb_name)]
+                     col = snargcol(Geo2017$Snargle)
+                     )
+      } else if (input$selcol == "DHB") {
+          gl <- addCircleMarkers(gl, lng = Geo2017$lon,
+                     lat = Geo2017$lat,
+                     popup = popups(Geo2017),
+                     # color = dhbcols[Geo2017$dhb_name]
+                     col = dhbcol(Geo2017$dhb_name)
+                     )
+      } else {
+          gl <- addCircleMarkers(gl, lng = Geo2017$lon,
+                     lat = Geo2017$lat,
+                     popup = popups(Geo2017),
+                     col= "blue")
+      }
+    })
+
 }
 
 # Run the application