Добавьте заголовок к блоку управления слоями в Leaflet используя R

Question

Я хочу добавить заголовок к блоку управления слоями вдоль строк «Доступные слои».

Мой поиск привел меня только к одному релевантному результату:

• Точно такой же вопрос, используя JS.Непонятно, как перевести

Мой код:

map %>% leaflet() %>%
  addProviderTiles(provider = "CartoDB") %>%
  # Group 1 Polygons
  addPolygons(data = map[!is.na(map$var),] ,weight =1, 
              color = ~g1_pal(g1), fillOpacity = .6,
              group = "Group 1",
              # add labels
              label = ~labels,
              # highlight polygons on hover
              highlight = highlightOptions(weight = 5, color = "white",
                                           bringToFront = TRUE)) %>%
  # Group 2
  addPolygons(data = map[!is.na(map$var2),], weight =1, 
              color = ~g2_pal(g2), fillOpacity = .6,
              group = "Group 2",
              # add labels that display mean income
              label = ~labels2,
              # highlight polygons on hover
              highlight = highlightOptions(weight = 5, color = "white",
                                           bringToFront = TRUE)) %>%
  addLayersControl(baseGroups = c("Group 1", "Group 2"), 
                   options = layersControlOptions(collapsed=F, 
                                                  # Series of attempts 
                                                  label = "Layers",
                                                  title = "Layers"))

Ни одна из этих попыток не сработала.Из ссылки выше видно, что есть атрибут, к которому можно получить доступ, но я не уверен, как на него ссылаться.