Shiny应用：Leaflet线段显示与点击更新表格问题排查

1. 在OpenStreetMap底图显示自定义路段 #

先确保shapefile数据正确加载并转换为leaflet支持的WGS84（EPSG:4326）投影，用sf包处理最便捷：

# 加载依赖包
library(shiny)
library(leaflet)
library(sf)
library(dplyr)

# 读取shapefile并转换投影
segments_sf <- st_read("你的路段shapefile路径.shp") %>%
  st_transform(crs = 4326)  # 转换为leaflet支持的WGS84投影

在Shiny的UI中添加leaflet输出容器，服务器端渲染地图并添加路段：

# UI部分
ui <- fluidPage(
  selectInput("year", "选择年份", choices = unique(segments_sf$年份)),
  selectInput("time_slot", "选择时段", choices = unique(segments_sf$时段)),
  selectInput("seg_id", "选择路段ID", choices = unique(segments_sf$SegID)),
  leafletOutput("map"),
  tableOutput("attr_table")
)

# 服务器部分
server <- function(input, output, session) {
  # 渲染地图
  output$map <- renderLeaflet({
    leaflet() %>%
      addTiles() %>%  # 加载OpenStreetMap底图
      addPolylines(
        data = segments_sf,
        layerId = ~SegID,  # 绑定SegID为图层ID，用于点击事件识别
        color = "#0066cc",
        weight = 3
      )
  })
}

2. 地图点击同步表格并移除SegID下拉选项 #

通过监听leaflet的input$map_shape_click事件获取点击路段的SegID，更新属性表格的同时清空SegID下拉框的选项：

server <- function(input, output, session) {
  # 渲染地图（同上）
  output$map <- renderLeaflet({
    leaflet() %>%
      addTiles() %>%
      addPolylines(
        data = segments_sf,
        layerId = ~SegID,
        color = "#0066cc",
        weight = 3
      )
  })

  # 响应地图点击事件
  clicked_seg <- reactive({
    req(input$map_shape_click$id)  # 等待点击事件触发，避免空值报错
    input$map_shape_click$id
  })

  # 生成属性表格：优先使用点击的SegID，其次用下拉框选择的
  filtered_data <- reactive({
    seg_id <- if(!is.null(clicked_seg())) clicked_seg() else input$seg_id
    segments_sf %>%
      filter(年份 == input$year, 时段 == input$time_slot, SegID == seg_id) %>%
      st_drop_geometry()  # 移除几何列，只保留属性字段
  })

  output$attr_table <- renderTable({
    filtered_data()
  })

  # 点击地图后清空SegID下拉框选项
  observeEvent(clicked_seg(), {
    updateSelectInput(session, "seg_id", choices = NULL)
  })
}

关键注意点 #

• 必须给addPolylines()设置layerId = ~SegID，否则点击时无法识别对应路段的ID；
• 如果需要完全隐藏SegID下拉框，可加载shinyjs包，在UI中添加useShinyjs()，然后将updateSelectInput替换为hide("seg_id")；
• st_drop_geometry()用于剔除几何数据，让表格只展示属性字段。

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