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

# Pull Request

- Part of insightsengineering/teal#1534

Companion to:
- insightsengineering/teal#1592
- insightsengineering/teal.reporter#401

Other similar PRs in modules:
- #1425
- insightsengineering/teal.modules.general#917
- insightsengineering/teal.goshawk#366
- insightsengineering/teal.osprey#319

---------

Signed-off-by: Marcin <[email protected]>
Co-authored-by: m7pr <[email protected]>
Co-authored-by: Marcin <[email protected]>
Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com>

Author: 3 people

R/tm_a_gee.R

@@ -390,9 +390,6 @@ ui_gee <- function(id, ...) {
       ),
       ui_decorate_teal_data(ns("decorator"), decorators = select_decorators(a$decorators, "table"))
     ),
-    forms = tagList(
-      teal.widgets::verbatim_popup_ui(ns("rcode"), button_label = "Show R code")
-    ),
     pre_output = a$pre_output,
     post_output = a$post_output
   )
@@ -604,14 +601,6 @@ srv_gee <- function(id,
       table_r = table_r
     )
 
-    # Render R code
-    source_code_r <- reactive(teal.code::get_code(req(decorated_table_q())))
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      verbatim_content = source_code_r,
-      title = label
-    )
-
     decorated_table_q
   })
 }

R/tm_a_mmrm.R

@@ -886,9 +886,6 @@ ui_mmrm <- function(id, ...) {
             )
           )
         )
-      ),
-      forms = tagList(
-        teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
       )
     ),
     pre_output = a$pre_output,
@@ -921,9 +918,6 @@ srv_mmrm <- function(id,
 
   moduleServer(id, function(input, output, session) {
     teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.clinical")
-    # Reactive responsible for sending a disable/enable signal
-    # to show R code and debug info buttons
-    disable_r_code <- reactiveVal(FALSE)
 
     observeEvent(input[[extract_input("cov_var", dataname)]], {
       # update covariates as actual variables
@@ -1155,26 +1149,22 @@ srv_mmrm <- function(id,
     })
 
     # Event handler:
-    # When the "Fit Model" button is clicked, hide initial message, show title, disable model fit and enable
-    # show R code buttons.
+    # When the "Fit Model" button is clicked, hide initial message, show title, disable model fit button.
     shinyjs::onclick("button_start", {
       state$input <- mmrm_inputs_reactive()
       shinyjs::hide("null_input_msg")
       shinyjs::disable("button_start")
       success <- try(mmrm_fit(), silent = TRUE)
       if (!inherits(success, "try-error")) {
         shinyjs::show("mmrm_title")
-        disable_r_code(FALSE)
       } else {
         shinyjs::hide("mmrm_title")
-        # show R code and debug info buttons will have already been hidden by disable_r_code
       }
     })
 
     # all the inputs and data that can be out of sync with the fitted model
     mmrm_inputs_reactive <- reactive({
       shinyjs::disable("button_start")
-      disable_r_code(TRUE)
       teal::validate_inputs(iv_r())
       encoding_inputs <- lapply(
         sync_inputs,
@@ -1243,9 +1233,7 @@ srv_mmrm <- function(id,
     # disable the show R code button and show warning message
     observeEvent(mmrm_inputs_reactive(), {
       shinyjs::enable("button_start")
-      disable_r_code(TRUE)
       if (!state_has_changed()) {
-        disable_r_code(FALSE)
         shinyjs::disable("button_start")
       }
     })
@@ -1562,19 +1550,9 @@ srv_mmrm <- function(id,
       show_hide_signal = reactive(!show_plot_rv())
     )
 
-    # Show R code once button is pressed.
-    source_code_r <- reactive(
-      teal.code::get_code(req(decorated_objs_q[[obj_ix_r()]]()))
-    )
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      verbatim_content = source_code_r,
-      disabled = disable_r_code,
-      title = label
-    )
-
     set_chunk_dims(pws, reactive({
       decorated_objs_q[[obj_ix_r()]]()
     }))
+
   })
 }

R/tm_g_barchart_simple.R

@@ -353,9 +353,6 @@ ui_g_barchart_simple <- function(id, ...) {
           )
         )
       ),
-      forms = tagList(
-        teal.widgets::verbatim_popup_ui(ns("rcode"), button_label = "Show R code")
-      ),
       pre_output = args$pre_output,
       post_output = args$post_output
     )
@@ -594,15 +591,8 @@ srv_g_barchart_simple <- function(id,
       width = plot_width
     )
 
-    # Render R code
-    source_code_r <- reactive(teal.code::get_code(req(decorated_all_q_code())))
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      verbatim_content = source_code_r,
-      title = label
-    )
-
     set_chunk_dims(pws, decorated_all_q_code)
+    ###
   })
 }
 

R/tm_g_ci.R

@@ -397,9 +397,6 @@ ui_g_ci <- function(id, ...) {
       ),
       ui_decorate_teal_data(ns("decorator"), decorators = select_decorators(args$decorators, "plot"))
     ),
