删除带有actionButton闪亮R的outputTable

library(shiny)

ui <- fluidPage(
  actionButton("deleteButton", "删除"),
  DT::dataTableOutput("myTable")
)

server <- function(input, output) {
  output$myTable <- DT::renderDataTable({
    # 在这里可以编写生成outputTable的代码
    # 例如，可以使用以下代码生成一个简单的outputTable
    data <- data.frame(
      Name = c("Alice", "Bob", "Charlie"),
      Age = c(25, 30, 35)
    )
    DT::datatable(data)
  })
  
  observeEvent(input$deleteButton, {
    # 在这里处理点击删除按钮的事件
    # 可以使用以下代码删除outputTable
    output$myTable <- NULL
  })
}

shinyApp(ui, server)