如何在Leaflet中配合Crosstalk实现聚合标记点选择及DT表格联动功能

leaflet 原生addMarkers开启聚合功能时，配套的聚合插件会劫持标记点的点击事件，用于实现聚合点展开、缩放至区域的默认逻辑，导致 crosstalk 原本绑定的选中同步事件被拦截，无法触发 DT 表格的联动筛选。

通过显式绑定 crosstalk 匹配标识、调整聚合配置保留单点事件触发权限即可恢复联动，修改后的可运行代码如下：

library(crosstalk)
library(leaflet)
library(DT)
library(tidyverse)

sd <- SharedData$new(quakes)

bscols(
  leaflet(sd) %>% 
    addTiles() %>% 
    addMarkers(
      clusterOptions = markerClusterOptions(
        # 保留聚合点点击缩放至区域的默认逻辑，不拦截单点事件
        zoomToBoundsOnClick = TRUE
      ),
      # 显式指定layerId为crosstalk的唯一匹配键，保证点击事件能关联到对应数据行
      layerId = ~row.names(.)
    ),
  datatable(sd)
)

如果需要实现点击聚合点时同时选中该聚合范围内所有关联数据的效果，可额外给markerClusterOptions绑定自定义点击事件，读取聚合范围内的所有标记ID后调用crosstalk的批量选中方法即可。

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