Shiny - connecting sidebarPanels mit conditionalPanel

Question

Ich versuche tatsächlich ein Shiny Dashboard zu erstellen - wo ich Kontrollkästchen (in sidebarPanel - 'Datasets') basierend auf dem Eingabewert von sidebarPanel ('Treatment') auswählen muss. Wenn Sie sich beispielsweise das folgende Bild ansehen: Wenn der Benutzer 'anti TNF-alpha' aus dem SidebarPanel auswählt, möchte ich, dass die ersten beiden Kontrollkästchen im 'Datasets' Panel auf ON/Selected stehen. Und wenn 'DMARds' ausgewählt ist, möchte ich, dass die letzten beiden Optionen in den 'Datasets' aktiviert sind. Ich habe versucht das ConditionalPanel, aber es hat nicht gut für mich gearbeitet. Könntest du mir mit einem groben Code für dieses Zeug helfen?

Vielen Dank im Voraus!

Dashboard

Answer 1

so etwas zu Ihrem Server-Datei hinzufügen:

observe({ 
    selected <- input$yourSelectInput 

    if (selected=="Whatever you wanted") { 

    updateCheckboxGroupInput(session, 
          input$Datasets, 
          selected=c("The ones you wanted selected")) 

    } else if (selected=="Something else") { 

    updateCheckboxGroupInput(session, 
          input$Datasets, 
          selected=c("Different ones you wanted selected")) 

    } 

})