Shiny如何导出含selectizeInput取值与手动编辑的表格并简化代码

• 导出缺失手动编辑内容：未监听DT表格的单元格编辑事件，存储数据的响应式对象fruit_df$df从未同步表格手动修改的内容，导出时只能拿到初始值/按钮更新的值。
• 代码冗余：4个结构完全一致的selectizeInput硬编码重复编写、更新数据时重复硬编码水果名称列表，后续维护需要修改多处。

核心优化逻辑：

1. 抽离公共水果列表为全局常量，批量生成选择输入框，消除重复UI代码
2. 新增DT单元格编辑事件监听，所有手动修改的表格内容实时同步到响应式数据框
3. 简化更新按钮的取值逻辑，自动匹配水果对应输入控件的值，无需逐个硬编码读取input
4. 导出逻辑直接读取同步了所有修改（下拉框更新+手动表格编辑）的响应式数据框即可

完整可运行代码：

library(shiny)
library(shinydashboard)
library(DT)

# 抽离公共常量，后续增删水果仅需修改此处
fruit_list <- c("apple", "cherry", "pineapple", "pear")
init_lbs <- c(2, 5, 6, 3)

ui <- dashboardPage(
  dashboardHeader(title = "test"),
  dashboardSidebar(),
  dashboardBody(
    # 批量生成水果重量选择框，替代重复硬编码
    lapply(seq_along(fruit_list), function(i){
      selectizeInput(
        inputId = paste0(fruit_list[i], "_lbs_filter"),
        label = paste0(tools::toTitleCase(fruit_list[i]), " lbs"),
        choices = 1:10,
        selected = init_lbs[i] # 初始值和表格默认值对齐
      )
    }),
    DTOutput("fruit"),
    actionButton(inputId = "update_lbs", label = "Update lbs"),
    downloadButton(outputId = "export", label = "CSV")
  )
)

server <- function(input, output, session) {
  fruit_df <- reactiveValues(df = data.frame(
    fruit_name = fruit_list,
    fruit_lbs = init_lbs
  ))
  
  # 渲染可编辑表格
  output$fruit <- renderDT({
    datatable(fruit_df$df, editable = TRUE)
  })
  
  # 监听表格手动编辑，实时同步到响应式数据
  observeEvent(input$fruit_cell_edit, {
    fruit_df$df <- editData(fruit_df$df, input$fruit_cell_edit, "fruit")
  })
  
  # 监听更新按钮，批量读取下拉框值更新数据
  observeEvent(input$update_lbs, {
    fruit_df$df$fruit_lbs <- as.numeric(sapply(fruit_list, function(f){
      input[[paste0(f, "_lbs_filter")]]
    }))
  })
  
  # 导出CSV，此时数据已同步所有修改
  output$export <- downloadHandler(
    filename = function(){paste0("fruit_", Sys.Date(), ".csv")},
    content = function(file){
      write.csv(fruit_df$df, file, row.names = FALSE)
    }
  )
}

shinyApp(ui, server)

• 直接在表格中双击修改任意单元格内容，修改会实时存入响应式数据
• 调整各下拉框的重量值后点击Update lbs，会批量更新表格对应水果的重量
• 点击CSV导出时，导出的文件包含上述两类所有修改，不会丢失手动编辑内容
• 后续如果需要新增/删除水果种类，仅需修改顶部fruit_list和init_lbs两个常量即可，无需改动其他业务逻辑

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