如何获取Shiny中reactable.extras下拉列的所有更新值？

直接上修改后的代码，核心是用reactiveVal跟踪全量数据的变化：

library(shiny)
library(dplyr)
library(reactable)
library(reactable.extras)

df <- mtcars %>% select(mpg, cyl, carb)

shinyApp(
  ui = fluidPage(
    reactable_extras_dependency(),
    reactableOutput("react"),
    # 新增按钮和输出，验证可获取全量更新后的数据
    actionButton("show_data", "查看更新后的数据"),
    verbatimTextOutput("updated_data")
  ),
  server = function(input, output) {
    # 用reactiveVal存储更新后的完整数据，初始值为原始数据集
    updated_df <- reactiveVal(df)
    
    # 监听下拉框选择变化，更新对应行的数据
    observeEvent(input$dropdown1, {
      # input$dropdown1返回包含row(行索引)和value(选中值)的列表
      current_data <- updated_df()
      current_data[input$dropdown1$row, "carb"] <- input$dropdown1$value
      updated_df(current_data)
    })
    
    # 渲染表格时绑定更新后的数据
    output$react <- renderReactable({
      reactable(
        updated_df(),
        columns = list(
          carb = colDef(cell = dropdown_extra(id = "dropdown1", unique(df$carb), class = "dropdown-extra"))
        )
      )
    })
    
    # 验证：点击按钮输出全量更新后的数据
    output$updated_data <- renderPrint({
      input$show_data
      updated_df()
    })
  }
)

关键说明： #

• reactiveVal(updated_df)：用来持久化存储每次更新后的完整数据框，这是解决问题的核心，避免只拿到最后一次操作的单元格值。
• observeEvent(input$dropdown1, ...)：每次下拉框选择变化时，input$dropdown1会返回包含行索引和选中值的列表，我们用这个信息更新updated_df中对应行的目标列。
• 表格绑定updated_df()：表格会自动同步显示最新修改，同时你可以在任何地方调用updated_df()获取全量的更新后数据，比如示例中点击按钮后输出完整数据集。

这样就能随时获取整个表格的最新状态，不再局限于最后操作的单元格值。

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