如何使用Shiny模块实现对同一张表格的持续更新

核心逻辑说明 #

你遇到的核心问题是没有使用Shiny的响应式状态对象存储可变的表格数据，普通变量无法在多次事件触发之间保留修改结果，也无法触发响应式更新。
Shiny中针对这类需要持续修改、且修改后需要触发界面更新的可变状态，统一使用reactiveVal或reactiveValues存储即可。

关键修改点 #

仅需要调整TabButtonServer模块的逻辑：

TabButtonServer <- function(id, c1, c2) {
  stopifnot(is.reactive(c1))
  stopifnot(is.reactive(c2))
  
  moduleServer(id, function(input, output, session) {
    # 初始化表格，实际场景可替换为动态生成的响应式数据
    start_table <- cbind.data.frame(
      col1 = c("foo", "bar", "ham", "sandwich"),
      col2 = c("a", "b", "c", "d"),
      stringsAsFactors = FALSE
    )
    # 用reactiveVal存储表格，支持后续修改和响应式更新
    table_data <- reactiveVal(start_table)
    
    # 监听更新按钮点击
    observeEvent(input$tab_change, {
      # 取出当前最新的表格数据
      current_tab <- table_data()
      # 修改对应行的值
      current_tab[current_tab$col1 == c1(), "col2"] <- c2()
      # 将修改后的表格存回reactiveVal
      table_data(current_tab)
    })
    
    # 返回表格数据供其他模块调用
    return(table_data)
  })
}

若你实际场景中的初始表格是动态生成的（比如从数据库/接口拉取），仅需要将start_table替换为对应的响应式对象，初始化时改为table_data <- reactiveVal(start_table())即可，无需调整后续更新逻辑。

完整可运行代码 #

library(shiny)

## first drop down
ChooseUI1 <- function(id) {
  selectInput(NS(id, "choice1"),
              label=NULL,
              choices=c("foo", "bar", "ham", "sandwich"))
}

ChooseServer1 <- function(id) {
  moduleServer(id, function(input, output, session) {
    reactive({
      input$choice1
    })
  })
}

## second drop down
ChooseUI2 <- function(id) {
  selectInput(NS(id, "choice2"),
              label=NULL,
              choices=c("a", "b", "c", "d"))
}

ChooseServer2 <- function(id) {
  moduleServer(id, function(input, output, session) {
    reactive({
      input$choice2
    })
  })
}

## button to change table
TabButtonUi <- function(id){
  actionButton(NS(id, "tab_change"),
               label="Update Table")
}

TabButtonServer <- function(id, c1, c2) {
  stopifnot(is.reactive(c1))
  stopifnot(is.reactive(c2))
  
  moduleServer(id, function(input, output, session) {
    start_table <- cbind.data.frame(
      col1 = c("foo", "bar", "ham", "sandwich"),
      col2 = c("a", "b", "c", "d"),
      stringsAsFactors = FALSE
    )
    table_data <- reactiveVal(start_table)
    
    observeEvent(input$tab_change, {
      current_tab <- table_data()
      current_tab[current_tab$col1 == c1(), "col2"] <- c2()
      table_data(current_tab)
    })
    
    return(table_data)
  })
}

## view table
viewTabUi <- function(id){
  tableOutput(NS(id, "view_tab"))
}

viewTabServer <- function(id, tab) {
  stopifnot(is.reactive(tab))
  
  moduleServer(id, function(input, output, session) {
    output$view_tab <- renderTable(tab())
  })
}

## the app
ui <- navbarPage(
  title="test",
  tabPanel(title="first page",
           sidebarLayout(
             sidebarPanel(
               ChooseUI1("c1"),
               ChooseUI2("c2"),
               TabButtonUi("tab"),
               viewTabUi("view_tab")
             ),
             mainPanel(
               
             )
           )
  )
)

server <- function(input, output, session) {
  c1 <- ChooseServer1("c1")
  c2 <- ChooseServer2("c2")
  tab <- TabButtonServer("tab", c1, c2)
  viewTabServer("view_tab", tab)
}

shinyApp(ui, server)

效果验证 #

1. 初始化时表格显示默认的col1和col2对应值
2. 第一个下拉框选foo，第二个选b，点击更新按钮，foo对应col2变为b，其他行不变
3. 第一个下拉框选sandwich，第二个选a，点击更新按钮，sandwich对应col2变为a，之前修改的foo行仍保留b值，符合需求。

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