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

# 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
- #366
- insightsengineering/teal.osprey#319

Author: averissimo

R/tm_g_gh_boxplot.R

@@ -274,9 +274,6 @@ ui_g_boxplot <- function(id, ...) {
         )
       )
     ),
-    forms = tagList(
-      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
-    ),
     pre_output = a$pre_output,
     post_output = a$post_output
   )
@@ -526,8 +523,6 @@ srv_g_boxplot <- function(id,
       c(create_plot(), create_table())
     })
 
-    code <- reactive(teal.code::get_code(joined_qenvs()))
-
     # highlight plot area
     reactive_df <- debounce(reactive({
       boxplot_brush <- boxplot_data$brush()
@@ -560,11 +555,6 @@ srv_g_boxplot <- function(id,
         DT::formatRound(numeric_cols, 4)
     })
 
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      verbatim_content = reactive(code()),
-      title = "Show R Code for Boxplot"
-    )
     set_chunk_dims(boxplot_data, create_plot)
   })
 }

R/tm_g_gh_correlationplot.R

@@ -341,9 +341,6 @@ ui_g_correlationplot <- function(id, ...) {
         )
       )
     ),
-    forms = tagList(
-      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
-    ),
     pre_output = a$pre_output,
     post_output = a$post_output
   )
@@ -837,8 +834,6 @@ srv_g_correlationplot <- function(id,
       brushing = TRUE
     )
 
-    code <- reactive(teal.code::get_code(plot_q()))
-
     reactive_df <- debounce(reactive({
       req(iv_r()$is_valid())
       plot_brush <- plot_data$brush()
@@ -864,11 +859,6 @@ srv_g_correlationplot <- function(id,
         DT::formatRound(numeric_cols, 4)
     })
 
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      verbatim_content = reactive(code()),
-      title = "Show R Code for Correlation Plot"
-    )
     set_chunk_dims(plot_data, plot_q)
   })
 }

R/tm_g_gh_density_distribution_plot.R

@@ -229,9 +229,6 @@ ui_g_density_distribution_plot <- function(id, ...) {
         )
       )
     ),
-    forms = tagList(
-      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
-    ),
     pre_output = a$pre_output,
     post_output = a$post_output
   )
@@ -424,14 +421,6 @@ srv_g_density_distribution_plot <- function(id, # nolint
         DT::formatRound(numeric_cols, 2)
     })
 
-    code <- reactive(teal.code::get_code(create_table()))
-
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      verbatim_content = reactive(code()),
-      title = "Show R Code for Density Distribution Plot"
-    )
-
     create_table
   })
 }

R/tm_g_gh_lineplot.R

@@ -315,9 +315,6 @@ ui_lineplot <- function(id, ...) {
           )
         )
       ),
-      forms = tagList(
-        teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
-      ),
       pre_output = a$pre_output,
       post_output = a$post_output
     )
@@ -763,14 +760,6 @@ srv_lineplot <- function(id,
       width = plot_width,
     )
 
-    code <- reactive(teal.code::get_code(plot_q()))
-
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      verbatim_content = reactive(code()),
-      title = "Show R Code for Line Plot"
-    )
-
     set_chunk_dims(plot_data, plot_q)
   })
 }

R/tm_g_gh_spaghettiplot.R

@@ -327,9 +327,6 @@ g_ui_spaghettiplot <- function(id, ...) {
           )
         )
       ),
-      forms = tagList(
-        teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
-      ),
       pre_output = a$pre_output,
       post_output = a$post_output
     )
@@ -531,8 +528,6 @@ srv_g_spaghettiplot <- function(id,
     )
 
 
-    code <- reactive(teal.code::get_code(plot_q()))
-
     reactive_df <- debounce(reactive({
       plot_brush <- plot_data$brush()
 
@@ -564,11 +559,6 @@ srv_g_spaghettiplot <- function(id,
         DT::formatRound(numeric_cols, 4)
     })
 
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      verbatim_content = reactive(code()),
-      title = "Show R Code for Spaghetti Plot"
-    )
     set_chunk_dims(plot_data, plot_q)
   })
 }