Update R/tm_g_distribution.R

averissimo · m7pr · web-flow · commit 33614b7506b2 · 2024-11-28T13:22:58.000+01:00
Co-authored-by: Marcin &lt;133694481+m7pr@users.noreply.github.com&gt;
Signed-off-by: André Veríssimo &lt;211358+averissimo@users.noreply.github.com&gt;
diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R
@@ -1321,15 +1321,13 @@ srv_distribution <- function(id,
       expr = summary_table
     )
 
-    decorated_output_q_test <- srv_decorate_teal_data(
+    decorated_output_q <- srv_decorate_teal_data(
       "d_test",
       data = decorated_output_q_summary,
       decorators = subset_decorators("test_table", decorators),
       expr = test_table
     )
 
-    decorated_output_q <- decorated_output_q_test
-
     dist_r <- reactive(req(decorated_output_dist_q())[["histogram_plot"]])
 
     qq_r <- reactive(req(decorated_output_qq_q())[["qq_plot"]])

Original file line number	Diff line number	Diff line change
`@@ -1321,15 +1321,13 @@ srv_distribution <- function(id,`
`1321`	`1321`	`expr = summary_table`
`1322`	`1322`	`)`
`1323`	`1323`
`1324`		`- decorated_output_q_test <- srv_decorate_teal_data(`
	`1324`	`+ decorated_output_q <- srv_decorate_teal_data(`
`1325`	`1325`	`"d_test",`
`1326`	`1326`	`data = decorated_output_q_summary,`
`1327`	`1327`	`decorators = subset_decorators("test_table", decorators),`
`1328`	`1328`	`expr = test_table`
`1329`	`1329`	`)`
`1330`	`1330`
`1331`		`- decorated_output_q <- decorated_output_q_test`
`1332`		`-`
`1333`	`1331`	`dist_r <- reactive(req(decorated_output_dist_q())[["histogram_plot"]])`
`1334`	`1332`
`1335`	`1333`	`qq_r <- reactive(req(decorated_output_qq_q())[["qq_plot"]])`