add levels of factor as choices for edit_input_form

dreamRs · Nov 16, 2023 · d3e22bd · d3e22bd
1 parent 1155748
commit d3e22bd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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(variable),
+            choices = unique(c(as.character(variable), levels(variable))),
             selected = default[[variable_id]] %||% "",
             width = "100%",
             allowNewOption = TRUE,