如何在Shiny中为DataFrame添加多行？现有代码仅替换行求排查

你当前的代码核心问题是使用了eventReactive生成DataFrame——每次点击「add」按钮时，这个响应式表达式都会重新创建一个只包含当前input$a值的新DataFrame，完全覆盖之前的结果，所以无法保留历史添加的行。

要实现追加行的功能，需要用reactiveValues存储可持续更新的数据集，每次点击按钮时往这个数据集里追加新行，而非每次重建新DataFrame。修正后的代码如下：

library(shiny)

ui <- fluidPage(
    numericInput("a", "a", 1),
    actionButton("add", "add"),
    tableOutput("sum")
)

server <- function(input, output, session) {
    # 创建响应式存储对象，初始为空DataFrame
    dat <- reactiveValues(df = data.frame(col = numeric(0)))
    
    # 监听add按钮点击，追加新行
    observeEvent(input$add, {
        # 将当前input$a的值作为新行，追加到已有数据中
        new_row <- data.frame(col = input$a)
        dat$df <- rbind(dat$df, new_row)
    })
    
    # 渲染表格，使用存储的数据集
    output$sum <- renderTable(dat$df)
}

shinyApp(ui, server)

• reactiveValues是Shiny中用于存储可修改响应式数据的对象，它的内容可以动态更新，不会像eventReactive那样每次触发都重新生成数据。
• observeEvent专门监听按钮点击这类事件，每次触发时执行追加行的操作，把新值合并到已有数据里。

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