feat: source code standardization

averissimo · averissimo · commit b8c46740688e · 2025-01-06T14:29:40.000Z
diff --git a/R/tm_a_pca.R b/R/tm_a_pca.R
@@ -1121,9 +1121,12 @@ srv_a_pca <- function(id, data, reporter, filter_panel_api, dat, plot_height, pl
       )
     })
 
+    # Render R code.
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_q())))
+
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
-      verbatim_content = reactive(teal.code::get_code(req(decorated_output_q()))),
+      verbatim_content = source_code_r,
       title = "R Code for PCA"
     )
 
@@ -1146,7 +1149,7 @@ srv_a_pca <- function(id, data, reporter, filter_panel_api, dat, plot_height, pl
           card$append_text("Comment", "header3")
           card$append_text(comment)
         }
-        card$append_src(teal.code::get_code(req(decorated_output_q())))
+        card$append_src(source_code_r())
         card
       }
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
diff --git a/R/tm_a_regression.R b/R/tm_a_regression.R
@@ -1006,9 +1006,12 @@ srv_a_regression <- function(id,
       )
     })
 
+    # Render R code.
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_q())))
+
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
-      verbatim_content = reactive(teal.code::get_code(req(decorated_output_q()))),
+      verbatim_content = source_code_r,
       title = "R code for the regression plot",
     )
 
@@ -1027,7 +1030,7 @@ srv_a_regression <- function(id,
           card$append_text("Comment", "header3")
           card$append_text(comment)
         }
-        card$append_src(teal.code::get_code(req(decorated_output_q())))
+        card$append_src(source_code_r())
         card
       }
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
diff --git a/R/tm_g_association.R b/R/tm_g_association.R
@@ -526,9 +526,12 @@ srv_tm_g_association <- function(id,
       teal.code::dev_suppress(output_q()[["title"]])
     })
 
+    # Render R code.
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_grob_q())))
+
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
-      verbatim_content = reactive(teal.code::get_code(req(decorated_output_grob_q()))),
+      verbatim_content = source_code_r,
       title = "Association Plot"
     )
 
@@ -547,7 +550,7 @@ srv_tm_g_association <- function(id,
           card$append_text("Comment", "header3")
           card$append_text(comment)
         }
-        card$append_src(teal.code::get_code(req(decorated_output_grob_q())))
+        card$append_src(source_code_r())
         card
       }
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
diff --git a/R/tm_g_bivariate.R b/R/tm_g_bivariate.R
@@ -715,9 +715,12 @@ srv_g_bivariate <- function(id,
       width = plot_width
     )
 
+    # Render R code.
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_q_facets())))
+
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
-      verbatim_content = reactive(teal.code::get_code(req(decorated_output_q_facets()))),
+      verbatim_content = source_code_r,
       title = "Bivariate Plot"
     )
 
@@ -736,7 +739,7 @@ srv_g_bivariate <- function(id,
           card$append_text("Comment", "header3")
           card$append_text(comment)
         }
-        card$append_src(teal.code::get_code(req(decorated_output_q_facets)))
+        card$append_src(source_code_r())
         card
       }
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R
@@ -1368,9 +1368,12 @@ srv_distribution <- function(id,
       expr = tests_r()
     )
 
+    # Render R code.
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_q())))
+
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
-      verbatim_content = reactive(teal.code::get_code(req(decorated_output_q()))),
+      verbatim_content = source_code_r,
       title = "R Code for distribution"
     )
 
@@ -1402,7 +1405,7 @@ srv_distribution <- function(id,
           card$append_text("Comment", "header3")
           card$append_text(comment)
         }
-        card$append_src(teal.code::get_code(req(decorated_output_q())))
+        card$append_src(source_code_r())
         card
       }
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
diff --git a/R/tm_g_response.R b/R/tm_g_response.R
@@ -571,9 +571,12 @@ srv_g_response <- function(id,
       width = plot_width
     )
 
+    # Render R code.
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_plot_q())))
+
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
-      verbatim_content = reactive(teal.code::get_code(req(decorated_output_plot_q()))),
+      verbatim_content = source_code_r,
       title = "Show R Code for Response"
     )
 
