R 基于闪亮应用程序中的数字输入创建selectInput（）选项

我有一个简单的闪亮应用程序：

#ui.r
navbarPage(
  "Application",
  tabPanel("General",
           sidebarLayout(

             sidebarPanel(
               uiOutput("tex2"),
               br(),
               uiOutput("select")


              ),

             mainPanel(


             )
           )))
#server.r
library(shiny)

server <- function(input, output,session) {

  output$tex2<-renderUI({
    numericInput("text2","#tests",
                 value = 1,
                 min=1
    )
  })
  output$select<-renderUI({

    selectInput("sel", label = "Select Test",
                for(i in 1:input$text2){
                  choices = list(paste("Test",i) == i)},selected = input$text2

    )


  })

}

#ui.r
导航栏页(
“应用程序”，
选项卡面板（“一般”，
侧边栏布局(
侧栏面板(
uiOutput（“tex2”），
br（），
uiOutput（“选择”）
),
主面板(
)
)))
#服务器.r
图书馆（闪亮）
服务器您需要这样的东西，不需要循环函数参数（选项），只需创建所需的数据并传递到参数中即可

output$select<-renderUI({
  selectInput(
    inputId = "sel", 
    label = "Select Test",
    selected = input$text2,
    choices = rep(paste0("Test", 1:input$text2))
  )
})

output$select