chore: code improvement

insightsengineering · Jan 9, 2025 · 0b98cf4 · 0b98cf4
1 parent 3efb13a
commit 0b98cf4
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/tm_outliers.R b/R/tm_outliers.R
@@ -889,11 +889,11 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,
 
     # Cumulative distribution plot
     cumulative_plot_q <- reactive({
-      ANL <- common_code_q()[["ANL"]]
-      ANL_OUTLIER <- common_code_q()[["ANL_OUTLIER"]]
-
       qenv <- common_code_q()
 
+      ANL <- qenv[["ANL"]]
+      ANL_OUTLIER <- qenv[["ANL_OUTLIER"]]
+
       outlier_var <- as.vector(merged$anl_input_r()$columns_source$outlier_var)
       categorical_var <- as.vector(merged$anl_input_r()$columns_source$categorical_var)