使用来自checkboxGroupInput的值的conditionalPanel

Question

我想使用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'",

但这也不起作用.

沃尔夫冈

Answer 1

docendo给出了正确的答案:语法是

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

谢谢!