SelectizeInput関数のためのサイドバーパネルを光沢のあるものにリンクする

Question

ドロップダウンがsidebarPanel - locationにあり、そこから最大2つのオプションを選択できます。ドロップダウンから 'サドルジョイント'と 'グライディングジョイント'をインチェイスして、別のsidebarPanel - datasetsでオブジェクト 'x'と 'y'を選択するifループを作成したいと思います。基本的にリンケージを作成します。

私は、コードのこの部分を試してみましたが、それは動作しません：

if (input$location== "Saddle Joint" & input$location== "Gliding Joint") { 

    updateCheckboxGroupInput(session, 
          "datasets", "Datasets:", choices = c("x","y"), 
          selected= c("x","y")) 
} 

より良い映像のためのスクリーンショットを見てください！

ありがとうございます！

Screenshot

Answer 1

問題は、あなたのif声明のbooleanしていました。これを使用します。

"Saddle Joint" %in% input$location & "Gliding Joint" %in% input$location 

も使用することができます

all(c("Saddle Joint","Gliding Joint") %in% input$location)