R Shiny如何让observeEvent内修改的变量可全局生效并驱动UI更新

问题根因 #

你的代码存在两个核心问题导致切换学校选项时报错：

• dir(pattern = input$school_name) 会返回工作目录下所有文件名包含对应学校名的文件列表，只要匹配结果数量不等于1（多匹配/无匹配），后续依赖单文件路径的读写逻辑就会直接报错。
• 你当前使用的modalButton仅支持关闭弹窗，observeEvent监听input$school_name会在用户下拉选择时立刻触发更新，不需要点击确认按钮，不符合弹窗确认的设计逻辑，也可能在用户未完成选择时提前触发无效更新。

修复步骤 #

1. 修改弹窗UI，替换为提交式确认按钮 #

把modal内的footer从纯关闭的modalButton换成带input ID的actionButton，用于监听用户的确认动作，删掉重复的footer声明：

map <- function(){   # 摘要 tab 中供负责人选择学校的弹窗函数
  modalDialog(          
    fade = FALSE,
    title = '选择学校',
    selectInput("school_name", "选择学校", choices = c('XYZ','ABC'), selected = 'XYZ'),
    easyClose = FALSE,
    footer = actionButton("confirm_school", "确认"),
    size = 'l'
  )
}

2. 修改服务端逻辑，稳定更新文件路径 #

优先按已知命名规则拼接文件路径，比模糊搜索文件更稳定，不会出现多匹配/无匹配问题：

filepath <- reactiveVal("IS_XYZSchool.xlsx")

# 监听确认按钮点击，而非下拉框值变化
observeEvent(input$confirm_school, {
  # 按固定命名规则直接拼接路径
  new_path <- paste0("IS_", input$school_name, "School.xlsx")
  # 增加文件存在校验，避免无效路径报错
  if(file.exists(new_path)){
    filepath(new_path)
    # 更新完成后关闭弹窗
    removeModal()
  } else {
    showNotification("对应学校的数据文件不存在", type = "error")
  }
})

可选：保留dir搜索逻辑的修改方案 #

如果确实需要动态搜索文件，调整搜索规则确保返回唯一有效路径：

observeEvent(input$confirm_school, {
  # 用正则强制匹配完整文件名，避免部分匹配到其他文件
  pat <- dir(pattern = paste0("^IS_", input$school_name, "School\\.xlsx$"), full.names = TRUE)
  if(length(pat) == 1 && file.exists(pat)){
    filepath(pat)
    removeModal()
  } else {
    showNotification("未找到对应学校的数据文件", type = "error")
  }
})

修复完成后，所有依赖filepath()的响应式逻辑、图表都会在用户点击确认按钮后自动同步更新，不会再出现切换报错的问题。

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