Ajout highlight et labels

app.R

@@ -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)
   })
 }