add req statements to get_code

m7pr · m7pr · commit d52361bca1c6 · 2024-11-19T11:23:09.000+01:00
diff --git a/R/tm_a_regression.R b/R/tm_a_regression.R
@@ -1076,7 +1076,7 @@ srv_a_regression <- function(id,
 
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
-      verbatim_content = reactive(teal.code::get_code(output_q())),
+      verbatim_content = reactive(teal.code::get_code(req(output_q()))),
       title = "R code for the regression plot",
     )
 
diff --git a/R/tm_outliers.R b/R/tm_outliers.R
@@ -1285,7 +1285,7 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,
 
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
-      verbatim_content = reactive(teal.code::get_code(final_q())),
+      verbatim_content = reactive(teal.code::get_code(req(final_q()))),
       title = "Show R Code for Outlier"
     )
 

Original file line number	Diff line number	Diff line change
`@@ -1076,7 +1076,7 @@ srv_a_regression <- function(id,`
`1076`	`1076`
`1077`	`1077`	`teal.widgets::verbatim_popup_srv(`
`1078`	`1078`	`id = "rcode",`
`1079`		`- verbatim_content = reactive(teal.code::get_code(output_q())),`
	`1079`	`+ verbatim_content = reactive(teal.code::get_code(req(output_q()))),`
`1080`	`1080`	`title = "R code for the regression plot",`
`1081`	`1081`	`)`
`1082`	`1082`
Original file line number	Diff line number	Diff line change
`@@ -1285,7 +1285,7 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,`
`1285`	`1285`
`1286`	`1286`	`teal.widgets::verbatim_popup_srv(`
`1287`	`1287`	`id = "rcode",`
`1288`		`- verbatim_content = reactive(teal.code::get_code(final_q())),`
	`1288`	`+ verbatim_content = reactive(teal.code::get_code(req(final_q()))),`
`1289`	`1289`	`title = "Show R Code for Outlier"`
`1290`	`1290`	`)`
`1291`	`1291`