clear group instead of all markers

MedicalCentres/app.R

@@ -141,7 +141,7 @@ server <- function(input, output, session) {
 
     observeEvent(input$selcol, {
       gl <- leafletProxy("medmap") %>%
-          clearMarkers()
+          clearGroup("locations")
       if (input$selcol == "Snargleflagen") {
           gl <- addMarkers(gl, lng = Geo2017$lon,
                      lat = Geo2017$lat,