如何在Shiny的DT可编辑表格中插入NaN/NA数值？

默认情况下，DT可编辑表格的数值型单元格输入空白时会自动转为0，要实现输入空白或指定内容来插入NaN/NA，只需要监听表格的编辑事件，自定义输入值的处理逻辑即可，具体代码如下：

完整示例代码 #

library(shiny)
library(DT)

ui <- fluidPage(
  tags$p("操作提示：输入空白、NA或NaN即可插入缺失值"),
  DTOutput("table1")
)

server <- function(input, output, session) {
  rv <- reactiveValues(
    data = iris[1:10, ]
  )
  
  output$table1 <- renderDT({
    datatable(rv$data, editable = TRUE)
  })
  
  # 监听单元格编辑事件，自定义值处理逻辑
  observeEvent(input$table1_cell_edit, {
    edit_info <- input$table1_cell_edit
    target_row <- edit_info$row
    target_col <- edit_info$col
    input_val <- edit_info$value
    
    # 把空白、NA、NaN统一转为数值型缺失值（NA_real_对应数值列的NaN/NA）
    if(input_val == "" || tolower(input_val) %in% c("na", "nan")) {
      rv$data[target_row, target_col] <- NA_real_
    } else {
      # 正常输入转为数值，避免字符型输入干扰
      rv$data[target_row, target_col] <- tryCatch(
        as.numeric(input_val),
        error = function(e) input_val  # 转换失败则保留原输入（适用于字符列）
      )
    }
  })
}

shinyApp(ui = ui, server = server)

关键逻辑说明 #

• 通过observeEvent(input$table1_cell_edit)捕获每一次单元格编辑操作，获取编辑的行、列和输入值
• 判断输入内容：如果是空字符串，或者输入了不区分大小写的"NA"/"NaN"，就将对应单元格赋值为NA_real_（这是R中数值型的缺失值，在表格中会显示为NA，本质等价于NaN）
• 正常数值输入会自动转为数值类型，避免出现字符型数值的问题
• 在UI中添加提示文字，方便用户快速掌握插入缺失值的操作方式

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