在使用模式对话框进行用户输入的R闪亮应用中，如何在第一次调用时显示默认表？

library(shiny)
library(shinydashboard)

# 创建UI界面
ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    selectInput("table", "选择要显示的表", choices = c("表1", "表2", "表3")),
    dataTableOutput("table_output")
  )
)

# 创建服务器端
server <- function(input, output) {
  # 监听下拉菜单的选择事件
  observeEvent(input$table, {
    # 判断是否是第一次调用
    if (!exists("default_table")) {
      # 加载默认表的数据
      default_table <- read.csv("default_table.csv")
    }
    
    # 根据选择的表显示相应的数据
    if (input$table == "表1") {
      output$table_output <- renderDataTable({
        datatable(default_table)
      })
    } else if (input$table == "表2") {
      output$table_output <- renderDataTable({
        datatable(default_table)
      })
    } else if (input$table == "表3") {
      output$table_output <- renderDataTable({
        datatable(default_table)
      })
    }
  })
}

# 运行R闪亮应用
shinyApp(ui, server)