如何在Shiny中创建带提示框与常驻输入框的可编辑DataTable

要实现Value列默认显示输入框、无需双击即可编辑的效果，我们可以直接将该列单元格渲染为HTML输入框，同时配合Shiny的输入监听同步数据。以下是修改后的完整代码：

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

# 初始化数据
data <- data.frame(
  Param = c("FVC", "FEV1", "FEV1/FVC ratio"),
  Tooltip = c("forced vital capacity", "forced expiratory volume exhaled in the first second", "tiffeneau index"),
  Unit = c("l", "l", "%"),
  Value = c("", "", "")  # 初始化为空字符串，方便填充输入框
)

# UI
ui <- dashboardPage(
  dashboardHeader(title = "Test"),
  dashboardSidebar(disable = TRUE),
  dashboardBody(
    DTOutput("table")
  )
)

# Server
server <- function(input, output, session) {
  # 用反应式对象存储数据，实时同步输入值
  rv <- reactiveValues(data = data)
  
  # 监听每个输入框的变化，更新反应式数据
  observe({
    for(i in seq_len(nrow(rv$data))) {
      input_id <- paste0("value_", i)
      if(!is.null(input[[input_id]])) {
        rv$data$Value[i] <- input[[input_id]]
      }
    }
  })
  
  output$table <- renderDT({
    # 重新渲染Value列的输入框，保留已输入的值
    rv$data$Value <- sapply(seq_len(nrow(rv$data)), function(i) {
      sprintf('<input type="text" id="value_%d" class="dt-input" value="%s" placeholder="输入测量值" style="width:80px;">', 
              i, rv$data$Value[i])
    })
    
    datatable(
      rv$data,
      options = list(
        dom = 't',
        paging = FALSE,
        ordering = FALSE,
        columnDefs = list(
          # 锁定其他列，禁止交互
          list(targets = c(0,1,2), orderable = FALSE, searchable = FALSE)
        )
      ),
      selection = 'none',
      rownames = FALSE,
      escape = FALSE  # 关键：允许DT渲染HTML元素
    )
  }, server = FALSE)
}

# 启动Shiny应用
shinyApp(ui = ui, server = server)

核心改动说明 #

• HTML输入框渲染：将Value列的每个单元格替换为带唯一ID的<input>标签，通过escape = FALSE参数让DT识别并渲染这些HTML内容，实现输入框常驻显示。
• 反应式数据同步：使用reactiveValues存储表格数据，监听每个输入框的变化并实时更新数据，确保输入值能被Shiny捕获和保存。
• 状态保留：每次渲染表格时，将已输入的值填充回对应输入框，避免数据丢失。

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