Question

我是新手，所以这可能是一个非常基本的问题。我想编写一个闪亮的应用程序，用户在其中输入“ 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)

Answer 1

您要么需要将创建的输入存储在列表中并返回该列表，要么可以将语句包装在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)

selectInput的动态数

1 个答案: