radio & check buttons update: disabled choices must be character

jadenecke · May 15, 2021 · e8e7fb9 · e8e7fb9
1 parent 66a507b
commit e8e7fb9
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: shinyWidgets
 Title: Custom Inputs Widgets for Shiny
-Version: 0.6.0.9000
+Version: 0.6.0.9100
 Authors@R: c(
   person("Victor", "Perrier", email = "victor.perrier@dreamrs.fr", role = c("aut", "cre", "cph")),
   person("Fanny", "Meyer", role = "aut"),

diff --git a/R/input-checkboxgroupbuttons.R b/R/input-checkboxgroupbuttons.R
@@ -322,6 +322,8 @@ updateCheckboxGroupButtons <- function(session,
   args <- normalizeChoicesArgs(choices, choiceNames, choiceValues, mustExist = FALSE)
   if (!is.null(selected))
     selected <- as.character(selected)
+  if (!is.null(disabledChoices))
+    disabledChoices <- as.character(disabledChoices)
   options <- if (!is.null(args$choiceNames)) {
     as.character(tagList(generateCBGB(
       session$ns(inputId),

diff --git a/R/input-radiogroupbuttons.R b/R/input-radiogroupbuttons.R
@@ -286,6 +286,8 @@ updateRadioGroupButtons <- function(session,
   if (is.null(selected) && !is.null(args$choiceValues)) {
     selected <- args$choiceValues[[1]]
   }
+  if (!is.null(disabledChoices))
+    disabledChoices <- as.character(disabledChoices)
   options <- if (!is.null(args$choiceValues)) {
     as.character(tagList(
       generateRGB(