r - ShinyWidgets から pickerInput で選択肢のグループ全体を選択する方法はありますか?

Question

再現可能な簡単な例を次に示します。

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
    pickerInput("test",choices=list("A"=c(1,2,3,4,5),"B"=c(6,7,8,9,10)),multiple=TRUE),
    textOutput("testOutput")
)

server <- function(input, output) {
    output$testOutput <- renderText({paste(input$test)})
}

shinyApp(ui = ui, server = server)

A をクリックすると、pickerInput で 1、2、3、4、5 が自動的に選択されます。または、B をクリックすると、6、7、8、9、10 が自動的に選択されます。

「A」をクリックした後の望ましい出力：

どんな助けでも大歓迎です、ありがとう。