r - 使用conditionalPanel和checkboxGroupInput中的值

我想使用checkboxGroupInput，然后，如果选中了某个框，则需要使用conditionalPanel。一个玩具的例子在这里:

shinyUI(fluidPage(

 sidebarLayout(
  sidebarPanel(
      checkboxGroupInput("items","Which Item?",
          choices=c("A","B","C","D")),
        conditionalPanel( condition = "input.items == 'D'",
          numericInput("n","n",value=50,min=0,max=100,step=1)
        )
      ),
      mainPanel(
      uiOutput("text")
     )
 )

))

现在，如果仅选择框“D”，则此方法工作正常，但如果(如我的问题中的正常情况)选中了多个框，则不能正常工作。

在server.R之类的东西

 if("D" %in% input$which)

可以正常工作，但在ui.R中似乎不起作用。例如，我也尝试设置ala R

  conditionalPanel( condition = "input.items[4] == 'D'",

但这也不起作用。

沃尔夫冈

最佳答案

docendo给出了正确答案:语法为

  conditionalPanel(condition = "input.items.includes('D')"

谢谢!

关于r - 使用conditionalPanel和checkboxGroupInput中的值，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/35688394/