如何判断leafletProxy完成更新地图的渲染？

当使用leafletProxy动态更新Leaflet地图时，无法直接通过初始渲染的htmlwidgets::onRender()捕获更新后的完成时机，但可以通过监听Leaflet原生的图层添加事件来实现回调。

具体思路是：在初始地图渲染时，通过onRender()绑定Leaflet的layeradd事件监听，当leafletProxy添加的多边形图层完成渲染后，该事件会被触发，此时可以执行客户端回调逻辑，或者通知Shiny服务器端。

以下是修改后的完整示例代码：

library(shiny)
library(leaflet)
library(sf)
library(htmlwidgets)

polys <- st_sf(
  geometry = st_sfc(
    st_polygon(list(rbind(
      c(-101.744384765625, 39.32155002466662),
      c(-101.5521240234375, 39.330048552942415),
      c(-101.40380859375, 39.330048552942415),
      c(-101.33239746093749, 39.364032338047984),
      c(-101.041259765625, 39.36827914916011),
      c(-100.975341796875, 39.30454987014581),
      c(-101.0399169921875, 39.24501680713314),
      c(-101.243896484375, 39.16414104768742),
      c(-101.455078125, 39.11125631228113),
      c(-101.737060546875, 39.13006024213511),
      c(-101.77825927734375, 39.16839962520706),
      c(-101.734619140625, 39.254884981213734),
      c(-101.744384765625, 39.32155002466662)
    )))
  )
)

ui <- fluidPage(
  leafletOutput("map"),
  actionButton("go", "添加多边形")
)

server <- function(input, output, session) {
  output$map <- renderLeaflet({
    leaflet() %>% 
      addTiles() %>%
      setView(-101, 39, 8) %>%
      onRender("
        function(el, x) {
          var map = this;
          // 监听所有图层添加事件
          map.on('layeradd', function(e) {
            // 仅针对多边形图层触发回调（可选，过滤无关图层）
            if (e.layer instanceof L.Polygon) {
              // 客户端回调：控制台打印日志
              console.log('多边形图层渲染完成');
              // 向Shiny服务器发送渲染完成信号
              Shiny.setInputValue('polygon_rendered', Date.now());
            }
          });
        }
      ")
  })
  
  observeEvent(input$go, {
    leafletProxy("map") %>%
      addPolygons(data = polys)
  })
  
  # 服务器端回调：收到渲染完成信号后触发通知
  observeEvent(input$polygon_rendered, {
    showNotification("多边形已成功渲染到地图上", type = "success")
  })
}

shinyApp(ui, server)

关键说明： #

• layeradd事件：Leaflet地图的原生事件，任何图层（包括通过leafletProxy添加的）被添加并渲染完成后都会触发。
• 图层类型判断：通过e.layer instanceof L.Polygon可以精准过滤出我们添加的多边形图层，避免底图加载等其他图层事件干扰。
• 双向回调：既可以在客户端直接执行前端逻辑（如控制台打印），也可以通过Shiny.setInputValue()将信号传递到服务器端，执行Shiny的后端操作（如弹出通知）。

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