閃亮 - 使用條件面板連接sidebarPanels

Question

我實際上正在嘗試創建一個Shiny儀表板 - 我需要根據sidebarPanel（'Treatment'）的輸入值選擇複選框（在sidebarPanel - 'Datasets'中）。例如，如果您看下面的圖片：當用戶從sidebarPanel選擇「抗TNF-alpha」時，我希望「數據集」面板中的前兩個複選框處於ON/Selected狀態。而且，當選擇'DMARds'時，我希望'數據集'中的最後兩個選項爲ON。 我嘗試了條件面板，但它不適合我。你能幫我用這些東西粗略的代碼嗎？

在此先感謝！

Dashboard

Answer 1

添加像這樣到你的服務器的文件：

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")) 

    } 

})