PickerInput의 모두 선택 기능을 구현하고 "all"을 클릭하면 모든 옵션을 표시합니다.

Question

아래 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)

Answer 1

다음은 이 매우 좋은 답변을 바탕으로 한 예입니다. 여기서는 clickHandler，它根据容器All的点击情况，改变dropdown-item的样式，使其在display: block和display: none之间切换。请注意，在应用程序初始化时，如果所有选择都被选中，项目只会隐藏在All를 사용하고 있습니다.

으아악