单击 R/Shiny 时隐藏数据表行

Question

我想让 R 数据表的一行在用户在 Shiny 上单击时消失。

最小的、可重现的示例：

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

server <- function(input, output) {
  
  output$DTOut <- DT::renderDataTable({datatable(iris)})
  
}

shinyApp(ui = ui, server = server)

谢谢！

Answer 1

library(DT)

js <- c(
  "table.on('click', 'tbody tr', function() {",
  "  table.row(this).remove().draw();",
  "});"
)

datatable(iris, callback = JS(js))