R Shiny：实现eventReactive输出的初始渲染与按需更新

我懂你的痛点——想要App一启动就立刻显示初始表格，只有点击Trigger按钮时才更新数据，但现在renderTable里要么放dt（会自动跟着原始数据变化，不符合触发更新的要求），要么放re()（初始时没有内容，因为eventReactive只有触发才运行），两头为难对吧？

其实用reactiveVal就能完美解决这个问题，它可以帮我们把表格数据变成“可控的响应式对象”——初始时设置成原始数据，只有触发动作时才更新它。下面是修改后的完整代码：

library(shiny)
library(data.table)

dt <- data.table(x = c("a", "b"), y = c(0,0))

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "inSelect", label = "Select:", choices = dt[,unique(x)]),
      actionButton(inputId = "trigger", label = "Trigger", icon = icon("refresh"))
    ),
    mainPanel(
      tableOutput("outTable")
    )
  )
)

server <- function(input, output){
  # 初始化响应式变量，初始值为原始dt
  table_data <- reactiveVal(dt)
  
  # 监听Trigger按钮，点击时更新响应式变量
  observeEvent(input$trigger, {
    # 注意要复制原始dt，避免修改全局的dt（data.table是引用类型）
    updated_dt <- copy(dt)
    updated_dt[x == input$inSelect, y := y + 1]
    # 更新响应式变量的值
    table_data(updated_dt)
  })
  
  # 渲染表格，依赖响应式变量table_data()
  output$outTable <- renderTable({
    table_data()
  })
}

shinyApp(ui, server)

关键逻辑说明： #

• reactiveVal(dt)：创建一个响应式容器，初始值就是我们的原始表格dt，所以App启动时table_data()会直接返回初始数据，表格就能立刻渲染。
• observeEvent(input$trigger, {...})：只有点击Trigger按钮时，才会执行内部的更新逻辑——复制原始数据、修改对应行的y值，然后把新数据赋值给table_data。
• renderTable({table_data()})：因为依赖了table_data这个响应式变量，所以初始时显示初始值，每次table_data被更新时，表格也会跟着刷新。

这样就完美实现了你要的效果：启动即显示初始表格，仅在点击Trigger时更新表格。

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