Remove source code button from modules' encoding panel (#319)

averissimo · web-flow · commit 5f0735c0563f · 2025-10-03T14:35:22.000+02:00
# Pull Request - Part of insightsengineering/teal#1534 Companion to: - insightsengineering/teal#1592 - insightsengineering/teal.reporter#401 Other similar PRs in modules: - insightsengineering/teal.modules.clinical#1425 - insightsengineering/teal.modules.general#917 - insightsengineering/teal.goshawk#366 - #319
diff --git a/R/tm_g_ae_oview.R b/R/tm_g_ae_oview.R
@@ -186,9 +186,6 @@ ui_g_ae_oview <- function(id, ...) {
         titles = "AE Overview",
         footnotes = ""
       )
-    ),
-    forms = tagList(
-      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
     )
   )
 }
@@ -337,12 +334,6 @@ srv_g_ae_oview <- function(id,
     )
 
     plot_r <- reactive(output_q()[["plot"]])
-
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      verbatim_content = reactive(teal.code::get_code(output_q())),
-      title = paste("R code for", label)
-    )
     set_chunk_dims(pws, output_q)
   })
 }
diff --git a/R/tm_g_ae_sub.R b/R/tm_g_ae_sub.R
@@ -163,9 +163,6 @@ ui_g_ae_sub <- function(id, ...) {
           footnotes = ""
         )
       )
-    ),
-    forms = tagList(
-      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
     )
   )
 }
@@ -379,12 +376,6 @@ srv_g_ae_sub <- function(id,
     )
 
     plot_r <- reactive(output_q()[["plot"]])
-
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      verbatim_content = reactive(teal.code::get_code(output_q())),
-      title = paste("R code for", label),
-    )
     set_chunk_dims(pws, output_q)
   })
 }
diff --git a/R/tm_g_butterfly.R b/R/tm_g_butterfly.R
@@ -253,9 +253,6 @@ ui_g_butterfly <- function(id, ...) {
         value = a$legend_on
       )
     ),
-    forms = tagList(
-      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
-    ),
     pre_output = a$pre_output,
     post_output = a$post_output
   )
@@ -471,16 +468,22 @@ srv_g_butterfly <- function(id, data, dataname, label, plot_height, plot_width)
           teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Selected Options")
         }
         if (!is.null(input$filter_var)) {
-          teal.reporter::teal_card(q1) <-
-            c(teal.reporter::teal_card(q1), paste0("Preset Data Filters: ", paste(input$filter_var, collapse = ", "), "."))
+          teal.reporter::teal_card(q1) <- c(
+            teal.reporter::teal_card(q1),
+            sprintf("Preset Data Filters: %s.", paste(input$filter_var, collapse = ", "))
+          )
         }
         if (!is.null(input$facet_var)) {
-          teal.reporter::teal_card(q1) <-
-            c(teal.reporter::teal_card(q1), paste0("Faceted by: ", paste(input$facet_var, collapse = ", "), "."))
+          teal.reporter::teal_card(q1) <- c(
+            teal.reporter::teal_card(q1),
+            sprintf("Faceted by: %s.", paste(input$facet_var, collapse = ", "))
+          )
         }
         if (!is.null(input$sort_by_var)) {
-          teal.reporter::teal_card(q1) <-
-            c(teal.reporter::teal_card(q1), paste0("Sorted by: ", paste(input$sort_by_var, collapse = ", "), "."))
+          teal.reporter::teal_card(q1) <- c(
+            teal.reporter::teal_card(q1),
+            sprintf("Sorted by: %s.", paste(input$sort_by_var, collapse = ", "))
+          )
         }
 
         if (!is.null(right_val) && !is.null(left_val)) {
@@ -528,11 +531,6 @@ srv_g_butterfly <- function(id, data, dataname, label, plot_height, plot_width)
       width = plot_width
     )
 
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      title = paste("R code for", label),
-      verbatim_content = reactive(teal.code::get_code(output_q()))
-    )
     set_chunk_dims(pws, output_q)
   })
 }
diff --git a/R/tm_g_decorate.R b/R/tm_g_decorate.R
@@ -75,12 +75,7 @@ srv_g_decorate <- function(id,
       width = plot_width
     )
 
