闪亮的连接边条面板使用conditionalPanel

Question

我实际上正在尝试创建一个Shiny仪表板，在那里我需要根据sidebarPanel的输入值（"处理"）选择复选框（在sidebarPanel-"数据集"中）。例如，如果您看到下面的图像：当用户从边栏面板中选择"anti-TNF alpha"时，我希望"数据集"面板中的前两个复选框为ON/Selected。而且，当选择"DMARds"时，我希望"数据集"中的最后两个选项为ON。我试过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"))
  }
})