无需Shiny框架，借助Crosstalk实现Leaflet地图标记点击高亮Reactable表格行是否可行

当然可以实现！不用依赖Shiny，咱们可以借助Crosstalk的共享数据机制，再配合一点自定义JavaScript，就能打通Leaflet标记点击到Reactable行高亮的反向交互。核心思路是让Leaflet的标记点击事件触发Crosstalk共享数据的选中状态更新，而Reactable会自动同步这个状态——毕竟它已经和同一个Crosstalk组绑定了。

完整实现代码 #

下面是修改后的完整代码，你可以直接运行测试：

library(crosstalk)
library(leaflet)
library(dplyr)
library(reactable)
library(htmlwidgets)

# 用于地图的SpatialPointsDataFrame对象，绑定Crosstalk组
brew_sp <- SharedData$new(breweries91, group = "breweries")

# 用于表格的数据框，绑定同一个Crosstalk组（确保行顺序和地图数据一致）
brew_data <- as_tibble(breweries91) %>% 
  select(brewery, address, village, founded) %>% 
  SharedData$new(group = "breweries")

# 构建带反向交互的Leaflet地图
map <- leaflet(brew_sp) %>% 
  addTiles() %>% 
  addMarkers() %>% 
  # 添加自定义JavaScript监听标记点击事件
  htmlwidgets::onRender("
    function(el, x) {
      var map = this;
      // 监听所有标记的点击事件
      map.on('markerclick', function(e) {
        // 获取当前点击标记对应的行索引（Crosstalk基于行索引管理选中状态）
        var rowIndex = e.layer.options.index;
        // 获取绑定的Crosstalk组
        var crosstalkGroup = crosstalk.group('breweries');
        // 获取当前已选中的行索引数组
        var currentSelection = crosstalkGroup.selection().value || [];
        
        // 实现「点击切换选中状态」的逻辑：已选中则移除，未选中则添加
        var updatedSelection;
        if (currentSelection.includes(rowIndex)) {
          updatedSelection = currentSelection.filter(idx => idx !== rowIndex);
        } else {
          updatedSelection = [...currentSelection, rowIndex];
        }
        
        // 更新Crosstalk的选中状态，Reactable会自动同步高亮
        crosstalkGroup.selection(updatedSelection);
      });
    }
  ")

# 构建Reactable表格（保持你原来的配置即可）
tbl <- reactable(
  brew_data,
  selection = "multiple",
  onClick = "select",
  rowStyle = list(cursor = "pointer"),
  minRows = 10
)

# 组合并渲染
htmltools::browsable(
  htmltools::tagList(map, tbl)
)

关键部分说明 #

1. Crosstalk组绑定：
   地图和表格的数据源都绑定到了同一个group = "breweries"的SharedData，这是双向交互的基础——Crosstalk会在这个组内同步选中状态。

2. Leaflet点击事件监听：
   通过htmlwidgets::onRender给地图添加了自定义JS逻辑：

   • 监听markerclick事件，拿到点击标记对应的行索引（e.layer.options.index是Leaflet结合Crosstalk自动附加的行索引）
   • 操作Crosstalk组的选中状态，实现「点击切换选中/取消选中」的逻辑
   • 更新后的选中状态会自动同步到绑定了同一组的Reactable

3. Reactable自动响应：
   你的原代码已经配置了selection = "multiple"并绑定了SharedData，所以Reactable会自动监听Crosstalk组的选中状态变化，高亮对应的行，不需要额外修改表格配置。

测试效果 #

运行代码后：

• 点击Reactable的行，对应Leaflet标记会被选中
• 点击Leaflet的标记，对应Reactable的行会自动高亮
• 多次点击标记可以切换选中状态，支持多选

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