ユーザが選択した入力の数に基づく条件付きパネル

Question

selectInputでmultiple = TRUEで選択されたエントリの数に基づいて、異なる数のフィールドを生成しようとしています。したがって、「numfields」入力から1つの項目が選択された場合、最初の条件付きパネルが表示されます。私が今入力したものは、ユーザー入力なしで条件付きにしたい入力を示しています。

a <- c("A","B","C") 

    Choices <- as.character(a) 

    ui <- fluidPage(
    fluidRow(
     selectInput(inputId = "numfields", label = "Select Entries", choices = Choices, multiple = TRUE, selectize = TRUE), 
     conditionalPanel(
      condition = "count(input$numfields) >= 1", 
      textInput(inputId = "field1", label = "First One", value = "") 
     ), 
     conditionalPanel(
     condition = "count(input$numfields) >= 2", 
     textInput(inputId = "field2", label = "Second One", value = "") 
    ), 
     conditionalPanel(
     condition = "count(input$numfields) >= 3", 
     textInput(inputId = "field3", label = "Third One", value = "") 
    ) 
    ) 
    ) 

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

    shinyApp(ui=ui, server=server) 

また、関連するノートでは、自動的にデフォルトでは、multiple = TRUEのselectInputフィールドにはエントリが選択されていません。 multiple = FALSEのときと同じように最初のエントリを選択させる方法はありますか？

ご協力いただきありがとうございます。

Answer 1

サーバーを経由して別のソリューションを。 明白な解決策はrenderUI()だろうが、あなたはcondtionalPanel()を使用する場合：

a <- c("A","B","C") 

Choices <- as.character(a) 

ui <- fluidPage(
    fluidRow(
    selectInput(inputId = "numfields", label = "Select Entries", choices = Choices, multiple = TRUE, selectize = TRUE), 
    conditionalPanel(
     condition = "output.check > 0", 
     textInput(inputId = "field1", label = "First One", value = "") 
    ), 
    conditionalPanel(
     condition = "output.check >= 2", 
     textInput(inputId = "field2", label = "Second One", value = "") 
    ), 
    conditionalPanel(
     condition = "output.check >= 3", 
     textInput(inputId = "field3", label = "Third One", value = "") 
    ) 
) 
) 

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

    output$check <- reactive({ 
    length(input$numfields) 
    }) 

    outputOptions(output, 'check', suspendWhenHidden=FALSE)  
} 

shinyApp(ui=ui, server=server) 

Answer 2

あなたはselected =引数を使用してselectInput()でデフォルトの選択を設定することができます。conditionalPanel()で

selectInput(inputId = "numfields", 
      label = "Select Entries", 
      choices = Choices, 
      multiple = TRUE, 
      selectize = TRUE, 
      selected = 'A') 

condition =引数がJSではなくRとして解釈だとリテラルを取ります。

が入力をチェックするには 'カウント' あなたは input.numfields.lengthを使用する必要があります。

完全 ui以下

conditionalPanel(
    condition = "input.numfields.length >= 1", 
    textInput(inputId = "field1", label = "First One", value = "") 
) 

：ここ

ui <- fluidPage(
    fluidRow(
    selectInput(inputId = "numfields", 
       label = "Select Entries", 
       choices = Choices, 
       multiple = TRUE, 
       selectize = TRUE, 
       selected = 'A'), 
    conditionalPanel(
     condition = "input.numfields.length >= 1", 
     textInput(inputId = "field1", label = "First One", value = "") 
    ), 
    conditionalPanel(
     condition = "input.numfields.length >= 2", 
     textInput(inputId = "field2", label = "Second One", value = "") 
    ), 
    conditionalPanel(
     condition = "input.numfields.length >= 3", 
     textInput(inputId = "field3", label = "Third One", value = "") 
    ) 
) 
)