R语言Leaflet是否有对应JS eachLayer()的函数？Shiny中获取已绘标记layerId

问题：Shiny中通过leafletProxy更新Leaflet地图时，获取当前已绘制标记的layerId #

需求说明 #

在Shiny应用的Leaflet地图中，通过leafletProxy持续更新地图内容，需要在每次新加载步骤开始前，获取当前地图上已显示的所有标记的layerId。

代码示例 #

# 初始化地图
m <- leaflet() %>% addTiles()

# 通过leafletProxy添加第一个标记
leafletProxy(mapId = "m", 
             data = data_1) %>%
    addMarkers(lng = 1, lat = 2, layerId = "Marker_1")

# 通过leafletProxy添加第二个标记
leafletProxy(mapId = "m", 
             data = data_2) %>%
    addMarkers(lng = 1, lat = 2, layerId = "Marker_2")

（注：原代码中lng参数重复，已修正为lat，符合addMarkers的参数要求）

现有问题 #

Leaflet JavaScript版本提供了eachLayer()函数用于遍历图层，但R语言的leaflet包中没有直接对应的函数。此前Vlad提出的通过解析地图对象$x$calls的方案，仅适用于初始化时的静态地图，无法适配leafletProxy动态更新的场景，代码如下：

l <- lapply(lapply(m$x$calls, function(x) x[[2]]), function(x) x[4][[1]])
layerIds <- unlist(l[sapply(l, function(x) {class(x) != "list" & !is.null(x)})])

解决方案 #

要在leafletProxy场景下获取当前地图的layerId，需要结合Shiny的JavaScript通信机制，通过自定义JS代码遍历图层并将layerId传回R端：

1. 在Shiny UI中添加自定义JS
   在UI部分插入一段JavaScript代码，监听地图加载事件，并定义获取所有标记layerId的函数：

ui <- fluidPage(
  leafletOutput("m"),
  tags$script(HTML("
    document.addEventListener('shiny:connected', function() {
      var map = HTMLWidgets.find('#m');
      if (map) {
        window.getLayerIds = function() {
          var layerIds = [];
          map.eachLayer(function(layer) {
            // 仅筛选标记图层
            if (layer instanceof L.Marker && layer.options.layerId) {
              layerIds.push(layer.options.layerId);
            }
          });
          return layerIds;
        };
      }
    });
  "))
)

2. 在Shiny Server中调用JS函数并接收结果
   通过Shiny的自定义消息机制，触发JS函数并接收返回的layerId列表：

server <- function(input, output, session) {
  # 初始化地图
  output$m <- renderLeaflet({
    leaflet() %>% addTiles()
  })

  # 示例：添加新标记前获取当前layerId
  observeEvent(input$add_marker, {
    # 调用JS函数获取layerId
    session$sendCustomMessage(type = "getLayerIds", message = NULL)
    
    # 接收返回的layerId列表
    observeEvent(input$layerIds, {
      current_layer_ids <- input$layerIds
      cat("当前已绘制的layerId：", paste(current_layer_ids, collapse = ", "), "\n")
      
      # 执行新加载步骤，比如添加新标记
      leafletProxy("m", data = data_new) %>%
        addMarkers(lng = 3, lat = 4, layerId = paste0("Marker_", length(current_layer_ids)+1))
    })
  })

  # 监听自定义消息，返回layerId到R端
  session$onMessage("getLayerIds", function(message) {
    var layerIds = window.getLayerIds();
    Shiny.setInputValue("layerIds", layerIds);
  })
}

shinyApp(ui, server)

说明 #

• 上述方案直接调用Leaflet原生的eachLayer()方法遍历标记图层，确保能获取到leafletProxy动态添加的所有标记layerId。
• 通过Shiny的自定义消息实现JS与R端的数据传递，保证每次新加载步骤前能拿到最新的图层信息。

内容的提问来源于stack exchange，提问作者Raphael