Trying to get coloured markers

MedicalCentres/app.R

@@ -9,6 +9,11 @@ Geo2017$Snargle <- c(TRUE, rep(FALSE, 5))
 DHBs <- sort(unique(Geo2017$dhb_name))
 DHBs <- c(DHBs[DHBs != "Missing"], "Missing")
 
+dhbcols <- hcl.colors(length(DHBs))
+names(dhbcols) <- DHBs
+snargcols <- hcl.colors(2)
+names(snargcols) <- c(TRUE, FALSE)
+
 
 ui <- fillPage(title = "New Zealand GP Practice Locations 2017",
     tags$style(type = "text/css", 
@@ -62,11 +67,26 @@ ui <- fillPage(title = "New Zealand GP Practice Locations 2017",
 
 server <- function(input, output) {
     output$medmap <- renderLeaflet({
-        leaflet(Geo2017) %>%
-            addTiles() %>%
-            addMarkers(lng = Geo2017$lon,
+        gl <- leaflet(Geo2017)
+        gl <- addTiles(gl)
+        if (input$selcol == "Snargleflagen") {
+            gl <- addMarkers(gl, lng = Geo2017$lon,
+                       lat = Geo2017$lat,
+                       popup = Geo2017$name,
+                       # color = snargcols[as.character(Geo2017$dhb_name)]
+                       )
+        } else if (input$selcol == "DHB") {
+            gl <- addMarkers(gl, lng = Geo2017$lon,
+                       lat = Geo2017$lat,
+                       popup = Geo2017$name,
+                       # color = dhbcols[Geo2017$dhb_name]
+                       )
+        } else {
+            gl <- addMarkers(gl, lng = Geo2017$lon,
                        lat = Geo2017$lat,
                        popup = Geo2017$name)
+        }
+        gl
     })
 
     observeEvent(input$closedrop, {