R Overlay 的全选/取消全选选项传单答案

【问题标题】：Select All/Deselect All Option Leaflet for R OverlayR Overlay 的全选/取消全选选项传单
【发布时间】：2019-02-04 20:28:28
【问题描述】：

我有一个包含多个图层的 r 传单地图，每个图层都可以选中或取消选中。我正在尝试找到一种方法来选择全选/取消全选。

下面是我的代码，其中覆盖层是反应组。 df() 是一个反应式数据框 myLocation() 是一个反应位置（long,lat）

所以在右上角的地图中，我想要一个全选/取消全选选项

groups <- reactive({as.character(unique(df()$Folder))})
groupColors <- reactive({
    colorFactor(palette = rainbow(length(groups())), 
                domain = df()$Folder)
})

output$mymap <- renderLeaflet({
    leaflet() %>%
    addTiles() %>% 
    leaflet::addMarkers(lng=c(myLocation()[1]), lat=c(myLocation()[2]), 
         popup  = paste("Lat/Long: ",myLocation()[2],"/",myLocation()[1]),
         popupOptions = popupOptions(maxWidth = 1000, closeOnClick = TRUE)) 
    %>%

############more code here      
    #this section is where a select all/ deselect option has to be placed
    addLayersControl(overlayGroups=groups(),options = 
        layersControlOptions(collapsed = TRUE)) 
})

【问题讨论】：

请提供完整的reproducible example
我忘了包括图书馆传单和地理圈。我无法真正提供所有内容，因为 df 来自一个充满纬度/经度的 csv，而文件夹列是每个位置的名称。更多的代码部分只是添加更多不相关的标记。 myLocation 只是给定的 c(long,lat)

标签： shiny overlay r-leaflet

【解决方案1】：

按照shiny 教程...尝试使用leafletProxy 修改现有地图并使用传单中的hideGroup() 函数添加/删除整个组。

【讨论】：