仅包含一个元素的 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"))