@@ -592,7 +595,7 @@ srv_g_response <- function(id,
           card$append_text("Comment", "header3")
           card$append_text(comment)
         }
-        card$append_src(teal.code::get_code(req(decorated_output_plot_q())))
+        card$append_src(source_code_r())
         card
       }
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
diff --git a/R/tm_g_scatterplot.R b/R/tm_g_scatterplot.R
@@ -1055,9 +1055,12 @@ srv_g_scatterplot <- function(id,
       }
     })
 
+    # Render R code.
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_plot_q())))
+
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
-      verbatim_content = reactive(teal.code::get_code(req(decorated_output_plot_q()))),
+      verbatim_content = source_code_r,
       title = "R Code for scatterplot"
     )
 
@@ -1076,7 +1079,7 @@ srv_g_scatterplot <- function(id,
           card$append_text("Comment", "header3")
           card$append_text(comment)
         }
-        card$append_src(teal.code::get_code(req(decorated_output_plot_q())))
+        card$append_src(source_code_r())
         card
       }
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
diff --git a/R/tm_g_scatterplotmatrix.R b/R/tm_g_scatterplotmatrix.R
@@ -486,9 +486,12 @@ srv_g_scatterplotmatrix <- function(id,
       }
     })
 
+    # Render R code.
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_q())))
+
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
-      verbatim_content = reactive(teal.code::get_code(req(decorated_output_q()))),
+      verbatim_content = source_code_r,
       title = "Show R Code for Scatterplotmatrix"
     )
 
@@ -507,7 +510,7 @@ srv_g_scatterplotmatrix <- function(id,
           card$append_text("Comment", "header3")
           card$append_text(comment)
         }
-        card$append_src(teal.code::get_code(req(decorated_output_q())))
+        card$append_src(source_code_r())
         card
       }
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
diff --git a/R/tm_missing_data.R b/R/tm_missing_data.R
@@ -1361,9 +1361,12 @@ srv_missing_data <- function(id,
       }
     })
 
+    # Render R code.
+    source_code_r <- reactive(teal.code::get_code(req(decorated_final_q())))
+
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
-      verbatim_content = reactive(teal.code::get_code(req(decorated_final_q()))),
+      verbatim_content = source_code_r,
       title = "Show R Code for Missing Data"
     )
 
@@ -1399,7 +1402,7 @@ srv_missing_data <- function(id,
           card$append_text("Comment", "header3")
           card$append_text(comment)
         }
-        card$append_src(teal.code::get_code(req(decorated_final_q())))
+        card$append_src(source_code_r())
         card
       }
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
diff --git a/R/tm_outliers.R b/R/tm_outliers.R
@@ -1299,9 +1299,12 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,
       )
     })
 
+    # Render R code.
+    source_code_r <- reactive(teal.code::get_code(req(decorated_final_q())))
+
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
-      verbatim_content = reactive(teal.code::get_code(req(decorated_final_q()))),
+      verbatim_content = source_code_r,
       title = "Show R Code for Outlier"
     )
 
@@ -1333,7 +1336,7 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,
           card$append_text("Comment", "header3")
           card$append_text(comment)
         }
-        card$append_src(teal.code::get_code(req(decorated_final_q())))
+        card$append_src(source_code_r())
         card
       }
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
diff --git a/R/tm_t_crosstable.R b/R/tm_t_crosstable.R
@@ -429,9 +429,12 @@ srv_t_crosstable <- function(id, data, reporter, filter_panel_api, label, x, y,
       table_r = table_r
     )
 
+    # Render R code.
+    source_code_r <- reactive(teal.code::get_code(req(decorated_output_q())))
+
     teal.widgets::verbatim_popup_srv(
       id = "rcode",
-      verbatim_content = reactive(teal.code::get_code(req(decorated_output_q()))),
+      verbatim_content = source_code_r,
       title = "Show R Code for Cross-Table"
     )
 
