R Shiny:如何在R中构建一个函数来创建许多类似的renderUI选择器？

library(shiny)

# 定义函数来创建选择器
createSelector <- function(type, id, label) {
  renderUI({
    if (type == "select") {
      selectInput(inputId = id, label = label, choices = c("Option 1", "Option 2"))
    } else if (type == "text") {
      textInput(inputId = id, label = label)
    } else {
      NULL
    }
  })
}

# 创建Shiny应用
ui <- fluidPage(
  # 使用函数创建选择器
  fluidRow(
    column(6, createSelector("select", "select1", "Select 1")),
    column(6, createSelector("text", "text1", "Text 1"))
  )
)

server <- function(input, output) {
  # 通过input$select1和input$text1来获取用户选择的值
}

shinyApp(ui, server)