在输入是向量的闪亮中使用条件面板

Question

我有许多输入，我想过滤数据源。但是，我有 100 多个要渲染的输入，但我希望在任何一个时间点都只会使用少数几个。

我不想全部呈现它们以防万一，因为这会使页面混乱且难以导航。我希望制作所有小部件，并在显示之前使用条件面板检查它是否出现在列表中。

我遇到的问题是，在 %in% 运算符看来，在条件面板中的条件参数中，它没有给我一个错误 - 它只是不起作用。

我在下面做了一个轻量级的例子：

# libs ----
library(shiny)
library(shinydashboard)

# header ----
header <- dashboardHeader(title = "Example")

#sidebar ----
sidebar <- dashboardSidebar(disable = T)

#body ----
body <- dashboardBody(

  fluidRow(
    column(
      width = 12,
      selectInput(
        inputId = "control", 
        label = "choose something:",
        choices = c("a", 
                    "b", 
                    "c", 
                    "d", 
                    "e"),
        multiple = TRUE
      )
    )
  ),

  conditionalPanel(
    condition = "'a' %in% input.control",
    textInput(inputId = "bla", label = "aaaaa")
  ),

  conditionalPanel(
    condition = "'b' %in% input.control",
    textInput(inputId = "ble", label = "bbbbb")
  )

)

# all ui ----
ui <- dashboardPage(
  header = header, 
  sidebar = sidebar, 
  body = body
)

# server ----
server = shinyServer(function(input, output) {


})


# Run the application 
shinyApp(ui = ui, server = server)

我一直无法找到解决此问题的方法，感谢任何帮助！

谢谢

编辑——已解决 条件是一个 JS 表达式（感谢@edavidaja 的提醒），当我尝试使用时： condition = 'input.control.includes("a")' 失败了。 所以和我的一个 JS 开发同事一起制定了一个解决方案，并得到了解决方案...... condition = 'input.control && input.control.indexOf("a") > -1'

Answer 1

来自帮助：

condition   
A JavaScript expression that will be evaluated repeatedly to determine whether the 
panel should be displayed.

%in 是一个 R 表达式，而不是 JavaScript 表达式，所以你可能需要像 includes 这样的东西。

此外，如果您有数百个可能不需要的内容要渲染，请考虑改用renderUI()/uiOutput()。