r - PickerInput 子类别只有一个元素

Question

我一直在尝试从带有子类别的包ShinyWidgets中创建一个pickerInput。

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  tags$h2("Select / Deselect all"),
  pickerInput(
    inputId = "p1",
    label = "Select all option",
    choices = list(subA = c("a","b","c"),
                   subB = c("a"),
                   subC = c("a","b")),
    multiple = TRUE,
    options = list(`actions-box` = TRUE)
  ),
  verbatimTextOutput("r1")
)

server <- function(input, output, session) {
  output$r1 <- renderPrint(input$p1)
}

shinyApp(ui = ui, server = server)

问题是当一个子类别只有一个元素时，输出有点奇怪，并且与其他子类别显示的不一样。在我的示例中，我可以选择子类别的名称（subB），但不能选择这个的元素（“a”）

有没有办法来解决这个问题？

Answer 1

让它成为一个列表

    choices = list(subA = list("a","b","c"),
                   subB = list("a"),
                   subC = list("a","b"))