Блестящий updateSelectInput для нескольких входов

Question

У меня есть блестящее приложение с несколькими входами, которые принадлежат иерархии (A -> B -> C). Когда пользователь выбирает A - он должен влиять на параметры в B и C. Однако пользователь может выбрать только B (а затем он должен влиять и на другие входы. Если ничего не выбрано - все параметры должны быть доступны. Как его реализовать?

Answer 1

Существует не хватает информации здесь. Тем не менее, от того, что вы описали, вы могли бы попробовать, начиная отсюда.

shinyServer(function(input, output, session) { 
    observe({ 
    a_option <- input$a_option 
    b_option <- input$b_option 
    if (a_option == "XXX") { 
     updateSelectInput(session, "B", choices = b_options) 
     updateSelectInput(session, "C", choices = c_options) 
    } 
    if (b_option == "XXX") { 
     updateOtherInput(session, "input_id", ...) 
    } 
    }) 
}) 

Answer 2

Согласовано, что вам нужно больше информации, а также observe модель может быть хорошим выбором. Если вы требуется больше контроля и динамики в интерфейсе, вы можете использовать динамический интерфейс с renderUI:

library(shiny) 

choices_A <- list("Choice A" = 1, "Choice B" = 2, "Choice C" = 3) 
choices_B <- list("Choice B1" = 4, "Choice B2" = 5, "Choice B3" = 6) 
choices_C <- list("Choice C1" = 7, "Choice C2" = 8, "Choice C3" = 9) 

shinyApp(
    ui = fluidPage(
    titlePanel("Cascading selects"), 
    fluidRow(
     column(3, wellPanel(
     selectInput("select_A", label = "Select A", 
        choices = choices_A) 

    )), 
     column(3, wellPanel(
     uiOutput("ui") 
    )), 
     column(3, wellPanel(
     tags$p("First Input: "), 
     verbatimTextOutput("value"), 
     tags$p("Dynamic Input: "), 
     verbatimTextOutput("dynamic_value") 
    )) 
    ) 
), 
    server = function(input, output) { 
    output$ui <- renderUI({ 
     if (is.null(input$select_A)) 
     return() 

     switch(input$select_A, 
     "1" = selectInput("dynamic", label = "Select A2", 
           choices = choices_A), 
     "2" = selectInput("dynamic", label = "Select B", 
           choices = choices_B), 
     "3" = selectInput("dynamic", label = "Select C", 
           choices = choices_C) 
    ) 
    }) 
    output$value <- renderPrint({ input$select_A }) 
    output$dynamic_value <- renderPrint({ input$dynamic }) 
    } 
)