如何在Shiny应用中通过刷新按钮更新SQL数据？

你现在的问题出在两点：

1. 全局环境里的myMap和theCol是应用启动时才加载的，之后不会自动更新；
2. 服务器端的写法完全错了——在observeEvent里定义reactive，只会创建一个局部的响应式对象，既不会替换全局的旧数据，也触发不了UI的更新。

reactiveVal就是用来存需要动态更新的数据的，它的值一变，所有依赖它的UI或计算逻辑都会自动重新运行。下面是改好的完整代码：

1. global.R #

不用在全局提前加载数据，把数据逻辑全移到服务器端：

# global.R 只放不随数据变化的全局配置就行，比如数据库连接的通用设置

2. ui.R #

保留你的刷新按钮，这里加个示例UI（比如下拉框），实际你可以换成自己需要用theCol渲染的元素：

ui <- fluidPage(
  actionButton(inputId = "refreshData", label = "Refresh Data"),
  # 示例：依赖theCol的下拉框，替换成你自己的UI组件
  selectInput("colPicker", "选择列", choices = NULL)
)

3. server.R #

用reactiveVal存数据，点击按钮时重新拉取SQL数据并更新：

server <- function(input, output, session) {
  # 创建响应式变量，用来存动态更新的数据
  myMap_data <- reactiveVal()
  theCol_data <- reactiveVal()
  
  # 封装数据加载的函数，避免重复写代码
  refresh_sql_data <- function() {
    # 把这里换成你实际的SQL查询代码
    new_myMap <- DBI::dbGetQuery(your_db_connection, "SELECT * FROM your_table_name")
    new_theCol <- sort(unique(new_myMap$col))
    
    # 更新响应式变量的值
    myMap_data(new_myMap)
    theCol_data(new_theCol)
    
    # 如果有需要更新的UI组件（比如下拉框），手动更新选项
    updateSelectInput(session, "colPicker", choices = new_theCol)
  }
  
  # 应用启动时先加载一次初始数据
  refresh_sql_data()
  
  # 点击刷新按钮时，重新加载数据
  observeEvent(input$refreshData, {
    refresh_sql_data()
  })
  
  # 示例：如果要在服务器端用最新数据，直接调用myMap_data()或theCol_data()
  output$latest_table <- renderTable({
    myMap_data()
  })
}

• 更新reactiveVal的值要用变量名(新值)，获取当前值用变量名()；
• 把数据加载逻辑封装成函数，初始加载和按钮刷新都调用它，减少冗余；
• 如果UI组件的选项依赖theCol，要么用updateXXXInput手动更新，要么让UI组件直接依赖theCol_data()（比如用renderUI动态生成）。

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