@@ -450,7 +453,7 @@ srv_t_crosstable <- function(id, data, reporter, filter_panel_api, label, x, y,
           card$append_text("Comment", "header3")
           card$append_text(comment)
         }
-        card$append_src(teal.code::get_code(req(decorated_output_q())))
+        card$append_src(source_code_r())
         card
       }
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)

Original file line number	Diff line number	Diff line change
`@@ -1121,9 +1121,12 @@ srv_a_pca <- function(id, data, reporter, filter_panel_api, dat, plot_height, pl`
`1121`	`1121`	`)`
`1122`	`1122`	`})`
`1123`	`1123`
	`1124`	`+ # Render R code.`
	`1125`	`+ source_code_r <- reactive(teal.code::get_code(req(decorated_output_q())))`
	`1126`	`+`
`1124`	`1127`	`teal.widgets::verbatim_popup_srv(`
`1125`	`1128`	`id = "rcode",`
`1126`		`- verbatim_content = reactive(teal.code::get_code(req(decorated_output_q()))),`
	`1129`	`+ verbatim_content = source_code_r,`
`1127`	`1130`	`title = "R Code for PCA"`
`1128`	`1131`	`)`
`1129`	`1132`
`@@ -1146,7 +1149,7 @@ srv_a_pca <- function(id, data, reporter, filter_panel_api, dat, plot_height, pl`
`1146`	`1149`	`card$append_text("Comment", "header3")`
`1147`	`1150`	`card$append_text(comment)`
`1148`	`1151`	`}`
`1149`		`- card$append_src(teal.code::get_code(req(decorated_output_q())))`
	`1152`	`+ card$append_src(source_code_r())`
`1150`	`1153`	`card`
`1151`	`1154`	`}`
`1152`	`1155`	`teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)`
Original file line number	Diff line number	Diff line change
`@@ -1006,9 +1006,12 @@ srv_a_regression <- function(id,`
`1006`	`1006`	`)`
`1007`	`1007`	`})`
`1008`	`1008`
	`1009`	`+ # Render R code.`
	`1010`	`+ source_code_r <- reactive(teal.code::get_code(req(decorated_output_q())))`
	`1011`	`+`
`1009`	`1012`	`teal.widgets::verbatim_popup_srv(`
`1010`	`1013`	`id = "rcode",`
`1011`		`- verbatim_content = reactive(teal.code::get_code(req(decorated_output_q()))),`
	`1014`	`+ verbatim_content = source_code_r,`
`1012`	`1015`	`title = "R code for the regression plot",`
`1013`	`1016`	`)`
`1014`	`1017`
`@@ -1027,7 +1030,7 @@ srv_a_regression <- function(id,`
`1027`	`1030`	`card$append_text("Comment", "header3")`
`1028`	`1031`	`card$append_text(comment)`
`1029`	`1032`	`}`
`1030`		`- card$append_src(teal.code::get_code(req(decorated_output_q())))`
	`1033`	`+ card$append_src(source_code_r())`
`1031`	`1034`	`card`
`1032`	`1035`	`}`
`1033`	`1036`	`teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)`
Original file line number	Diff line number	Diff line change
`@@ -715,9 +715,12 @@ srv_g_bivariate <- function(id,`
`715`	`715`	`width = plot_width`
`716`	`716`	`)`
`717`	`717`
	`718`	`+ # Render R code.`
	`719`	`+ source_code_r <- reactive(teal.code::get_code(req(decorated_output_q_facets())))`
	`720`	`+`
`718`	`721`	`teal.widgets::verbatim_popup_srv(`
`719`	`722`	`id = "rcode",`
`720`		`- verbatim_content = reactive(teal.code::get_code(req(decorated_output_q_facets()))),`
	`723`	`+ verbatim_content = source_code_r,`
`721`	`724`	`title = "Bivariate Plot"`
`722`	`725`	`)`
`723`	`726`
`@@ -736,7 +739,7 @@ srv_g_bivariate <- function(id,`
`736`	`739`	`card$append_text("Comment", "header3")`
`737`	`740`	`card$append_text(comment)`
`738`	`741`	`}`
`739`		`- card$append_src(teal.code::get_code(req(decorated_output_q_facets)))`
	`742`	`+ card$append_src(source_code_r())`
