R:在shinydashboard中删除时转到下一个数据表

library(shiny)
library(shinydashboard)

# UI界面
ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    tabItems(
      # 第一个选项卡
      tabItem(tabName = "table1",
              h2("数据表1"),
              dataTableOutput("table1")
      ),
      # 第二个选项卡
      tabItem(tabName = "table2",
              h2("数据表2"),
              dataTableOutput("table2")
      )
    )
  )
)

# 服务器端逻辑
server <- function(input, output, session) {
  # 生成数据表1的数据
  output$table1 <- renderDataTable({
    # 生成数据表1的数据
    # ...
  })
  
  # 生成数据表2的数据
  output$table2 <- renderDataTable({
    # 生成数据表2的数据
    # ...
  })
  
  # 监听删除操作的事件
  observeEvent(input$deleteButton, {
    # 删除当前选项卡
    removeTab(input$tabs, input$selectedTab)
    
    # 切换到下一个选项卡
    updateTabItems(session, "tabs", selected = "table2")
  })
}

# 运行应用程序
shinyApp(ui, server)