如何让R Shiny的DT可编辑且仅接受正数输入？

要实现数值列仅接受正数输入的可编辑DT表格，你可以通过客户端JavaScript即时验证或者服务器端二次校验来实现，下面是具体方案：

客户端即时验证（友好提示+阻止无效输入） #

通过DT的editable参数配置回调函数，在用户编辑完成后立即校验输入值，非正数则拒绝修改并给出提示。完整代码如下：

library(shiny)
library(DT)

ui <- fluidPage(
  DTOutput("table")
)

server <- function(input, output) {
  output$table <- renderDT({
    datatable(
      iris,
      # 配置单元格编辑，指定回调函数
      editable = list(
        target = "cell",
        callback = JS("function(settings, json) {
          // 获取编辑的单元格值和列索引
          var value = json.value;
          var colIdx = json.col;
          // 定义需要校验的数值列索引（iris前4列是数值列）
          var numericCols = [0,1,2,3];
          // 检查当前列是否是数值列，且输入值不是正数
          if(numericCols.includes(colIdx) && (isNaN(value) || Number(value) <= 0)) {
            alert('请输入正数！');
            // 返回false阻止表格更新
            return false;
          }
          return true;
        }")
      ),
      options = list(
        columnDefs = list(
          list(targets = 1:4, className = "dt-right") # 数值列右对齐
        )
      )
    )
  })
}

shinyApp(ui, server)

关键说明 #

• JS回调函数：监听单元格编辑事件，获取输入值和列索引，判断是否属于数值列且输入为非正数，若是则弹出提示并返回false阻止表格更新。
• 数值列指定：numericCols数组对应表格的列索引（从0开始），根据你的实际数据调整即可。
• 输入合法性判断：同时检查是否为数字（isNaN(value)）和是否大于0，避免非数字输入。

服务器端二次校验（防止客户端验证被绕过） #

如果需要更严谨的校验，可以在服务器端处理编辑事件时再次检查输入，不符合要求则不更新数据：

library(shiny)
library(DT)

ui <- fluidPage(
  DTOutput("table")
)

server <- function(input, output) {
  # 初始化可编辑数据
  editable_data <- reactiveVal(iris)
  
  output$table <- renderDT({
    datatable(
      editable_data(),
      editable = "cell",
      options = list(
        columnDefs = list(
          list(targets = 1:4, className = "dt-right")
        )
      )
    )
  })
  
  # 处理单元格编辑事件
  observeEvent(input$table_cell_edit, {
    info <- input$table_cell_edit
    row <- info$row
    col <- info$col
    value <- info$value
    
    # 校验：数值列必须输入正数
    if(col %in% 1:4) { # 表格列索引从1开始（对应iris前4列）
      num_value <- as.numeric(value)
      if(is.na(num_value) || num_value <= 0) {
        showNotification("请输入正数！", type = "error")
        return() # 不更新数据
      }
    }
    
    # 合法则更新数据
    temp_data <- editable_data()
    temp_data[row, col] <- value
    editable_data(temp_data)
  })
}

shinyApp(ui, server)

关键说明 #

• reactiveVal存储数据：用reactiveVal保存可编辑数据，确保修改后表格能实时更新。
• 编辑事件监听：通过observeEvent(input$table_cell_edit)获取编辑信息，校验通过后才更新数据，否则弹出错误通知。

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