如何在R/Shiny中实现点击DataTable行后隐藏该行？

你之前的代码问题在于**callback参数的位置错误**——它应该是datatable()函数的参数，而非renderDataTable()的参数。以下是修正后的纯前端实现代码，点击行后该行会直接从表格中移除：

library(shiny)
library(DT)

ui <- fluidPage(
  DT::dataTableOutput("DTOut")
)

server <- function(input, output) {
  output$DTOut <- DT::renderDataTable({
    datatable(iris,
              callback = JS("
                table.on('click', 'tbody tr', function() {
                  // 移除当前点击的行并重新绘制表格，draw(false)避免重置分页/排序
                  table.row(this).remove().draw(false);
                })
              ")
    )
  })
}

shinyApp(ui = ui, server = server)

如果需要服务器端同步更新数据（比如后续业务逻辑要用到修改后的数据集），可以结合Shiny的反应式变量和行选择事件实现，代码如下：

library(shiny)
library(DT)

ui <- fluidPage(
  DT::dataTableOutput("DTOut")
)

server <- function(input, output) {
  # 用反应式变量存储可修改的数据集
  rv <- reactiveValues(data = iris)
  
  output$DTOut <- DT::renderDataTable({
    datatable(rv$data, selection = "single") # 设置单次选中一行
  })
  
  # 监听行选中事件，移除对应行数据
  observeEvent(input$DTOut_rows_selected, {
    if (!is.null(input$DTOut_rows_selected)) {
      rv$data <- rv$data[-input$DTOut_rows_selected, ]
    }
  })
}

shinyApp(ui = ui, server = server)

两种方案对比：

• 纯JS方案：仅前端视觉移除，服务器端原始数据不变，适合只需要前端展示效果的场景。
• 反应式数据方案：服务器端数据同步更新，适合需要基于修改后数据做后续操作的场景。

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