Update R/tm_outliers.R

Signed-off-by: Marcin <[email protected]>

Author: m7pr

R/tm_outliers.R

@@ -998,14 +998,10 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,
       )
     })
 
-    decorated_boxplot_q <-
-      srv_teal_transform_data("boxplot_decorator", data = boxplot_q, transformators = decorators$boxplot_decorator)
-    decorated_violin_q <-
-      srv_teal_transform_data("violin_decorator", data = boxplot_q, transformators = decorators$violin_decorator)
-    decorated_density_plot_q <-
-      srv_teal_transform_data("density_decorator", data = density_plot_q, transformators = decorators$density_decorator)
-    decorated_cumulative_plot_q <-
-      srv_teal_transform_data("cum_dist_decorator", data = cumulative_plot_q, transformators = decorators$cum_dist_decorator)
+    decorated_boxplot_q <- srv_teal_transform_data("boxplot_decorator", data = boxplot_q, transformators = decorators$boxplot)
+    decorated_violin_q <- srv_teal_transform_data("violin_decorator", data = boxplot_q, transformators = decorators$violin)
+    decorated_density_plot_q <-srv_teal_transform_data("density_decorator", data = density_plot_q, transformators = decorators$density)
+    decorated_cumulative_plot_q <- srv_teal_transform_data("cum_dist_decorator", data = cumulative_plot_q, transformators = decorators$cum_dist)
 
     final_q <- reactive({
       req(input$tabs)