在RShiny用戶界面，動態顯示幾個numericInput如何根據你選擇什麼樣

Question

我的代碼是在這裏：

ui.R

shinyUI(fluidPage(

    # Copy the line below to make a select box 
    selectInput("select", label = h3("Select box"), 
       choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3), 
       selected = 1), 
    numericInput("value",label="value", value=100), 

    hr(), 
    fluidRow(column(3, verbatimTextOutput("value"))) 

)) 

server.R

server=shinyServer(function(input, output) { 
output$inputs=renderUI({ 
if(input$select =="1"){ 
    numericInput(inputId = paste0("value",1),"1",100) 

} else if(input$select=="2"){ 
    numericInput(inputId ="value","value",100), 
    numericInput(inputId ="value","value",200), 
    numericInput(inputId ="value","value",300) 
    } 

}) 

# You can access the value of the widget with input$select, e.g. 
output$value <- renderPrint({ input$select }) 

}) 

這是一個非常簡單的情況下，用戶界面是這樣的：

我期望的是，如果我選擇「選擇2」，你會給我這個：

那麼我怎麼能達到我的期望？

Answer 1

我們根據您的選擇，以使其在服務器端

例

顯示1，2和3輸入

library(shiny) 
ui=shinyUI(fluidPage(

    # Copy the line below to make a select box 
    selectInput("select", label = h3("Select box"), 
       choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3), 
       selected = 1), 
    uiOutput("inputs"), 

    hr(), 
    fluidRow(column(3, verbatimTextOutput("value"))) 

)) 


server=shinyServer(function(input, output) { 
    output$inputs=renderUI({ 
    lapply(1:input$select,function(i){ 
     numericInput(inputId = paste0("value",i),paste0("value",i),100) 
    }) 
    }) 

    # You can access the value of the widget with input$select, e.g. 
    output$value <- renderPrint({ input$select }) 

}) 

shinyApp(ui,server) 

在那裏，我用簡單的邏輯：如果您的choise 1這樣一個輸入反饋，2--兩個輸入等

更新

硬代碼示例

server=shinyServer(function(input, output) { 
    output$inputs=renderUI({ 
    if(input$select==1){ 
     numericInput(inputId = paste0("value1"),paste0("value1"),100) 
    }else if(input$select==2){ 
     list(
     numericInput(inputId = paste0("value1"),paste0("value1"),100), 
     numericInput(inputId = paste0("value2"),paste0("value2"),200), 
     numericInput(inputId = paste0("value3"),paste0("value3"),500) 

    ) 
    }else if (input$select==3){ 
     numericInput(inputId = paste0("value1"),paste0("value1"),100) 
    } 

    }) 

    # You can access the value of the widget with input$select, e.g. 
    output$value <- renderPrint({ input$select }) 

})