闪亮-如何在PickerInput中选择整个组？

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

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

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

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)

库（“闪亮”）
图书馆（“shinyWidgets”）
这实际上是一个。哦！！