在Shiny中删除输出表中的一行或多行

library(shiny)

ui <- fluidPage(
  tableOutput("table"),
  actionButton("deleteBtn", "删除行")
)

server <- function(input, output) {
  # 生成输出表的内容
  output$table <- renderTable({
    # 这里使用一个示例数据框
    data <- data.frame(
      Name = c("John", "Jane", "Tom", "Alice"),
      Age = c(25, 30, 35, 40)
    )
    data
  })
  
  # 监听删除行按钮的点击事件
  observeEvent(input$deleteBtn, {
    # 获取要删除的行的索引
    selectedRows <- input$table_rows_selected
    
    # 如果有选中的行
    if (length(selectedRows) > 0) {
      # 从数据框中删除选中的行
      data <- subset(data, !row.names(data) %in% selectedRows)
      
      # 更新输出表
      output$table <- renderTable({
        data
      })
    }
  })
}

shinyApp(ui, server)