如何在选项卡中向renderUI提供两个uiOutput

library(shiny)

ui <- fluidPage(
  tabsetPanel(
    tabPanel("Tab 1", uiOutput("output1")),
    tabPanel("Tab 2", uiOutput("output2"))
  )
)

server <- function(input, output) {
  output$output1 <- renderUI({
    # 在这里创建和返回第一个uiOutput的内容
    # 例如：可以使用其他Shiny输入组件或HTML元素
    # 例如：textInput、selectInput、plotOutput等
    textInput("input1", "Input 1:")
  })
  
  output$output2 <- renderUI({
    # 在这里创建和返回第二个uiOutput的内容
    # 例如：可以使用其他Shiny输入组件或HTML元素
    # 例如：textInput、selectInput、plotOutput等
    selectInput("input2", "Input 2:", choices = c("Option 1", "Option 2", "Option 3"))
  })
}

shinyApp(ui, server)