`740`	`743`	`card`
`741`	`744`	`}`
`742`	`745`	`teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)`
Original file line number	Diff line number	Diff line change
`@@ -1368,9 +1368,12 @@ srv_distribution <- function(id,`
`1368`	`1368`	`expr = tests_r()`
`1369`	`1369`	`)`
`1370`	`1370`
	`1371`	`+ # Render R code.`
	`1372`	`+ source_code_r <- reactive(teal.code::get_code(req(decorated_output_q())))`
	`1373`	`+`
`1371`	`1374`	`teal.widgets::verbatim_popup_srv(`
`1372`	`1375`	`id = "rcode",`
`1373`		`- verbatim_content = reactive(teal.code::get_code(req(decorated_output_q()))),`
	`1376`	`+ verbatim_content = source_code_r,`
`1374`	`1377`	`title = "R Code for distribution"`
`1375`	`1378`	`)`
`1376`	`1379`
`@@ -1402,7 +1405,7 @@ srv_distribution <- function(id,`
`1402`	`1405`	`card$append_text("Comment", "header3")`
`1403`	`1406`	`card$append_text(comment)`
`1404`	`1407`	`}`
`1405`		`- card$append_src(teal.code::get_code(req(decorated_output_q())))`
	`1408`	`+ card$append_src(source_code_r())`
`1406`	`1409`	`card`
`1407`	`1410`	`}`
`1408`	`1411`	`teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)`
Original file line number	Diff line number	Diff line change
`@@ -571,9 +571,12 @@ srv_g_response <- function(id,`
`571`	`571`	`width = plot_width`
`572`	`572`	`)`
`573`	`573`
	`574`	`+ # Render R code.`
	`575`	`+ source_code_r <- reactive(teal.code::get_code(req(decorated_output_plot_q())))`
	`576`	`+`
`574`	`577`	`teal.widgets::verbatim_popup_srv(`
`575`	`578`	`id = "rcode",`
`576`		`- verbatim_content = reactive(teal.code::get_code(req(decorated_output_plot_q()))),`
	`579`	`+ verbatim_content = source_code_r,`
`577`	`580`	`title = "Show R Code for Response"`
`578`	`581`	`)`
`579`	`582`
`@@ -592,7 +595,7 @@ srv_g_response <- function(id,`
`592`	`595`	`card$append_text("Comment", "header3")`
`593`	`596`	`card$append_text(comment)`
`594`	`597`	`}`
`595`		`- card$append_src(teal.code::get_code(req(decorated_output_plot_q())))`
	`598`	`+ card$append_src(source_code_r())`
`596`	`599`	`card`
`597`	`600`	`}`
`598`	`601`	`teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)`
Original file line number	Diff line number	Diff line change
`@@ -1055,9 +1055,12 @@ srv_g_scatterplot <- function(id,`
`1055`	`1055`	`}`
`1056`	`1056`	`})`
`1057`	`1057`
	`1058`	`+ # Render R code.`
	`1059`	`+ source_code_r <- reactive(teal.code::get_code(req(decorated_output_plot_q())))`
	`1060`	`+`
`1058`	`1061`	`teal.widgets::verbatim_popup_srv(`
`1059`	`1062`	`id = "rcode",`
`1060`		`- verbatim_content = reactive(teal.code::get_code(req(decorated_output_plot_q()))),`
	`1063`	`+ verbatim_content = source_code_r,`
`1061`	`1064`	`title = "R Code for scatterplot"`
`1062`	`1065`	`)`
`1063`	`1066`
`@@ -1076,7 +1079,7 @@ srv_g_scatterplot <- function(id,`
`1076`	`1079`	`card$append_text("Comment", "header3")`
`1077`	`1080`	`card$append_text(comment)`
`1078`	`1081`	`}`
`1079`		`- card$append_src(teal.code::get_code(req(decorated_output_plot_q())))`
	`1082`	`+ card$append_src(source_code_r())`
