Отображать метки поверх фигур, используя leafletproxy () и глянцевый - (постоянный текст или при наведении)

Question

Я пытаюсь отобразить текстовые метки (название округа), когда выбрано состояние и карта масштабируется до уровня штата, но для выбранной области код завершается неудачно, когда я пытаюсь добавить метки (как простые, так и постоянные) как указано в Как добавить метки поверх полигонов в листовке Изображение моего приложения

Как и предполагалось, я создал фрейм данных, содержащий x, y, countyname ( метка, которую я хочу отобразить) с помощью gCentroid

centergs <- reactive(
{
  data.frame(gCentroid(selectedState(), byid = TRUE), selectedState()$NAME) #
}
)

#rename third column to county

centerg <- reactive(
{
  setNames(centergs(), c("x", "y", "county"))
}
)

Вот как я пытаюсь добавить эти метки на карту с помощью leafletproxy

observe({

leafletProxy("map", data = selectedState()) %>% # temp2.df/selectedState()
  clearGroup(c("st.ate")) %>%
  addPolygons(group ="st.ate",
              highlightOptions = highlightOptions(color = "white", weight = 0.6),
              fillOpacity = 0.1, 
              weight = 5)%>% # edit point --- i added a label..... ,label = ~NAME
        addLabelOnlyMarkers(data = centerg(),
                     lng = ~x, lat = ~y, label = ~county, #### figure this out
                    labelOptions = labelOptions(noHide = TRUE, direction = 'top', textOnly = TRUE))%>%
  fitBounds(lng1 = selectedState()@bbox[1,1], lat1 = selectedState()@bbox[2,1], lng2 = selectedState()@bbox[1,2], lat2 = selectedState()@bbox[2,2])#edit

 })