闪亮 - 使用conditionalPanel连接sidebarPanel

Question

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

  }

})