r - Shiny - 如何在 PickerInput 中选择整个组？

Question

我提供给用户的仪表板中的下拉列表非常长。

单击组时，我需要选择组下的整个列表。

下面是一个示例脚本。谢谢...

library("shiny")
library("shinyWidgets")

ui <- fluidPage(
  br(),
  pickerInput(
    inputId = "p1",
    label = "Default",
    multiple = TRUE,
    choices = list("listA"=rownames(mtcars)[1:16], "listB"=rownames(mtcars)[17:32]),
    selected = rownames(mtcars)
  )
)
server <- function(input, output, session) {}
shinyApp(ui = ui, server = server)