added checks to resolve issue with the outlier function (#778)

Fixes #768
insightsengineering · Sep 13, 2024 · 2327679 · 2327679
1 parent 6527128
commit 2327679
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/tm_outliers.R b/R/tm_outliers.R
@@ -964,7 +964,7 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,
         substitute(
           expr = {
             columns_index <- union(
-              setdiff(names(ANL_OUTLIER), "is_outlier_selected"),
+              setdiff(names(ANL_OUTLIER), c("is_outlier_selected", "order")),
               table_columns
             )
             ANL_OUTLIER_EXTENDED[ANL_OUTLIER_EXTENDED$is_outlier_selected, columns_index]