在shiny How to create a DT table中，我可以同时添加行和删除行

library(shiny)
library(DT)

ui <- fluidPage(
  actionButton("addBtn", "添加行"),
  actionButton("removeBtn", "删除行"),
  DTOutput("table")
)

server <- function(input, output, session) {
  data <- data.frame(
    id = 1:5,
    name = c("John", "Amy", "Tom", "Emily", "Mike"),
    stringsAsFactors = FALSE
  )
  
  observeEvent(input$addBtn, {
    data <- addRow(data, name = "")
  })
  
  observeEvent(input$removeBtn, {
    selectedRows <- input$table_rows_selected
    if (length(selectedRows) > 0) {
      data <- removeRow(data, rows = selectedRows)
    }
  })
  
  output$table <- renderDT({
    datatable(data, editable = TRUE, selection = "multiple")
  })
}

shinyApp(ui, server)