diff --git a/R/tm_outliers.R b/R/tm_outliers.R index 7f30b897a..db3ce782d 100644 --- 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]