如何在Shiny应用中动态创建可编辑DT并实现联动反应？

以下是实现需求的完整可运行代码，包含分组选择、动态标签页、可编辑DT及联动响应DT的功能：

library(shiny)
library(DT)

# 模拟测试数据
raw_data <- data.frame(
  Group = rep(c("A", "B", "C"), each = 3),
  Value1 = c(1,2,3,4,5,6,7,8,9),
  Value2 = c(10,20,30,40,50,60,70,80,90),
  Note = rep("初始值", 9)
)

ui <- fluidPage(
  titlePanel("动态分组编辑与联动"),
  sidebarLayout(
    sidebarPanel(
      selectInput("selected_groups", "选择分组", 
                  choices = unique(raw_data$Group),
                  multiple = TRUE, selected = "A")
    ),
    mainPanel(
      uiOutput("dynamic_tabs")
    )
  )
)

server <- function(input, output, session) {
  # 用reactiveValues存储各分组的可编辑数据
  rv <- reactiveValues(data = list())
  
  # 初始化：根据原始数据拆分分组数据到rv$data
  observe({
    groups <- input$selected_groups
    if(!is.null(groups)){
      for(g in groups){
        rv$data[[g]] <- raw_data[raw_data$Group == g, ]
      }
      # 移除未选中的分组数据
      rv$data <- rv$data[names(rv$data) %in% groups]
    }
  })
  
  # 动态生成标签页
  output$dynamic_tabs <- renderUI({
    groups <- input$selected_groups
    if(is.null(groups)) return(NULL)
    
    tabsetPanel(
      lapply(groups, function(g){
        tabPanel(title = paste("分组", g),
                 h4("可编辑数据表"),
                 DTOutput(paste0(g, "_edit_table")),
                 br(),
                 h4("响应式数据表（数值列乘2）"),
                 DTOutput(paste0(g, "_response_table"))
        )
      })
    )
  })
  
  # 渲染每个分组的可编辑DT并绑定监听事件
  observe({
    groups <- input$selected_groups
    if(is.null(groups)) return(NULL)
    
    lapply(groups, function(g){
      # 渲染可编辑DT
      output[[paste0(g, "_edit_table")]] <- renderDT({
        datatable(rv$data[[g]], editable = TRUE, rownames = FALSE)
      })
      
      # 监听可编辑DT的单元格编辑事件
      observeEvent(input[[paste0(g, "_cell_edit")]], {
        info <- input[[paste0(g, "_cell_edit")]]
        # 更新rv$data中对应分组的数据
        rv$data[[g]][info$row, info$col] <- info$value
      })
      
      # 渲染响应式DT
      output[[paste0(g, "_response_table")]] <- renderDT({
        data <- rv$data[[g]]
        # 对数值列乘2
        num_cols <- sapply(data, is.numeric)
        data[num_cols] <- data[num_cols] * 2
        datatable(data, editable = FALSE, rownames = FALSE)
      })
    })
  })
}

shinyApp(ui, server)

功能实现说明 #

1. 可编辑DT的数据更新：

   • 使用reactiveValues存储每个分组的底层数据，确保编辑操作能直接修改响应式数据源。
   • 针对每个动态生成的DT，通过input[[paste0(g, "_cell_edit")]]动态监听编辑事件，捕获编辑的行、列和新值，实时更新rv$data中对应分组的数据。

2. 联动更新响应式DT：

   • 响应式DT的渲染依赖rv$data，当rv$data因编辑操作更新时，响应式DT会自动重新计算（数值列乘2）并刷新。

原代码无法获取input信息的原因 #

1. 动态组件的input引用方式错误：
   原代码可能直接使用硬编码的input$xxx_cell_edit，但动态生成的DT的id随分组变化，必须通过input[[动态id]]的方式引用，否则无法捕获到动态生成的input对象。

2. 未使用reactiveValues存储底层数据：
   如果原代码没有用reactiveValues维护状态，而是直接依赖原始数据或普通变量，编辑操作无法触发数据的响应式更新，导致后续联动逻辑失效。

3. 监听事件的时机问题：
   若原代码的监听事件在renderUI之前定义，此时动态DT的input对象尚未生成，监听会绑定到不存在的对象上，自然无法捕获编辑事件。正确做法是在DT渲染的同时，动态创建对应的监听事件。

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