-    forms = tagList(
-      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
-    ),
     pre_output = args$pre_output,
     post_output = args$post_output
   )
@@ -520,14 +517,6 @@ srv_g_ci <- function(id,
     # Outputs to render.
     plot_r <- reactive(decorated_plot_q()[["plot"]])
 
-    # Render R code
-    source_code_r <- reactive(teal.code::get_code(req(decorated_plot_q())))
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      verbatim_content = source_code_r,
-      title = label
-    )
-
     pws <- teal.widgets::plot_with_settings_srv(
       id = "myplot",
       plot_r = plot_r,

R/tm_g_forest_rsp.R

@@ -527,9 +527,6 @@ ui_g_forest_rsp <- function(id, ...) {
         )
       )
     ),
-    forms = tagList(
-      teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")
-    ),
     pre_output = a$pre_output,
     post_output = a$post_output
   )
@@ -826,14 +823,6 @@ srv_g_forest_rsp <- function(id,
       width = plot_width
     )
 
-    # Render R code
-    source_code_r <- reactive(teal.code::get_code(req(decorated_all_q())))
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      verbatim_content = source_code_r,
-      title = label
-    )
-
     set_chunk_dims(pws, decorated_all_q)
   })
 }

R/tm_g_forest_tte.R

@@ -528,9 +528,6 @@ ui_g_forest_tte <- function(id, ...) {
         )
       )
     ),
-    forms = tagList(
-      teal.widgets::verbatim_popup_ui(ns("rcode"), button_label = "Show R code")
-    ),
     pre_output = a$pre_output,
     post_output = a$post_output
   )
@@ -761,14 +758,6 @@ srv_g_forest_tte <- function(id,
       width = plot_width
     )
 
-    # Render R code
-    source_code_r <- reactive(teal.code::get_code(req(decorated_all_q())))
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      verbatim_content = source_code_r,
-      title = label
-    )
-
     set_chunk_dims(pws, decorated_all_q)
   })
 }

R/tm_g_ipp.R

@@ -475,9 +475,6 @@ ui_g_ipp <- function(id, ...) {
         )
       )
     ),
-    forms = tagList(
-      teal.widgets::verbatim_popup_ui(ns("rcode"), button_label = "Show R code")
-    ),
     pre_output = a$pre_output,
     post_output = a$post_output
   )
@@ -653,14 +650,6 @@ srv_g_ipp <- function(id,
       width = plot_width
     )
 
-    # Render R code
-    source_code_r <- reactive(teal.code::get_code(req(decorated_all_q())))
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      verbatim_content = source_code_r,
-      title = label
-    )
-
     set_chunk_dims(pws, decorated_all_q)
   })
 }

R/tm_g_km.R

@@ -641,9 +641,6 @@ ui_g_km <- function(id, ...) {
         )
       )
     ),
-    forms = tagList(
-      teal.widgets::verbatim_popup_ui(ns("rcode"), button_label = "Show R code")
-    ),
     pre_output = a$pre_output,
     post_output = a$post_output
   )
@@ -874,14 +871,6 @@ srv_g_km <- function(id,
       width = plot_width
     )
 
-    # Render R code
-    source_code_r <- reactive(teal.code::get_code(req(decorated_all_q())))
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      verbatim_content = source_code_r,
-      title = label
-    )
-
     set_chunk_dims(pws, decorated_all_q)
   })
 }

R/tm_g_lineplot.R

@@ -537,9 +537,6 @@ ui_g_lineplot <- function(id, ...) {
         )
       )
     ),
-    forms = tagList(
-      teal.widgets::verbatim_popup_ui(ns("rcode"), button_label = "Show R code")
-    ),
     pre_output = a$pre_output,
     post_output = a$post_output
   )
@@ -697,14 +694,6 @@ srv_g_lineplot <- function(id,
       width = plot_width
     )
 
-    # Render R code
-    source_code_r <- reactive(teal.code::get_code(req(decorated_all_q())))
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      verbatim_content = source_code_r,
-      title = label
-    )
-
     set_chunk_dims(pws, decorated_all_q)
   })
 }

R/tm_g_pp_adverse_events.R

@@ -439,9 +439,6 @@ ui_g_adverse_events <- function(id, ...) {
         )
       )
     ),
-    forms = tagList(
-      teal.widgets::verbatim_popup_ui(ns("rcode"), button_label = "Show R code")
-    ),
     pre_output = ui_args$pre_output,
     post_output = ui_args$post_output
   )
@@ -638,14 +635,6 @@ srv_g_adverse_events <- function(id,
       c(table_q(), decorated_all_q_plot())
     )
 
-    # Render R code
-    source_code_r <- reactive(teal.code::get_code(req(decorated_all_q())))
-    teal.widgets::verbatim_popup_srv(
-      id = "rcode",
-      verbatim_content = source_code_r,
-      title = label
-    )
-
     set_chunk_dims(pws, decorated_all_q)
   })
 }