shiny - Shiny - conditionalPanel を使用して sidebarPanels を接続する

Question

私は実際に Shiny ダッシュボードを作成しようとしています - sidebarPanel ('Treatment') からの入力値に基づいてチェックボックス (sidebarPanel - 'Datasets') を選択する必要があります。たとえば、下の画像を見ると: ユーザーが sidebarPanel から 'anti TNF-alpha' を選択した場合、'Datasets' パネルの最初の 2 つのチェックボックスを ON/Selected にします。そして、「DMARds」が選択されている場合、「データセット」の最後の 2 つのオプションをオンにします。conditionalPanel を試しましたが、うまくいきませんでした。このような大まかなコードを手伝ってもらえますか?

前もって感謝します！

ダッシュボード

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

  }

})