-    return(
-      list(
-        font_size = reactive(input$fontsize),
-        pws = pws
-      )
-    )
+    list(font_size = reactive(input$fontsize), pws = pws)
   })
 }
 
diff --git a/R/tm_g_events_term_id.R b/R/tm_g_events_term_id.R
@@ -190,9 +190,6 @@ ui_g_events_term_id <- function(id, ...) {
         titles = "Common AE Table",
         footnotes = ""
       )
-    ),
-    forms = tagList(
-      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
     )
   )
 }
@@ -246,7 +243,6 @@ srv_g_events_term_id <- function(id,
       )
     })
 
-
     observeEvent(input$sort,
       {
         sort <- if (is.null(input$sort)) " " else input$sort
@@ -365,12 +361,6 @@ srv_g_events_term_id <- function(id,
     })
 
     plot_r <- reactive(output_q()[["plot"]])
-
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      title = paste("R code for", label),
-      verbatim_content = reactive(teal.code::get_code(output_q()))
-    )
     set_chunk_dims(pws, output_q)
   })
 }
diff --git a/R/tm_g_heat_bygrade.R b/R/tm_g_heat_bygrade.R
@@ -264,9 +264,6 @@ ui_g_heatmap_bygrade <- function(id, ...) {
           titles = "Heatmap by Grade",
           footnotes = ""
         )
-      ),
-      forms = tagList(
-        teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
       )
     )
   )
@@ -459,12 +456,6 @@ srv_g_heatmap_bygrade <- function(id,
     )
 
     plot_r <- reactive(output_q()[["plot"]])
-
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      title = paste("R code for", label),
-      verbatim_content = reactive(teal.code::get_code(output_q()))
-    )
     set_chunk_dims(pws, output_q)
   })
 }
diff --git a/R/tm_g_patient_profile.R b/R/tm_g_patient_profile.R
@@ -327,9 +327,6 @@ ui_g_patient_profile <- function(id, ...) {
           value = a$x_limit
         )
       ),
-      forms = tagList(
-        teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
-      ),
       pre_output = a$pre_output,
       post_output = a$post_output
     )
@@ -913,11 +910,6 @@ srv_g_patient_profile <- function(id,
       width = plot_width
     )
 
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      title = paste("R code for", label),
-      verbatim_content = reactive(teal.code::get_code(output_q()))
-    )
     set_chunk_dims(pws, output_q)
   })
 }
diff --git a/R/tm_g_spiderplot.R b/R/tm_g_spiderplot.R
@@ -235,9 +235,6 @@ ui_g_spider <- function(id, ...) {
           value = a$href_line
         )
       ),
-      forms = tagList(
-        teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
-      ),
       pre_output = a$pre_output,
       post_output = a$post_output
     )
@@ -396,12 +393,16 @@ srv_g_spider <- function(id, data, dataname, paramcd, label, plot_height, plot_w
           c(teal.reporter::teal_card(q1), paste0("Parameter - (from ", dataname, "): ", input$paramcd, "."))
       }
       if (!is.null(input$xfacet_var)) {
-        teal.reporter::teal_card(q1) <-
-          c(teal.reporter::teal_card(q1), paste0("Faceted horizontally by: ", paste(input$xfacet_var, collapse = ", "), "."))
+        teal.reporter::teal_card(q1) <- c(
+          teal.reporter::teal_card(q1),
+          sprintf("Faceted horizontally by: %s.", paste(input$xfacet_var, collapse = ", "))
+        )
       }
       if (!is.null(input$yfacet_var)) {
-        teal.reporter::teal_card(q1) <-
-          c(teal.reporter::teal_card(q1), paste0("Faceted vertically by: ", paste(input$yfacet_var, collapse = ", "), "."))
+        teal.reporter::teal_card(q1) <- c(
+          teal.reporter::teal_card(q1),
+          sprintf("Faceted vertically by: %s.", paste(input$yfacet_var, collapse = ", "))
+        )
       }
 
       q1 <- teal.code::eval_code(
@@ -460,11 +461,6 @@ srv_g_spider <- function(id, data, dataname, paramcd, label, plot_height, plot_w
       width = plot_width
     )
 
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      title = paste("R code for", label),
-      verbatim_content = reactive(teal.code::get_code(output_q()))
-    )
     set_chunk_dims(pws, output_q)
   })
 }
