Disabling checkboxGroupButtons

[DanChaltiel]

Hi devs,

First thanks for this great package, it's incredible!

My request is in the same trend as #68: how can I disable a button from a checkboxGroupButtons?

Since buttons do not have a unique id (which could be name-value for instance), they are quite hard to select with JQuery.

For now, here is my workaround:

ui.R

checkboxGroupButtons("total", label="Total", choices=c("row"="row", "column"="col"))

server.R

shinyjs::runjs("$(\"input[name='total'][value='row']\").parents('button').prop('disabled', true);")

Would you consider adding such an id, or maybe even implement such a disable feature in standalone or in updateCheckboxGroupButtons?

Thanks

[DanChaltiel]

For the records, here is a custom function that seems to work. Not very clean though and might be error-prone, I'll be able to tell in the use.

#' Enable or disable a button option from a group of `checkboxGroupButtons`
#'
#' @param inputId the same `inputId` as in `checkboxGroupButtons`
#' @param value the value corresponding to the `choices` argument in `checkboxGroupButtons`
#' @param enable whether to enable (`TRUE`) or disable (`FALSE`) the button
#'
#' @importFrom shinyjs runjs
#' @importFrom glue glue
#' @return
#' @export
enableCheckboxGroupButton = function(inputId, value, enable=TRUE){
  if(enable)
    runjs(glue("$(\"input[name='{inputId}'][value='{value}']\").parents('button').removeAttr('disabled');"))
  else
    runjs(glue("$(\"input[name='{inputId}'][value='{value}']\").parents('button').prop('disabled', true);"))
}

[pvictor]

Hello,

I added disabled and disabledChoices arguments to updateCheckboxGroupButtons and updateRadioGroupButtons, if you re-install from GitHub you can do:

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  
  checkboxGroupButtons(
    inputId = "check",
    choices = head(month.name),
    label = "Check buttons"
  ),
  radioGroupButtons(
    inputId = "radio",
    choices = head(month.name),
    label = "Radio buttons"
  ),
  
  tags$b("Check"),
  verbatimTextOutput(outputId = "valCheck"),
  tags$b("Radio"),
  verbatimTextOutput(outputId = "valRadio"),
  
  checkboxInput(inputId = "disable", label = "Disable?", value = FALSE),
  checkboxInput(inputId = "disable1", label = "Disable march?", value = FALSE),
  checkboxInput(inputId = "disable2", label = "Disable february & april?", value = FALSE)
)

server <- function(input, output, session) {
  
  output$valCheck <- renderPrint({
    input$check
  })
  output$valRadio <- renderPrint({
    input$radio
  })

  observeEvent(input$disable, {
    updateCheckboxGroupButtons(
      session = session, 
      inputId = "check",
      disabled = input$disable
    )
    updateRadioGroupButtons(
      session = session, 
      inputId = "radio",
      disabled = input$disable
    )
  }, ignoreInit = TRUE)
  
  observeEvent(input$disable1, {
    updateCheckboxGroupButtons(
      session = session, 
      inputId = "check",
      disabledChoices = if (input$disable1) "March" else NULL
    )
    updateRadioGroupButtons(
      session = session, 
      inputId = "radio",
      disabledChoices = if (input$disable1) "March" else NULL
    )
  }, ignoreInit = TRUE)
  
  observeEvent(input$disable2, {
    updateCheckboxGroupButtons(
      session = session, 
      inputId = "check",
      disabledChoices = if (input$disable2) c("February", "April") else NULL
    )
    updateRadioGroupButtons(
      session = session, 
      inputId = "radio",
      disabledChoices = if (input$disable2) c("February", "April") else NULL
    )
  }, ignoreInit = TRUE)
  
}

shinyApp(ui = ui, server = server)

[pvictor]

That's on CRAN now, please reopen if something goes wrong.

Best,

Victor