PickerInput 子类别只有一个元素答案

【问题标题】：PickerInput subcategories with only one elementPickerInput 子类别只有一个元素
【发布时间】：2021-08-25 16:46:47
【问题描述】：

我一直在尝试从 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”）

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

【问题讨论】：

标签： r shiny shinywidgets pickerinput

【解决方案1】：

让它成为一个列表

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

【讨论】：