R Leaflet - Полилинии переходят под полигоны при переключении между базовыми группами

Question

Прежде всего, я сожалею, что не включил работоспособный набор данных.Я новичок в R, и создание работоспособности заняло у меня много времени.Надеюсь, вы все равно можете помочь.

Я создал карту с листовкой, и она работала хорошо.Это город с молниеносными границами, а район граничит с ними.Затем я хотел добавить другие слои на карту.Это тоже сработало.Но границы районов, полилинии исчезают и переходят под полигоны.Таким образом, полилинии должны быть всегда сверху.

В поисках решения я нашел addMapPane:

leaflet() %>%
    addMapPane("polygon", zIndex = 420) %>%
    addMapPane("polyline", zIndex = 420) %>%
[...]
  addPolylines(data = shapes_district,
               fillColor = "transparent",
               color = "#000000",
               stroke = TRUE,
               weight = 1.5,
               smoothFactor = 1,
               group = "district")
               options = pathOptions(pane = "polyline")%>%

И "options = pathOptions (pane =" polygon ")%>% "для полигонов.Но это дает мне ошибку:

Ошибка в отправке (карта, метод, листовка = {: Неверный параметр карты

Мой код без addMapPane. Извините, что не работаетнабор данных, но я надеюсь, что у вас, ребята, есть идея.

library("leaflet")

leaflet() %>%
  addProviderTiles("CartoDB.Positron") %>%
  addTiles()%>%

  addPolygons(data=shapes,
              stroke=FALSE,
              smoothFactor = 1,
              fillOpacity = 0.8,
              color= shapes$vec1,
              group = "overall")%>%

  addPolygons(data=shapes,
              stroke=FALSE,
              smoothFactor = 1,
              fillOpacity = 0.8,
              color= shapes$vec2),
              group = "male")%>%

  addPolygons(data=shapes,
              stroke=FALSE,
              smoothFactor = 1,
              fillOpacity = 0.8,
              color= shapes$vec3,
              group = "female")%>%

  addPolylines(data = shapes_county,
               fillColor = "transparent",
               color = "#000000",
               stroke = TRUE,
               weight = 1.5,
               smoothFactor = 1,
               group = "county")%>%

  addLayersControl(
    baseGroups = c("overall", "male", "female"),
    position = "topright",
    options = layersControlOptions(collapsed = FALSE)
  )