闪亮：在UI中使用pickerInput选择所有元素

Question

我的ui.R的一部分是

           pickerInput(
             inputId = "konz",
             label = "Emittent:",
             choices = c(sort(unique(as.character(datT2$konc)))),     
             selected = sort(unique(as.character(datT2$konc))),    
             options = list(`actions-box` = TRUE, 
                            `selected-text-format` = paste0("count > ", length(unique(as.character(datT2$konc)))-1) ,
                            `count-selected-text` = "Alle",liveSearch = TRUE, 
                            liveSearchPlaceholder= TRUE, `live-search` = TRUE),   
             multiple = T
           ),

从server.R的另一端

开始

if (!("Alle" %in% input$konz)) {
  data <- data[data$Konzernbezeichnung %in% input$konz,]
}

但是，我看到过滤器data <- data[data$Konzernbezeichnung %in% input$konz,]起作用了，而该用户没有选择任何内容。 然后我检查了逻辑部分!("Alle" %in% input$konz)。它给出True。这意味着所有不在input$konz中。 知道为什么会发生吗？我希望Alle应该成为选择的一部分，以便
!("Alle" %in% input$konz)将是False。可能吗？