From 0b98cf4af19bef0ddbc43613718ccf82f73e6060 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9=20Ver=C3=ADssimo?=
 <211358+averissimo@users.noreply.github.com>
Date: Thu, 9 Jan 2025 13:43:21 +0000
Subject: [PATCH] chore: code improvement

---
 R/tm_outliers.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/tm_outliers.R b/R/tm_outliers.R
index 08f5a75b0..7bb720c13 100644
--- 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)