咨询：如何在R Shiny输出表格中添加每行文本输入列？

当然可以实现！这在R Shiny里是非常常见的需求，我给你分享两个实战中常用的方案，帮你快速搞定这个功能～

DT是Shiny生态里做交互式表格的首选工具，它原生支持单元格编辑，用它来实现这个需求最简便。下面是完整的可运行示例代码：

library(shiny)
library(DT)

ui <- fluidPage(
  titlePanel("带评论输入的表格"),
  DTOutput("comment_table")
)

server <- function(input, output, session) {
  # 初始化示例数据，提前预留空的评论列
  raw_data <- data.frame(
    产品ID = c(101, 102, 103),
    产品名称 = c("笔记本", "手机", "平板"),
    价格 = c(5999, 3999, 2999),
    评论 = rep("", 3)
  )
  
  # 用reactiveValues存储用户输入的评论，保证数据能实时响应更新
  user_comments <- reactiveValues(data = raw_data)
  
  output$comment_table <- renderDT({
    datatable(
      user_comments$data,
      # 指定只有评论列（第3列，索引从0开始）可编辑
      editable = list(target = "cell", disable = list(columns = c(0,1,2))),
      options = list(
        columnDefs = list(list(targets = 3, className = "dt-center"))  # 让评论列内容居中
      )
    )
  })
  
  # 监听单元格编辑事件，把用户输入同步到存储对象中
  observeEvent(input$comment_table_cell_edit, {
    info <- input$comment_table_cell_edit
    row <- info$row
    col <- info$col
    value <- info$value
    
    user_comments$data[row, col] <- value
  })
}

shinyApp(ui, server)

这段代码的核心逻辑：

• 提前在数据中新增空的评论列
• 用reactiveValues保存动态数据，确保用户输入后表格能实时刷新
• 通过editable参数严格控制只有评论列允许编辑，避免误改其他数据

如果你需要对输入框有更灵活的控制（比如添加占位符、限制输入长度、自定义样式），可以用renderUI动态为每行生成独立的textInput控件：

library(shiny)

ui <- fluidPage(
  titlePanel("自定义评论输入表格"),
  tableOutput("data_table"),
  # 新增一个按钮，方便查看所有用户输入的评论
  actionButton("view_comments", "查看所有评论"),
  verbatimTextOutput("comment_output")
)

server <- function(input, output, session) {
  # 示例基础数据
  raw_data <- data.frame(
    产品ID = c(101, 102, 103),
    产品名称 = c("笔记本", "手机", "平板"),
    价格 = c(5999, 3999, 2999)
  )
  
  # 存储用户评论的reactiveValues对象
  user_comments <- reactiveValues(comments = rep("", nrow(raw_data)))
  
  output$data_table <- renderTable({
    # 为每行生成唯一ID的textInput输入框
    raw_data$评论 <- lapply(1:nrow(raw_data), function(i) {
      textInput(
        inputId = paste0("comment_", i), 
        label = NULL, 
        placeholder = "输入你的评论..."
      )
    })
    raw_data
  }, sanitize.text.function = function(x) x)  # 必须禁用HTML转义，否则输入框无法正常渲染
  
  # 监听所有评论输入框的变化，实时更新存储的评论内容
  observe({
    for (i in 1:nrow(raw_data)) {
      user_comments$comments[i] <- input[[paste0("comment_", i)]]
    }
  })
  
  # 点击按钮后展示所有评论
  output$comment_output <- renderPrint({
    req(input$view_comments)
    names(user_comments$comments) <- raw_data$产品名称
    cat("用户评论汇总：\n")
    print(user_comments$comments)
  })
}

shinyApp(ui, server)

这个方案的优势在于完全自定义输入控件的行为，你可以根据需要修改textInput的参数，比如添加width设置输入框宽度，或者调整输入框的样式。

两种方案各有侧重：DT方案简洁高效，适合快速实现基础需求；原生控件方案灵活性更强，适合需要定制化的场景，你可以根据自己的实际需求选择～

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