render place tile labels above polygons in R leaflet

leaflet_labels_on_top.R

library(leaflet)

world <- rnaturalearth::ne_countries(returnclass = "sf")

pal <- colorFactor("Dark2", levels = unique(world$continent))

leaflet(world) %>%
  setView(10, 15, zoom = 3) %>% 
  addMapPane(name = "polygons", zIndex = 410) %>% 
  addMapPane(name = "maplabels", zIndex = 420) %>% # higher zIndex rendered on top
  addProviderTiles("CartoDB.Positron") %>% 
  addProviderTiles("CartoDB.PositronOnlyLabels", options = leafletOptions(pane = "maplabels")) %>%
  addPolygons(
    fillColor = ~pal(continent),
    weight = 1,
    opacity = 1,
    color = "white",
    fillOpacity = 0.6,
    options = leafletOptions(pane = "polygons")
  ) %>% 
  addLegend(pal = pal, values = ~continent, position = "bottomright")