R Shiny编辑datatable单元格值后立即更新指定列单元格颜色的问题

问题根因 #

你当前的代码中，tcolor列的计算、DT表格的初始化渲染都仅在Shiny服务端启动时执行1次，编辑单元格后没有触发这部分逻辑重新运行，所以颜色只能重启应用后读取新存的RDS才更新。

解决方案 #

把存储数据的d9改为响应式变量，每次单元格编辑后更新响应式变量，同时把DT的渲染逻辑放在renderDT内部，依赖响应式变量自动重新计算颜色、重新渲染表格。

修改后完整代码如下：

dt_output = function(title, id) {
  fluidRow(column(
    12, h1(paste0(title)),
    hr(), DTOutput(id)
  ))
}

render_dt = function(data, editable = 'cell', server = TRUE, ...) {
  renderDT(data,selection = 'none', server = server, editable = editable, ...)
}

ui = fluidPage(
  downloadButton("mcp_csv", "Download as CSV", class="but"),
  dt_output('Report', 'x9')
)

server = function(input, output, session) {
  d1 = readRDS("cmp.rds")
  # 定义为响应式变量，值变化后自动触发依赖它的逻辑重跑
  d9 = reactiveVal(d1)
  
  observeEvent(input$x9_cell_edit, {
    # 编辑后更新响应式d9并持久化存储
    updated_d9 = editData(d9(), input$x9_cell_edit, 'x9', rownames = FALSE)
    d9(updated_d9)
    saveRDS(updated_d9, 'cmp.rds', version = 2)
  })
  
  output$x9 = render_dt({
    # 每次d9变化时重新计算tcolor、生成带格式的DT
    current_d9 = d9()
    current_d9$tcolor <- ifelse(current_d9$R > 2500000, 2,
                        ifelse(current_d9$Y > 2000000 & current_d9$Y <= 2500000, 0,
                               ifelse(current_d9$G <= 2000000, 1)))
    datatable(current_d9, editable = 'cell', rownames = FALSE, extensions = 'Buttons', options = list(dom = 'Bfrtip', buttons = I('colvis'))) %>% formatStyle(
      'R/Y/G', 'tcolor',
      backgroundColor = styleEqual(c(0,1,2), c('yellow', 'green', 'red')),fontWeight = 'bold'
    )
  })
}

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