如何使选项卡项仅在用户单击后才呈现-- shiny R

library(shiny)

ui <- fluidPage(
  tabsetPanel(
    id = "tabs",
    tabPanel("Tab 1", value = "tab1"),
    tabPanel("Tab 2", value = "tab2"),
    tabPanel("Tab 3", value = "tab3")
  )
)

server <- function(input, output, session) {
  observeEvent(input$tabs, {
    # 根据选项卡的值来呈现对应的内容
    output$tab_content <- renderUI({
      if (input$tabs == "tab1") {
        # 在这里放置Tab 1的内容
        p("这是Tab 1的内容")
      } else if (input$tabs == "tab2") {
        # 在这里放置Tab 2的内容
        p("这是Tab 2的内容")
      } else if (input$tabs == "tab3") {
        # 在这里放置Tab 3的内容
        p("这是Tab 3的内容")
      }
    })
  })
}

shinyApp(ui, server)