`1080`	`1083`	`card`
`1081`	`1084`	`}`
`1082`	`1085`	`teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)`
Original file line number	Diff line number	Diff line change
`@@ -486,9 +486,12 @@ srv_g_scatterplotmatrix <- function(id,`
`486`	`486`	`}`
`487`	`487`	`})`
`488`	`488`
	`489`	`+ # Render R code.`
	`490`	`+ source_code_r <- reactive(teal.code::get_code(req(decorated_output_q())))`
	`491`	`+`
`489`	`492`	`teal.widgets::verbatim_popup_srv(`
`490`	`493`	`id = "rcode",`
`491`		`- verbatim_content = reactive(teal.code::get_code(req(decorated_output_q()))),`
	`494`	`+ verbatim_content = source_code_r,`
`492`	`495`	`title = "Show R Code for Scatterplotmatrix"`
`493`	`496`	`)`
`494`	`497`
`@@ -507,7 +510,7 @@ srv_g_scatterplotmatrix <- function(id,`
`507`	`510`	`card$append_text("Comment", "header3")`
`508`	`511`	`card$append_text(comment)`
`509`	`512`	`}`
`510`		`- card$append_src(teal.code::get_code(req(decorated_output_q())))`
	`513`	`+ card$append_src(source_code_r())`
`511`	`514`	`card`
`512`	`515`	`}`
`513`	`516`	`teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)`
Original file line number	Diff line number	Diff line change
`@@ -1361,9 +1361,12 @@ srv_missing_data <- function(id,`
`1361`	`1361`	`}`
`1362`	`1362`	`})`
`1363`	`1363`
	`1364`	`+ # Render R code.`
	`1365`	`+ source_code_r <- reactive(teal.code::get_code(req(decorated_final_q())))`
	`1366`	`+`
`1364`	`1367`	`teal.widgets::verbatim_popup_srv(`
`1365`	`1368`	`id = "rcode",`
`1366`		`- verbatim_content = reactive(teal.code::get_code(req(decorated_final_q()))),`
	`1369`	`+ verbatim_content = source_code_r,`
`1367`	`1370`	`title = "Show R Code for Missing Data"`
`1368`	`1371`	`)`
`1369`	`1372`
`@@ -1399,7 +1402,7 @@ srv_missing_data <- function(id,`
`1399`	`1402`	`card$append_text("Comment", "header3")`
`1400`	`1403`	`card$append_text(comment)`
`1401`	`1404`	`}`
`1402`		`- card$append_src(teal.code::get_code(req(decorated_final_q())))`
	`1405`	`+ card$append_src(source_code_r())`
`1403`	`1406`	`card`
`1404`	`1407`	`}`
`1405`	`1408`	`teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)`
Original file line number	Diff line number	Diff line change
`@@ -1299,9 +1299,12 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,`
`1299`	`1299`	`)`
`1300`	`1300`	`})`
`1301`	`1301`
	`1302`	`+ # Render R code.`
	`1303`	`+ source_code_r <- reactive(teal.code::get_code(req(decorated_final_q())))`
	`1304`	`+`
`1302`	`1305`	`teal.widgets::verbatim_popup_srv(`
`1303`	`1306`	`id = "rcode",`
`1304`		`- verbatim_content = reactive(teal.code::get_code(req(decorated_final_q()))),`
	`1307`	`+ verbatim_content = source_code_r,`
`1305`	`1308`	`title = "Show R Code for Outlier"`
`1306`	`1309`	`)`
`1307`	`1310`
`@@ -1333,7 +1336,7 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,`
`1333`	`1336`	`card$append_text("Comment", "header3")`
`1334`	`1337`	`card$append_text(comment)`
`1335`	`1338`	`}`
`1336`		`- card$append_src(teal.code::get_code(req(decorated_final_q())))`
	`1339`	`+ card$append_src(source_code_r())`
`1337`	`1340`	`card`
`1338`	`1341`	`}`
`1339`	`1342`	`teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)`