Shiny - connecting sidebarPanel（conditionalPanelを使用）

Question

実際にシャイニーダッシュボードを作成しようとしています。sidebarPanel（ 'Treatment'）の入力値に基づいてチェックボックス（sidebarPanel - 'Datasets'）を選択する必要があります。たとえば、以下の画像を見ると、サイドバーパネルから「TNF-alpha」を選択すると、「データセット」パネルの最初の2つのチェックボックスをON/Selectedにします。 「DMARds」が選択されているときは、「データセット」の最後の2つのオプションをONにします。 私はconditionalPanelを試しましたが、うまく動作しませんでした。あなたは、このもののためのいくつかの大雑把なコードで私を助けることができますか？

ありがとうございます！

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

    } 

})