R Shiny中表格绑定变量更新后无法自动渲染如何解决

Shiny的响应式渲染系统只能感知响应式变量的变更，你当前使用普通全局变量存储过滤后的表格数据，修改变量时Shiny无法捕获变更事件，因此不会触发renderTable的重渲染逻辑，需要手动刷新页面才能看到更新。

使用Shiny提供的reactiveVal()响应式容器存储过滤后的表格数据，修改变量时Shiny会自动触发所有关联输出的重渲染，无需手动刷新。

library(shiny)
library(tidyverse)

DF <- mpg

ui <- fluidPage(
  numericInput("nrow", "Slice the top n rows of DF", value = 0),
  actionButton("submit", "Submit"),
  actionButton("p_DFflt", "print DFflt in console"),
  div('render DFflt：'),
  tableOutput("table")
)

server <- function(input, output, session) {
  # 初始化响应式变量，默认值为完整表格，满足首次加载展示全表需求
  df_flt <- reactiveVal(DF)
  
  observeEvent(input$submit, {
    nrow <- input$nrow
    if (nrow > 10) {
      showNotification("Invalid", type="error")
    } else {
      # 输入为0时展示全表，大于0时展示前n行，符合需求
      if (nrow == 0) {
        df_flt(DF)
      } else {
        df_flt(DF %>% head(nrow))
      }
    }
  })
  
  observeEvent(input$p_DFflt, { print(df_flt())} )
  
  output$table <- renderTable({df_flt()})
}

shinyApp(ui, server)

• 删除了全局普通变量DFflt，替换为server内定义的响应式变量df_flt，初始值设为完整表格，满足首次加载展示全表的需求
• 过滤逻辑中调整了0值的处理，输入0时返回全表，避免出现空表
• 修复了原代码中showNotification参数位置错误的问题，将type参数从str_c移到showNotification的入参中
• 所有读取、修改表格数据的位置都改用响应式变量的调用/赋值语法，确保Shiny能感知数据变更自动刷新页面

内容的提问来源于stack exchange，提问作者william-swl