eastclintw00d's questions

Tenho um aplicativo com vários pickerInputseletores na barra lateral. Todos estão actionBoxhabilitados. Usando CSS (ou outra técnica), quero ocultar o botão "Selecionar Tudo" apenas para o primeiro seletor pickerInput. O código CSS usado no exemplo a seguir oculta o botão para todos os seletores. Como requisito adicional, configurei a opção container = "body".

library(shiny)
library(bslib)
library(shinyWidgets)

ui <- page_sidebar(
  title = "Hide Select-All Button",

  tags$head(
    tags$style(HTML("
      .bs-actionsbox .bs-select-all {
        display: none !important;
      }
    "))
  ),
  
  sidebar = sidebar(
    pickerInput(
      inputId = "picker1",
      label = "Select option(s) from picker 1:",
      choices = paste("Choice", 1:10),
      options = pickerOptions(
        container = "body",
        actionsBox = TRUE
      ),
      multiple = TRUE
    ),
    
    pickerInput(
      inputId = "picker2",
      label = "Select option(s) from picker 2:",
      choices = LETTERS[1:15],
      options = pickerOptions(
        container = "body",
        actionsBox = TRUE
      ),
      multiple = TRUE
    ),
    
    actionButton("submit", "Submit Selections")
  ),
  
  card(
    card_header("Selected Values"),
    card_body(
      h4("Selections from Picker 1:"),
      verbatimTextOutput("result1"),
      
      h4("Selections from Picker 2:"),
      verbatimTextOutput("result2")
    )
  )
)

server <- function(input, output, session) {
  output$result1 <- renderPrint({
    input$picker1
  })
  
  output$result2 <- renderPrint({
    input$picker2
  })
}

shinyApp(ui, server)