DT Shiny表格编辑需求：Even列为Yes时自动将x列值加1

要实现你需要的逻辑，只需对原代码的observeEvent部分做针对性修改，核心思路是监听Even列的编辑操作，根据新值决定是否对x列做加1处理：

修改要点 #

• 监听Even列（对应DT的列索引1，因为DT的列索引从0开始，原数据中Even是第二列）的编辑事件
• 当编辑后的值为Yes时，将对应行的x列数值加1；若为No，仅更新Even列的值，保持x列不变
• 最后通过dataTableProxy将更新后的数据同步到前端表格

完整代码 #

library(shiny)
library(DT)

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

server <- function(input, output, session) {

  # 初始化数据
  tableData = reactiveValues(
    myData = data.frame(
      x = 1:10,
      even = rep(c("no", "yes"), 5),  # 修正初始数据，让每行都有对应值
      stringsAsFactors = FALSE  # 避免因子类型导致的编辑问题
    )
  )
  
  # 创建表格代理用于更新
  proxy = dataTableProxy('myTable')
  
  # 渲染表格
  output$myTable = renderDT({
    isolate(tableData$myData)
  }, editable = "cell")
  
  
  # 监听单元格编辑事件
  observeEvent(input$myTable_cell_edit, {
    
    cell = input$myTable_cell_edit
    row_idx = cell$row
    col_idx = cell$col
    new_val = trimws(cell$value)  # 去除输入值的前后空格
    
    # 仅处理Even列（第二列，DT索引为1）的编辑
    if(col_idx == 1){
      # 复制当前行数据，避免直接修改原数据引发的反应式冲突
      current_row = tableData$myData[row_idx, ]
      
      # 根据新的Even值更新x列
      if(tolower(new_val) == "yes"){  # 不区分大小写判断
        current_row$x = current_row$x + 1
        current_row$even = "yes"
      } else if(tolower(new_val) == "no"){
        current_row$even = "no"
        # x列保持不变
      }
      
      # 更新reactiveValues中的数据
      tableData$myData[row_idx, ] = current_row
      
      # 将更新后的数据同步到前端表格
      replaceData(proxy, tableData$myData)
    }
    
  })
  
}

shinyApp(ui, server)

额外说明 #

• 修正了初始数据的even列，让10行都有对应值（原代码仅设置了前2行）
• 添加了stringsAsFactors = FALSE避免因子类型导致的编辑异常
• 用tolower()和trimws()处理输入值，兼容大小写和空格输入，提升鲁棒性

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