fix label issue in FilterStateChoices (#272)

Fixes #271
insightsengineering · May 9, 2023 · 7465005 · 7465005
1 parent 5d5d649
commit 7465005
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/FilterStateChoices.R b/R/FilterStateChoices.R
@@ -149,11 +149,13 @@ ChoicesFilterState <- R6::R6Class( # nolint
       )
 
       x_factor <- if (!is.factor(x)) {
-        factor(as.character(x), levels = as.character(sort(unique(x))))
+        structure(
+          factor(as.character(x), levels = as.character(sort(unique(x)))),
+          label = attr(x, "label") 
+        )
       } else {
         x
       }
-      x_factor <- droplevels(x_factor)
 
       args <- list(
         x = x_factor,