diff --git a/R/edit-data-utils.R b/R/edit-data-utils.R index 093c8cd..bd4c5b8 100644 --- a/R/edit-data-utils.R +++ b/R/edit-data-utils.R @@ -127,7 +127,7 @@ edit_input_form <- function(default = list(), virtualSelectInput( inputId = ns(variable_id), label = label, - choices = unique(c(as.character(variable), levels(variable))), + choices = sort(unique(c(as.character(variable), levels(variable)))), selected = default[[variable_id]] %||% "", width = "100%", allowNewOption = TRUE,