Merge pull request #340 from Appsilon/fix-upd-sel

[change] update select input has default label set to null
Appsilon · Jan 2, 2021 · 8d1d0bd · 8d1d0bd
2 parents b3abb31 + ec66e21
commit 8d1d0bd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/dropdown.R b/R/dropdown.R
@@ -244,7 +244,7 @@ update_dropdown_input <- function(session, input_id, choices = NULL, choices_val
 #' }
 #'
 #' @export
-updateSelectInput <- function(session, inputId, label, choices = NULL, selected = NULL) {
+updateSelectInput <- function(session, inputId, label = NULL, choices = NULL, selected = NULL) {
   if (!is.null(selected)) selected <- paste(as.character(selected), collapse = ",") else selected <- NULL
   if (!is.null(choices)) {
     choices_text <- names(choices)