Início / coding / Perguntas / 79569345
Accepted
eastclintw00d
Asked: 2025-04-12 00:44:43 +0800 CST

Ocultar um botão na caixa de ação de um seletor de entrada quando o contêiner é definido como corpo

  • 772

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)

1 respostas

  1. Best Answer

    Com JS: Se os eventos shown.bs.select/hidden.bs.selectpicker1 forem disparados, defina display: none/ display: inline-blockna caixa de seleção completa:

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

ui <- page_sidebar(
  title = "Hide Select-All Button",
  
  tags$head(
    tags$script('
      $(document).ready(function() {
        $("#picker1").on("shown.bs.select", 
          function (e, clickedIndex, isSelected, previousValue) {  
            $(".bs-actionsbox .bs-select-all")
              .css("display", "none");
        });
        $("#picker1").on("hidden.bs.select", 
          function (e, clickedIndex, isSelected, previousValue) {  
            $(".bs-actionsbox .bs-select-all")
              .css("display", "inline-block");
        });
      });              
    ')
  ),
  
  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)
    • 2

relate perguntas