如何在shiny中渲染modalDialog中的不同表格

library(shiny)

# UI部分
ui <- fluidPage(
  actionButton("showModalBtn", "显示modal对话框")
)

# Server部分
server <- function(input, output, session) {
  
  observeEvent(input$showModalBtn, {
    showModal(
      modalDialog(
        title = "不同表格示例",
        tabsetPanel(
          tabPanel("表格1", tableOutput("table1")),
          tabPanel("表格2", tableOutput("table2"))
        )
      )
    )
  })
  
  output$table1 <- renderTable({
    # 渲染表格1的数据
    # ...
    # 返回一个数据框
    datatable(data.frame(x = 1:5, y = letters[1:5]))
  })
  
  output$table2 <- renderTable({
    # 渲染表格2的数据
    # ...
    # 返回一个数据框
    datatable(data.frame(a = 1:3, b = LETTERS[1:3]))
  })
}

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