Remove utility function

llrs-roche · llrs-roche · commit 22427b137b6a · 2025-02-19T16:15:51.000+01:00
diff --git a/R/tm_a_pca.R b/R/tm_a_pca.R
@@ -1121,7 +1121,7 @@ srv_a_pca <- function(id, data, reporter, filter_panel_api, dat, plot_height, pl
     })
 
     # Render R code.
-    source_code_r <- reactive(prepare_code(decorated_output_q()))
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_q())))
 
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
diff --git a/R/tm_a_regression.R b/R/tm_a_regression.R
@@ -1025,7 +1025,7 @@ srv_a_regression <- function(id,
     })
 
     # Render R code.
-    source_code_r <- reactive(prepare_code(decorated_output_q()))
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_q())))
 
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
diff --git a/R/tm_g_association.R b/R/tm_g_association.R
@@ -545,7 +545,7 @@ srv_tm_g_association <- function(id,
     })
 
     # Render R code.
-    source_code_r <- reactive(prepare_code(decorated_output_grob_q()))
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_grob_q())))
 
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
diff --git a/R/tm_g_bivariate.R b/R/tm_g_bivariate.R
@@ -734,7 +734,7 @@ srv_g_bivariate <- function(id,
 
     # Render R code.
 
-    source_code_r <- reactive(prepare_code(decorated_output_q_facets()))
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_q_facets())))
 
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R
@@ -1379,7 +1379,7 @@ srv_distribution <- function(id,
     output$t_stats <- DT::renderDataTable(expr = tests_r())
 
     # Render R code.
-    source_code_r <- reactive(prepare_code(decorated_output_q()))
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_q())))
 
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
diff --git a/R/tm_g_response.R b/R/tm_g_response.R
@@ -590,7 +590,7 @@ srv_g_response <- function(id,
     )
 
     # Render R code.
-    source_code_r <- reactive(prepare_code(decorated_output_plot_q()))
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_plot_q())))
 
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
diff --git a/R/tm_g_scatterplot.R b/R/tm_g_scatterplot.R
@@ -1060,7 +1060,7 @@ srv_g_scatterplot <- function(id,
     })
 
     # Render R code.
-    source_code_r <- reactive(prepare_code(decorated_output_plot_q()))
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_plot_q())))
 
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
diff --git a/R/tm_g_scatterplotmatrix.R b/R/tm_g_scatterplotmatrix.R
@@ -106,7 +106,7 @@
 #'             label = "Select variable:",
 #'             vars = "country_id",
 #'             choices = value_choices(data[["sales"]], "country_id"),
-#'             selected = c("DE", "FR", "IT", "ES", "PT", "GR", "NL", "BE", "LU", "AT"),
+#'             selected = c("DE", "FR", "IT", "PT", "GR", "NL", "BE", "LU", "AT"),
 #'             multiple = TRUE
 #'           ),
 #'           select = select_spec(
@@ -496,7 +496,7 @@ srv_g_scatterplotmatrix <- function(id,
     })
 
     # Render R code.
-    source_code_r <- reactive(prepare_code(decorated_output_q()))
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_q())))
 
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
diff --git a/R/tm_missing_data.R b/R/tm_missing_data.R
@@ -1377,7 +1377,7 @@ srv_missing_data <- function(id,
     })
 
     # Render R code.
-    source_code_r <- reactive(prepare_code(decorated_final_q()))
+    source_code_r <- reactive(teal.code::get_code(req(decorated_final_q())))
 
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
diff --git a/R/tm_outliers.R b/R/tm_outliers.R
@@ -1310,7 +1310,7 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,
     })
 
     # Render R code.
-    source_code_r <- reactive(prepare_code(decorated_final_q()))
+    source_code_r <- reactive(teal.code::get_code(req(decorated_final_q())))
 
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
diff --git a/R/tm_t_crosstable.R b/R/tm_t_crosstable.R
@@ -437,7 +437,7 @@ srv_t_crosstable <- function(id, data, reporter, filter_panel_api, label, x, y,
     )
 
     # Render R code.
-    source_code_r <- reactive(prepare_code(decorated_output_q()))
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_q())))
 
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
diff --git a/R/utils.R b/R/utils.R
@@ -399,8 +399,3 @@ select_decorators <- function(decorators, scope) {
     list()
   }
 }
-
-
-prepare_code <- function(x) {
-  teal.code::get_code(req(x))
-}

Original file line number	Diff line number	Diff line change
`@@ -590,7 +590,7 @@ srv_g_response <- function(id,`
`590`	`590`	`)`
`591`	`591`
`592`	`592`	`# Render R code.`
`593`		`- source_code_r <- reactive(prepare_code(decorated_output_plot_q()))`
	`593`	`+ source_code_r <- reactive(teal.code::get_code(req(decorated_output_plot_q())))`
`594`	`594`
`595`	`595`	`teal.widgets::verbatim_popup_srv(`
`596`	`596`	`id = "rcode",`