checkboxGroupInput with checkboxInputビヘイビア

Question

私はcheckboxGroupInputを持っていますが、checkboxInputビヘイビアが必要です。私はaまたはbを尋ねるときにのみアクティブになる独立した反応機能を持っていたいと思います。これは、別々のcheckboxInputでは容易に可能ですが、checkboxGroupInputには含まれません。私は上記の例でみました何

は

ui <- shinyUI(pageWithSidebar(
    headerPanel("checkboxGroupInput"), 
    sidebarPanel(
     checkboxGroupInput('sources', 
          label='Sources', 
          choices=list('a'='a', 
             'b'='b')), 
     checkboxInput('a', 
         'a'), 
     checkboxInput('b', 
         'b') 
    ), 
    mainPanel(
     # empty 
    ) 
)) 

server <- shinyServer(function(input, output) { 
    thingy <- reactive({ 
     return('a' %in% input$sources) 
    }) 
    observeEvent(thingy(), { 
     print("I'm here (a+b)") 
    }) 
    observeEvent(input$a, { 
     print("I'm here (a only)") 
    }) 
    observeEvent(input$b, { 
     print("I'm here (b only)") 
    }) 

}) 

shinyApp(ui=ui,server=server) 

aがcheckboxGroupInputであるかどうかをブール値を格納しています。値がTRUEのままであっても（つまり、bを繰り返しクリックすると）、thingy()はまだアクティブになっています。

Answer 1

各チェックボックスはreactiveValueに保存できます。コードを参照してください。