From 2f86f4eed3a3d902f8714138d8e7ffd3b5a9a3d1 Mon Sep 17 00:00:00 2001
From: xmusphlkg <60965585+xmusphlkg@users.noreply.github.com>
Date: Wed, 20 Jul 2022 09:52:07 +0800
Subject: [PATCH] fix filter label error

---
 R/filter-data.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/filter-data.R b/R/filter-data.R
index 6fe5c8c..ae149af 100644
--- a/R/filter-data.R
+++ b/R/filter-data.R
@@ -191,7 +191,9 @@ create_filters <- function(data,
     } else {
       labels <- vars
     }
-    vars <- intersect(names(data), vars)
+    vars_display <- intersect(names(data), vars)
+    labels <- labels[vars %in% vars_display]
+    vars <- vars_display
   }
   # filters_id <- paste0("filter_", sample.int(1e9, length(vars)))
   filters_id <- paste0("filter_", makeId(vars))