Я работаю над картой с 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
Что яхочу
Я хочу указать, что группа А1 и группа А2 являются частью группы А, предпочтительно с отступом, как вложенный список:
Что я пробовал
Я пытался добиться отступа в именах групп, добавляя пробелы в именах групп, но листовка игнорировала эти пробелы.
Примеры по 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