Создание легенд для слоев (скрытие легенд неактивных слоев) ⇐ Html

[Anonymous]

Я создаю карту, на которой должно быть семь базовых слоев. Легенд так много, что все они не могут поместиться на экране, поэтому необходимо добавить функцию карты, которая позволяет легендам появляться только при активации их базового слоя.На данный момент, используя htmlwidgets, мне удалось исчезнуть все мои легенды, но я не могу сделать легенду активированного слоя видимой.
Вот это элементы управления слоями:
addLayersControl( #layer control
baseGroups = c("Parishes, plain",
"Unemployment rate", "Labor force participation rate",
"FITAP, Parish","SNAP, Parish", "KCSP, Parish",
"SNAP, zip"),
overlayGroups = c("Community colleges",
"Department of Corrections facilities",
"Veterans Affairs Facilites"
),
options = layersControlOptions(collapsed = FALSE)
) %>%
showGroup("Parishes, plain")

Я пробовал использовать «hidegroup» для групп легенд, но мне это не удалось.
До сих пор, используя htmlwidgets, У меня исчезли все мои легенды, но я не могу сделать видимой легенду активированного слоя.
edit - вот формат, в котором отображаются наложения и легенды. вставлен
addCircleMarkers( #DOH
data = ldh_geo,
color = col_var,
stroke = TRUE,
weight = 0.5,
opacity = 1,
fillColor = misc_pal$vintageviolet,
popup = ~paste(
"Area:", `LWDA AREA (Office is located)`, "
"
),
radius = dot_size,
fillOpacity = 0.8,
group = "Department of Health Facilities",
options = pathOptions(pane = "markerPane")
) %>%
addLegend(
position = "topleft",
colors = misc_pal$vintageviolet,
labels = "DOH", # Add corresponding labels
title = "DOH ffices",
layerId = "overlaydoh",
opacity = 0.8
)


Подробнее здесь: https://stackoverflow.com/questions/793 ... ted-layers