Shiny应用如何实现selectInput值复制粘贴到响应式DT表格

你可以通过响应式值监听+DT编辑事件回调的方式实现需求，不需要额外引入第三方依赖，核心逻辑分两部分：

• 监听下拉选择框input$fruit_name的选中值变化，自动更新存储表格的响应式数据源，将选中值逐行写入Name列，表格行数和选中值数量自动对齐
• 绑定DT表格的单元格编辑回调，保留表格手动编辑能力，避免手动修改的内容被响应式刷新覆盖

完整可运行代码 #

library(shiny)
library(DT)

# 初始化基础数据
df <- data.frame(
  "Name" = c("apple", "cherry"),
  "Value" = c(5, 6)
)

ui <- fluidPage(
  uiOutput("fruit"),
  fluidRow(DT::DTOutput("table1"))
)

server <- function(input, output, session) {
  # 存储表格的响应式数据源
  df1 <- reactiveValues(data = df)
  
  # 渲染可编辑DT表格
  output$table1 = DT::renderDT({
    DT::datatable(df1$data, editable = T)
  })
  
  # 渲染水果选择下拉框
  output$fruit <- renderUI({
    selectInput(
      inputId = "fruit_name",
      label = "Name",
      multiple = TRUE,
      choices = c("apple", "cherry", "pear", "peach", "banana"),
      selected = "apple"
    )
  })
  
  # 监听下拉框选中值变化，自动同步到表格Name列
  observeEvent(input$fruit_name, {
    selected_fruits <- input$fruit_name
    # 匹配原有数据中已存在水果的Value值，避免已填内容被清空
    exist_val <- df1$data$Value[match(selected_fruits, df1$data$Name)]
    # 新增的水果Value默认填0，可按需修改默认值规则
    exist_val[is.na(exist_val)] <- 0
    new_data <- data.frame(
      Name = selected_fruits,
      Value = exist_val
    )
    df1$data <- new_data
  })
  
  # 监听表格单元格编辑事件，同步手动修改的内容到响应式数据源
  observeEvent(input$table1_cell_edit, {
    info <- input$table1_cell_edit
    df1$data[info$row, info$col] <- info$value
  })
}

shinyApp(server = server, ui = ui)

逻辑说明 #

• 下拉框支持多选，选中几个水果，表格就自动生成对应行数，Name列直接填充选中的水果名称
• 切换选中项时，之前已经手动填写过的Value列内容会自动保留，不会被重置
• 表格原生编辑功能完全保留，手动修改任意单元格的内容都会实时同步到数据源，不会被刷新覆盖

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