将sidebarPanel链接为闪亮的SelectizeInput函数

时间:2016-08-05 16:45:22

标签: shiny shiny-server shinydashboard shinyjs

假设我在sidebarPanel - location中有一个下拉列表,我可以从中选择最多2个选项。我想创建一个if循环,其中包含“鞍座关节”和“鞍座关节”。和'滑翔联合'从下拉导致选择对象' x'并且' y'在另一个sidebarPanel - datasets - 基本上创建一个链接。

我尝试了这段代码,但它不起作用:

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

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

请查看屏幕截图以获得更好的图片!

谢谢!

Screenshot

1 个答案:

答案 0 :(得分:0)

问题在于if语句中的布尔值。使用此:

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

也可以使用:

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