Shiny应用中实现点击按钮多次重新加载数据库数据

你的问题出在reactivePoll的checkFunc逻辑上：第一次点击按钮后，input$load_data始终为真，checkFunc一直返回固定值，没有变化，所以reactivePoll不会再次调用valueFunc加载新数据。下面提供两种纯Shiny+dplyr的解决方案：

方案一：修正reactivePoll的checkFunc #

利用actionButton的点击次数（每次点击值会自动递增）作为checkFunc的返回值，每次点击都会让返回值变化，从而触发数据刷新：

library(shiny)
library(odbc)
library(DBI)
library(dplyr)

ui <- fluidPage(
  actionButton("load_data", "点击加载最新数据"),
  tableOutput("data_table")
)

server <- function(input, output, session) {
  # 初始化数据库连接（根据你的实际配置修改）
  con <- dbConnect(odbc::odbc(), 
                   Driver = "SQL Server",
                   Server = "你的服务器地址",
                   Database = "你的数据库名",
                   UID = "用户名",
                   PWD = "密码")
  
  # 修正后的reactivePoll
  data_from_db <- reactivePoll(
    intervalMillis = Inf,  # 关闭定时轮询，完全由按钮触发
    session = session,
    checkFunc = function(){
      input$load_data  # 返回按钮点击次数，每次点击值递增
    },
    valueFunc = function(){
      # 用dplyr语法从数据库取数并转为本地数据框
      tbl(con, "你的表名") %>% 
        collect()
    }
  )
  
  output$data_table <- renderTable(data_from_db())
  
  # 会话结束时关闭数据库连接，避免资源泄漏
  onSessionEnded(function() {
    dbDisconnect(con)
  })
}

shinyApp(ui, server)

方案二：用eventReactive更直接实现 #

既然是手动点击按钮触发，用eventReactive比reactivePoll更贴合需求，逻辑更清晰：

library(shiny)
library(odbc)
library(DBI)
library(dplyr)

ui <- fluidPage(
  actionButton("load_data", "点击加载最新数据"),
  tableOutput("data_table")
)

server <- function(input, output, session) {
  # 初始化数据库连接
  con <- dbConnect(odbc::odbc(), 
                   Driver = "SQL Server",
                   Server = "你的服务器地址",
                   Database = "你的数据库名",
                   UID = "用户名",
                   PWD = "密码")
  
  # 点击按钮时触发数据加载
  data_from_db <- eventReactive(input$load_data, {
    tbl(con, "你的表名") %>% 
      collect()
  }, ignoreNULL = FALSE)  # 允许未点击按钮时加载初始数据，不需要可设为TRUE
  
  output$data_table <- renderTable(data_from_db())
  
  onSessionEnded(function() {
    dbDisconnect(con)
  })
}

shinyApp(ui, server)

关键说明 #

• 方案一中设置intervalMillis = Inf，关闭定时轮询，避免不必要的数据库查询，完全依赖按钮点击触发刷新。
• 两种方案都使用dplyr的tbl()和collect()操作数据库，既符合dplyr语法风格，也方便后续数据清洗或转换。

内容的提问来源于stack exchange，提问作者C. Sebastian