Fix issue #97
Fix opacity problems with region limits.
Replace code
addPolygons(data = region, opacity = 0.5, fillOpacity = 0.1) %>%
with
addPolygons(data = departement_geom, opacity = 0.3, fillOpacity = 0.1) %>% addPolygons(data = region, opacity = 0.3, fillOpacity = 0) %>%