Shiny渲染Leaflet地图报错Temp_map对象未找到排查

三类报错本质都是Shiny响应式编程规则使用错误，对应原因如下：

• Object Temp_Map not found while trying to render a Leaflet Map：存储上传shapefile的空间对象被定义在观察者局部作用域中，Leaflet渲染函数无法访问到该对象，同时渲染逻辑未绑定数据更新的响应式依赖，数据变更后不会触发重绘。
• Can't access reactive value 'Temp' outside of reactive consumer：直接在Server顶层环境读取input$Temp（制图字段选择输入值），未将响应式值包裹在reactive()、observe()或render*类合法响应式上下文中，违反Shiny响应式值的访问规则。
• Error in updateSelectInput: object 'Temp_map' not found：更新字段下拉选择器时，引用了当前作用域不存在的Temp_map对象，属于响应式对象作用域配置错误，读取上传数据、更新选项的逻辑未放在监听文件上传的响应式观察者中。

前置注意事项 #

Shapefile为多文件组合格式，正常读取至少需要同名.shp、.shx、.dbf三类文件，因此文件上传控件必须开启多文件支持，读取前需要将上传的临时文件重命名保留原始后缀，否则sf包会因缺失配套文件读取失败。

完整可运行代码 #

library(shiny)
library(sf)
library(leaflet)
library(dplyr)

ui <- fluidPage(
  # Shapefile多文件上传控件
  fileInput(
    inputId = "filemap",
    label = "上传Shapefile（需同时上传同名.shp/.shx/.dbf/.prj文件）",
    multiple = TRUE,
    accept = c('.shp','.dbf','.sbn','.sbx','.shx','.prj')
  ),
  # 动态制图字段选择器
  selectInput(inputId = "Temp", label = "选择制图字段", choices = NULL),
  # Leaflet地图输出容器
  leafletOutput(outputId = "map", height = "600px")
)

server <- function(input, output, session) {
  # 封装全局响应式sf数据源，所有下游逻辑统一调用该对象
  Temp_map <- reactive({
    # 拦截未上传文件的空状态
    req(input$filemap)
    # 处理临时文件，保留原始文件后缀
    upload_tmp_dir <- dirname(input$filemap$datapath[1])
    file.rename(
      from = input$filemap$datapath,
      to = file.path(upload_tmp_dir, input$filemap$name)
    )
    # 定位.shp文件作为读取入口
    shp_path <- list.files(upload_tmp_dir, pattern = "\\.shp$", full.names = TRUE)
    st_read(shp_path, quiet = TRUE)
  })

  # 监听文件上传完成事件，自动更新字段选择下拉选项
  observeEvent(Temp_map(), {
    req(Temp_map())
    # 提取非空间字段作为可选制图变量
    valid_fields <- Temp_map() |> st_drop_geometry() |> names()
    updateSelectInput(session, inputId = "Temp", choices = valid_fields)
  })

  # 渲染交互式专题地图
  output$map <- renderLeaflet({
    # 拦截数据未加载、字段未选择的空状态
    req(Temp_map(), input$Temp)
    plot_data <- Temp_map()
    # 构建颜色映射规则
    pal <- colorQuantile("YlOrRd", domain = plot_data[[input$Temp]], n = 5)
    
    leaflet(plot_data) |>
      addProviderTiles(providers$OpenStreetMap) |>
      addPolygons(
        fillColor = ~pal(plot_data[[input$Temp]]),
        fillOpacity = 0.7,
        color = "#222222",
        weight = 1,
        popup = ~paste0("<b>", input$Temp, ":</b> ", plot_data[[input$Temp]])
      ) |>
      addLegend(pal = pal, values = ~plot_data[[input$Temp]], title = input$Temp, position = "bottomright")
  })
}

shinyApp(ui, server)

• 所有input$*值、自定义响应式对象的调用，必须放在reactive()/observe*()/render*()等响应式上下文中，禁止直接在Server函数顶层读取响应式值。
• 全局共享的响应式数据源统一用reactive()封装，不要在观察者内部给全局变量赋值存储数据，避免出现作用域错误、依赖不触发的问题。
• 所有依赖用户输入的逻辑前加req()做空值拦截，避免应用初始化阶段输入为空时抛出不必要的报错。
• 如果上传的是点/线类型Shapefile，把代码中addPolygons替换为addCircleMarkers/addPolylines即可适配渲染。

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