# NOT RUN {
library(leaflet)
library(mapview)
## points above polygons
leaflet() %>%
addTiles() %>%
addMapPane("polygons", zIndex = 410) %>%
addMapPane("points", zIndex = 420) %>%
addPolygons(data = franconia,
group = "pol1",
fillOpacity = 0.7,
fillColor = "green",
color = "black",
options = leafletOptions(pane = "polygons")) %>%
addPolygons(data = franconia,
group = "pol2",
color = "black",
fillColor = "purple",
fillOpacity = 0.7,
options = leafletOptions(pane = "polygons")) %>%
addCircleMarkers(data = breweries,
group = "pts",
color = "darkblue",
options = leafletOptions(pane = "points")) %>%
addLayersControl(overlayGroups = c("pol1", "pol2", "pts"))
# }
Run the code above in your browser using DataLab