chore: settlement

Author: averissimo

R/tm_g_distribution.R

@@ -1241,19 +1241,16 @@ srv_distribution <- function(id,
       data = output_dist_q,
       transformators = decorators
     )
+
     decorated_output_dist_q <- reactive(within(req(decorated_output_dist_q_no_print()), expr = print(plot)))
 
     decorated_output_qq_q_no_print <- srv_transform_teal_data(
       "d_qq",
       data = output_qq_q,
       transformators = decorators
     )
-    decorated_output_qq_q <- reactive(within(req(decorated_output_qq_q_no_print()), expr = print(plot)))
-
-
-    decorated_output_dist_q <- reactive(within(decorated_output_dist_q_no_print(), print(plot)))
-    decorated_output_qq_q <- reactive(within(decorated_output_qq_q_no_print(), print(plot)))
 
+    decorated_output_qq_q <- reactive(within(req(decorated_output_qq_q_no_print()), expr = print(plot)))
 
     decorated_output_q <- reactive({
       tab <- req(input$tabs) # tab is NULL upon app launch, hence will crash without this statement