From 05c044f98446668edf1419718f514d5a8423337e Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Wed, 8 Mar 2017 03:21:17 +0100
Subject: [PATCH] Ajout highlight et labels

---
 app.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/app.R b/app.R
index 5d3bb91..625d46a 100644
--- a/app.R
+++ b/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)
   })
 }