diff --git a/R/tm_g_swimlane.R b/R/tm_g_swimlane.R
@@ -248,9 +248,6 @@ ui_g_swimlane <- function(id, ...) {
           value = paste(a$vref_line, collapse = ", ")
         )
       ),
-      forms = tagList(
-        teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
-      ),
       pre_output = a$pre_output,
       post_output = a$post_output
     )
@@ -525,11 +522,6 @@ srv_g_swimlane <- function(id,
       width = plot_width
     )
 
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      title = paste("R code for", label),
-      verbatim_content = reactive(teal.code::get_code(output_q()))
-    )
     set_chunk_dims(pws, output_q)
   })
 }
diff --git a/R/tm_g_waterfall.R b/R/tm_g_waterfall.R
@@ -258,9 +258,6 @@ ui_g_waterfall <- function(id, ...) {
         value = a$gap_point_val
       )
     ),
-    forms = tagList(
-      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
-    ),
     pre_output = a$pre_output,
     post_output = a$post_output
   )
@@ -590,12 +587,6 @@ srv_g_waterfall <- function(id,
       width = plot_width
     )
 
-    # Show R Code
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      title = paste("R code for", label),
-      verbatim_content = reactive(teal.code::get_code(output_q()))
-    )
     set_chunk_dims(pws, output_q)
   })
 }

Original file line number	Diff line number	Diff line change
`@@ -186,9 +186,6 @@ ui_g_ae_oview <- function(id, ...) {`
`186`	`186`	`titles = "AE Overview",`
`187`	`187`	`footnotes = ""`
`188`	`188`	`)`
`189`		`- ),`
`190`		`- forms = tagList(`
`191`		`- teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")`
`192`	`189`	`)`
`193`	`190`	`)`
`194`	`191`	`}`
`@@ -337,12 +334,6 @@ srv_g_ae_oview <- function(id,`
`337`	`334`	`)`
`338`	`335`
`339`	`336`	`plot_r <- reactive(output_q()[["plot"]])`
`340`		`-`
`341`		`- teal.widgets::verbatim_popup_srv(`
`342`		`- id = "rcode",`
`343`		`- verbatim_content = reactive(teal.code::get_code(output_q())),`
`344`		`- title = paste("R code for", label)`
`345`		`- )`
`346`	`337`	`set_chunk_dims(pws, output_q)`
`347`	`338`	`})`
`348`	`339`	`}`
Original file line number	Diff line number	Diff line change
`@@ -163,9 +163,6 @@ ui_g_ae_sub <- function(id, ...) {`
`163`	`163`	`footnotes = ""`
`164`	`164`	`)`
`165`	`165`	`)`
`166`		`- ),`
`167`		`- forms = tagList(`
`168`		`- teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")`
`169`	`166`	`)`
`170`	`167`	`)`
`171`	`168`	`}`
`@@ -379,12 +376,6 @@ srv_g_ae_sub <- function(id,`
`379`	`376`	`)`
`380`	`377`
`381`	`378`	`plot_r <- reactive(output_q()[["plot"]])`
`382`		`-`
`383`		`- teal.widgets::verbatim_popup_srv(`
`384`		`- id = "rcode",`
`385`		`- verbatim_content = reactive(teal.code::get_code(output_q())),`
`386`		`- title = paste("R code for", label),`
`387`		`- )`
`388`	`379`	`set_chunk_dims(pws, output_q)`
`389`	`380`	`})`
`390`	`381`	`}`
Original file line number	Diff line number	Diff line change
`@@ -75,12 +75,7 @@ srv_g_decorate <- function(id,`
`75`	`75`	`width = plot_width`
`76`	`76`	`)`
`77`	`77`
`78`		`- return(`
`79`		`- list(`
`80`		`- font_size = reactive(input$fontsize),`
`81`		`- pws = pws`
`82`		`- )`
`83`		`- )`
	`78`	`+ list(font_size = reactive(input$fontsize), pws = pws)`
