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

PritDash · web-flow · commit 232767927855 · 2024-09-12T19:28:37.000-07:00
Fixes #768
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]

Original file line number	Diff line number	Diff line change
`@@ -964,7 +964,7 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,`
`964`	`964`	`substitute(`
`965`	`965`	`expr = {`
`966`	`966`	`columns_index <- union(`
`967`		`- setdiff(names(ANL_OUTLIER), "is_outlier_selected"),`
	`967`	`+ setdiff(names(ANL_OUTLIER), c("is_outlier_selected", "order")),`
`968`	`968`	`table_columns`
`969`	`969`	`)`
`970`	`970`	`ANL_OUTLIER_EXTENDED[ANL_OUTLIER_EXTENDED$is_outlier_selected, columns_index]`