Показать иерархию в элементах управления слоями в Leaflet для R - PullRequest
0 голосов
/ 11 октября 2019

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

Вот что у меня есть на данный момент:

library(leaflet)

map <- leaflet(options = leafletOptions(minZoom = 10, zoomControl = FALSE)) %>%
htmlwidgets::onRender("function(el, x) {
                    L.control.zoom({ position: 'topright' }).addTo(this)
                    }") %>%
addTiles() %>%
setView(lng = 7.7, lat = 52.05, zoom = 10) %>% 
addLegend(position = "bottomright", title = "Legend", 
        colors = c("green", "red"), 
        labels = c("yes", "no"),
        opacity = 1) %>% 
addLayersControl(position = "bottomright", options = layersControlOptions(collapsed = FALSE),
               baseGroups = c("Group A", "Group A1", "Group A2", "Group B", "Group B1"))
map

enter image description here

Что яхочу

Я хочу указать, что группа А1 и группа А2 являются частью группы А, предпочтительно с отступом, как вложенный список:

  • группа А
    • Группа A1
    • Группа A2
  • Группа B
    • Группа B1

Что я пробовал

Я пытался добиться отступа в именах групп, добавляя пробелы в именах групп, но листовка игнорировала эти пробелы.

Примеры по stackoverflow

Я видел нечто подобное в Leaflet: Сгруппированные слои и меню аккордеона - Как реализовать? , но я не уверен, как внедрить JavaScript в версию Rлистовки.

Информация о сеансе

R version 3.5.0 (2018-04-23)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)

Matrix products: default

locale:
[1] LC_COLLATE=Dutch_Netherlands.1252  LC_CTYPE=Dutch_Netherlands.1252   
[3] LC_MONETARY=Dutch_Netherlands.1252 LC_NUMERIC=C                      
[5] LC_TIME=Dutch_Netherlands.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] sp_1.3-1      leaflet_2.0.2

loaded via a namespace (and not attached):
 [1] Rcpp_1.0.1      lattice_0.20-35 digest_0.6.15   later_0.7.3     mime_0.5       
 [6] grid_3.5.0      R6_2.2.2        xtable_1.8-3    jsonlite_1.6    magrittr_1.5   
[11] promises_1.0.1  tools_3.5.0     htmlwidgets_1.3 crosstalk_1.0.0 shiny_1.2.0    
[16] httpuv_1.4.4.1  yaml_2.1.19     compiler_3.5.0  htmltools_0.3.6
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...