`84`	`79`	`})`
`85`	`80`	`}`
`86`	`81`
Original file line number	Diff line number	Diff line change
`@@ -190,9 +190,6 @@ ui_g_events_term_id <- function(id, ...) {`
`190`	`190`	`titles = "Common AE Table",`
`191`	`191`	`footnotes = ""`
`192`	`192`	`)`
`193`		`- ),`
`194`		`- forms = tagList(`
`195`		`- teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")`
`196`	`193`	`)`
`197`	`194`	`)`
`198`	`195`	`}`
`@@ -246,7 +243,6 @@ srv_g_events_term_id <- function(id,`
`246`	`243`	`)`
`247`	`244`	`})`
`248`	`245`
`249`		`-`
`250`	`246`	`observeEvent(input$sort,`
`251`	`247`	`{`
`252`	`248`	`sort <- if (is.null(input$sort)) " " else input$sort`
`@@ -365,12 +361,6 @@ srv_g_events_term_id <- function(id,`
`365`	`361`	`})`
`366`	`362`
`367`	`363`	`plot_r <- reactive(output_q()[["plot"]])`
`368`		`-`
`369`		`- teal.widgets::verbatim_popup_srv(`
`370`		`- id = "rcode",`
`371`		`- title = paste("R code for", label),`
`372`		`- verbatim_content = reactive(teal.code::get_code(output_q()))`
`373`		`- )`
`374`	`364`	`set_chunk_dims(pws, output_q)`
`375`	`365`	`})`
`376`	`366`	`}`
Original file line number	Diff line number	Diff line change
`@@ -264,9 +264,6 @@ ui_g_heatmap_bygrade <- function(id, ...) {`
`264`	`264`	`titles = "Heatmap by Grade",`
`265`	`265`	`footnotes = ""`
`266`	`266`	`)`
`267`		`- ),`
`268`		`- forms = tagList(`
`269`		`- teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")`
`270`	`267`	`)`
`271`	`268`	`)`
`272`	`269`	`)`
`@@ -459,12 +456,6 @@ srv_g_heatmap_bygrade <- function(id,`
`459`	`456`	`)`
`460`	`457`
`461`	`458`	`plot_r <- reactive(output_q()[["plot"]])`
`462`		`-`
`463`		`- teal.widgets::verbatim_popup_srv(`
`464`		`- id = "rcode",`
`465`		`- title = paste("R code for", label),`
`466`		`- verbatim_content = reactive(teal.code::get_code(output_q()))`
`467`		`- )`
`468`	`459`	`set_chunk_dims(pws, output_q)`
`469`	`460`	`})`
`470`	`461`	`}`
Original file line number	Diff line number	Diff line change
`@@ -327,9 +327,6 @@ ui_g_patient_profile <- function(id, ...) {`
`327`	`327`	`value = a$x_limit`
`328`	`328`	`)`
`329`	`329`	`),`
`330`		`- forms = tagList(`
`331`		`- teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")`
`332`		`- ),`
`333`	`330`	`pre_output = a$pre_output,`
`334`	`331`	`post_output = a$post_output`
`335`	`332`	`)`
`@@ -913,11 +910,6 @@ srv_g_patient_profile <- function(id,`
`913`	`910`	`width = plot_width`
`914`	`911`	`)`
`915`	`912`
`916`		`- teal.widgets::verbatim_popup_srv(`
`917`		`- id = "rcode",`
`918`		`- title = paste("R code for", label),`
`919`		`- verbatim_content = reactive(teal.code::get_code(output_q()))`
`920`		`- )`
`921`	`913`	`set_chunk_dims(pws, output_q)`
`922`	`914`	`})`
`923`	`915`	`}`
Original file line number	Diff line number	Diff line change
`@@ -235,9 +235,6 @@ ui_g_spider <- function(id, ...) {`
`235`	`235`	`value = a$href_line`
`236`	`236`	`)`
`237`	`237`	`),`
`238`		`- forms = tagList(`
`239`		`- teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")`
`240`		`- ),`
`241`	`238`	`pre_output = a$pre_output,`
`242`	`239`	`post_output = a$post_output`
`243`	`240`	`)`
`@@ -396,12 +393,16 @@ srv_g_spider <- function(id, data, dataname, paramcd, label, plot_height, plot_w`
`396`	`393`	`c(teal.reporter::teal_card(q1), paste0("Parameter - (from ", dataname, "): ", input$paramcd, "."))`
`397`	`394`	`}`
`398`	`395`	`if (!is.null(input$xfacet_var)) {`
`399`		`- teal.reporter::teal_card(q1) <-`
`400`		`- c(teal.reporter::teal_card(q1), paste0("Faceted horizontally by: ", paste(input$xfacet_var, collapse = ", "), "."))`
	`396`	`+ teal.reporter::teal_card(q1) <- c(`
	`397`	`+ teal.reporter::teal_card(q1),`
	`398`	`+ sprintf("Faceted horizontally by: %s.", paste(input$xfacet_var, collapse = ", "))`
	`399`	`+ )`
