selectInput 的动态数量

我是闪亮的新手，所以这可能是一个非常基本的问题。 我想编写一个闪亮的应用程序，其中用户输入“n”，我们得到 n 个 selectInput 选项，但我无法做到这一点。基本上任何形式的 for 循环都不起作用。 我尝试的代码如下

library(shiny)
ui = fluidPage(

sidebarLayout(
sidebarPanel(
  textInput(inputId = "number", label = "number of selectInput",value = 5)





),
mainPanel(
  uiOutput(outputId = "putselect")
)
)
)
server = function(input,output){

  output$putselect = renderUI(
    if(input$number != 0 ){
      for(i in 1:(input$number)){

        selectInput(inputId = "i", label = "just write something", choices   = c(2,(3)))
  }
}

  )
}
shinyApp(ui = ui , server = server)

您需要将创建的输入存储在列表中并返回该列表，或者您可以简单地将语句包装在lapply代替for。下面给出了一个工作示例，希望对您有所帮助！

library(shiny)
ui = fluidPage(

  sidebarLayout(
    sidebarPanel(
      textInput(inputId = "number", label = "number of selectInput",value = 5)
    ),
    mainPanel(
      uiOutput(outputId = "putselect")
    )
  )
)
server = function(input,output){

  output$putselect = renderUI(
    if(input$number != 0 ){
      lapply(1:(input$number), function(i){
        selectInput(inputId = "i", label = paste0("input ",i), choices   = c(2,(3)))
      })
    }
  )
}
shinyApp(ui = ui , server = server)