r - Shiny 使用条件面板中选择元素的数量

Question

我想根据多选输入的所选项目的数量显示我 Shiny 的应用程序的内容。到目前为止，我无法弄清楚使这项工作发挥作用的条件应该是什么样的。

library(shiny)

shinyUI(pageWithSidebar(
  headerPanel("select and conditional panel"),
  sidebarPanel(
    selectInput(inputId = "someSelect", multiple=TRUE, label = "Genes:", choices = colnames(someDataFrame), selected = c("ESR1", "CD44")),
  ),
  mainPanel(
    conditionalPanel(
      condition="length(input.someSelect.selected) > 2",
      tabsetPanel(
...
      )
    )
  )
))

Answer 1

这可能是一个品味问题，但我不喜欢 conditionalPanel 构造，因为它将 JavaScript 逻辑输入到 R 代码中。相反，我更喜欢 uiOutput(和相应的 renderUI)，它可以生成动态 UI。虽然 conditionalPanel 只能处理相当简单的条件，但动态 UI 方法可以创建基于更复杂逻辑的条件外观，并可以利用 R 的强大功能。
然而，对变化的 react 稍慢。

如果您使用这种方法，您的 ui.r 应该类似于:

mainPanel(uiOutput("myConditionalPanel"))

你的 server.r 看起来像:

output$myConditionalPanel = renderUI({
    if(length(input$someSelect)>2) {
         ## some ui definitions here. for example
         tabsetPanel(
             ...
         )
     } else {
         ## some alternative definitions here...
     }
})