`401`	`400`	`}`
`402`	`401`	`if (!is.null(input$yfacet_var)) {`
`403`		`- teal.reporter::teal_card(q1) <-`
`404`		`- c(teal.reporter::teal_card(q1), paste0("Faceted vertically by: ", paste(input$yfacet_var, collapse = ", "), "."))`
	`402`	`+ teal.reporter::teal_card(q1) <- c(`
	`403`	`+ teal.reporter::teal_card(q1),`
	`404`	`+ sprintf("Faceted vertically by: %s.", paste(input$yfacet_var, collapse = ", "))`
	`405`	`+ )`
`405`	`406`	`}`
`406`	`407`
`407`	`408`	`q1 <- teal.code::eval_code(`
`@@ -460,11 +461,6 @@ srv_g_spider <- function(id, data, dataname, paramcd, label, plot_height, plot_w`
`460`	`461`	`width = plot_width`
`461`	`462`	`)`
`462`	`463`
`463`		`- teal.widgets::verbatim_popup_srv(`
`464`		`- id = "rcode",`
`465`		`- title = paste("R code for", label),`
`466`		`- verbatim_content = reactive(teal.code::get_code(output_q()))`
`467`		`- )`
`468`	`464`	`set_chunk_dims(pws, output_q)`
`469`	`465`	`})`
`470`	`466`	`}`
Original file line number	Diff line number	Diff line change
`@@ -248,9 +248,6 @@ ui_g_swimlane <- function(id, ...) {`
`248`	`248`	`value = paste(a$vref_line, collapse = ", ")`
`249`	`249`	`)`
`250`	`250`	`),`
`251`		`- forms = tagList(`
`252`		`- teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")`
`253`		`- ),`
`254`	`251`	`pre_output = a$pre_output,`
`255`	`252`	`post_output = a$post_output`
`256`	`253`	`)`
`@@ -525,11 +522,6 @@ srv_g_swimlane <- function(id,`
`525`	`522`	`width = plot_width`
`526`	`523`	`)`
`527`	`524`
`528`		`- teal.widgets::verbatim_popup_srv(`
`529`		`- id = "rcode",`
`530`		`- title = paste("R code for", label),`
`531`		`- verbatim_content = reactive(teal.code::get_code(output_q()))`
`532`		`- )`
`533`	`525`	`set_chunk_dims(pws, output_q)`
`534`	`526`	`})`
`535`	`527`	`}`
Original file line number	Diff line number	Diff line change
`@@ -258,9 +258,6 @@ ui_g_waterfall <- function(id, ...) {`
`258`	`258`	`value = a$gap_point_val`
`259`	`259`	`)`
`260`	`260`	`),`
`261`		`- forms = tagList(`
`262`		`- teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")`
`263`		`- ),`
`264`	`261`	`pre_output = a$pre_output,`
`265`	`262`	`post_output = a$post_output`
`266`	`263`	`)`
`@@ -590,12 +587,6 @@ srv_g_waterfall <- function(id,`
`590`	`587`	`width = plot_width`
`591`	`588`	`)`
`592`	`589`
`593`		`- # Show R Code`
`594`		`- teal.widgets::verbatim_popup_srv(`
`595`		`- id = "rcode",`
`596`		`- title = paste("R code for", label),`
`597`		`- verbatim_content = reactive(teal.code::get_code(output_q()))`
`598`		`- )`
`599`	`590`	`set_chunk_dims(pws, output_q)`
`600`	`591`	`})`
`601`	`592`	`}`