|
|
@@ -200,7 +200,7 @@ server <- function(input, output, session) |
|
|
|
clearControls() |
|
|
|
|
|
|
|
leafletProxy("map", data = comm) %>% |
|
|
|
addPolygons(weight = 1, color = "#222222", opacity = .1, fillOpacity = .3, fillColor = ~pal(n)) %>% |
|
|
|
addPolygons(weight = 1, color = "#222222", opacity = .1, fillOpacity = .3, fillColor = ~pal(n), label = ~as.character(n), highlightOptions = highlightOptions(color = "black", opacity = 1)) %>% |
|
|
|
addLegend(position = "topleft", pal = pal, values = ~n) |
|
|
|
}) |
|
|
|
} |
|
|
|