Shiny App中pickerInput无法交互及栅格图层加载问题求助

1. 修复pickerInput无法交互的问题 #

你的UI代码中pickerInput末尾存在多余逗号，导致UI组件渲染异常，下拉菜单无法点击。修正后的UI代码如下：

sidebarPanel(
  shinyWidgets::pickerInput(
    inputId = "ecoregion_type_input",
    label = "Select ecoregion:",
    choices = c("socal_norbaja_coast_gdes", "southern_mountains_gdes", "sonoran_basin_gdes"), 
    options = pickerOptions(actionsBox = TRUE),
    selected = c("socal_norbaja_coast_gdes"),
    multiple = TRUE
  ) # 移除多余的逗号
),
mainPanel(
  tmapOutput("map")
)

2. 简化多图层加载（无需if语句） #

服务器端代码存在逻辑错误：if-else只能显示单个图层，未定义tm变量就调用filter操作，导致argument 'x' is missing报错。以下是优化方案：

完整服务器端代码： #

server <- function(input, output, session) {
  # 将所有栅格对象存入命名列表，后续新增图层直接添加到列表即可
  ecoregion_rasters <- list(
    socal_norbaja_coast_gdes = socal_norbaja_coast_gdes,
    southern_mountains_gdes = southern_mountains_gdes,
    sonoran_basin_gdes = sonoran_basin_gdes
  )
  
  tm_df <- reactive({
    validate(
      need(length(input$ecoregion_type_input) > 0, "至少选择一个生态区")
    )
    
    # 提取选中的栅格图层，动态组合到tmap中
    selected_layers <- ecoregion_rasters[input$ecoregion_type_input]
    
    # 用reduce函数逐个叠加选中的图层
    purrr::reduce(selected_layers, function(tm_obj, raster) {
      tm_obj + tm_shape(raster) + tm_raster()
    }, .init = tm_basemap("OpenStreetMap")) # 可选：添加底图提升可读性
  })
  
  output$map <- renderTmap({
    tm_df()
  })
}

关键优化点说明： #

• 列表化管理栅格：将所有栅格存入命名列表，后续扩展到14个图层时，仅需在列表中新增条目，无需修改核心逻辑
• 动态图层组合：使用purrr::reduce遍历选中的图层，自动叠加所有选中的栅格，替代繁琐的if-else判断
• 移除无效操作：删除对tmap对象无效的filter操作，确保地图对象正确生成
• 可选底图：添加tm_basemap让生态区栅格叠加在基础地图上，提升可视化效果

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