아래shiny应用程序中，当所有pickerInput()的选项都被选择时，我希望在pickerInput()内部显示单词"all"作为选项，当您点击它时，将显示所有三个选项。如果我们可以用selectInput()구현에서는 문제가 없지만 인쇄된 출력에는 영향을 미치지 않아야 합니다. 어떻게 해야 하나요?

library(shiny) library(shinyWidgets) ui <- fluidPage( uiOutput("pick"), verbatimTextOutput("PR") ) server <- function(input, output, session) { output$pick<-renderUI({ pickerInput( inputId = "p9", label = "健康保险", choices = unique(as.character(iris$Species)), width = "150px", selected = unique(as.character(iris$Species)), multiple = TRUE, options = list( `actions-box` = TRUE, `deselect-all-text` = "无", `select-all-text` = "全部", `none-selected-text` = "零" ) ) }) output$PR<-renderPrint({ input$p9 }) } shinyApp(ui, server)