自动更新DT在使用Shiny时有效，但在具有多个选项卡的shinydashboard中不起作用

library(shiny)
library(shinydashboard)
library(DT)
library(shinyjs)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    useShinyjs(),  # 使用shinyjs
    actionButton("update_btn", "更新表格"),  # 创建更新按钮
    tabItems(
      # 第一个选项卡
      tabItem(
        tabName = "tab1",
        DT::dataTableOutput("table1")
      ),
      # 第二个选项卡
      tabItem(
        tabName = "tab2",
        DT::dataTableOutput("table2")
      )
    )
  )
)

server <- function(input, output) {
  # 在选项卡1中生成初始表格
  output$table1 <- DT::renderDataTable({
    datatable(
      iris,
      options = list(pageLength = 5)
    )
  })

  # 在选项卡2中生成初始表格
  output$table2 <- DT::renderDataTable({
    datatable(
      mtcars,
      options = list(pageLength = 5)
    )
  })

  # 触发器行为：点击按钮时更新表格
  observeEvent(input$update_btn, {
    # 更新选项卡1中的表格
    output$table1 <- DT::renderDataTable({
      datatable(
        iris,
        options = list(pageLength = 10)
      )
    })

    # 更新选项卡2中的表格
    output$table2 <- DT::renderDataTable({
      datatable(
        mtcars,
        options = list(pageLength = 10)
      )
    })
  })
}

shinyApp(ui, server)