From f956063d649230533489ee36bb1c43d9fdbe4fab Mon Sep 17 00:00:00 2001 From: m7pr Date: Tue, 14 Oct 2025 16:28:58 +0200 Subject: [PATCH 1/2] restructure modules headers --- R/tm_g_ae_oview.R | 4 ++-- R/tm_g_ae_sub.R | 4 ++-- R/tm_g_butterfly.R | 4 ++-- R/tm_g_events_term_id.R | 4 ++-- R/tm_g_heat_bygrade.R | 4 ++-- R/tm_g_patient_profile.R | 4 ++-- R/tm_g_spiderplot.R | 4 ++-- R/tm_g_swimlane.R | 4 ++-- R/tm_g_waterfall.R | 4 ++-- 9 files changed, 18 insertions(+), 18 deletions(-) diff --git a/R/tm_g_ae_oview.R b/R/tm_g_ae_oview.R index 5adab9ce..5b8a4615 100644 --- a/R/tm_g_ae_oview.R +++ b/R/tm_g_ae_oview.R @@ -281,7 +281,7 @@ srv_g_ae_oview <- function(id, c( teal.reporter::teal_card("# AE Overview"), teal.reporter::teal_card(obj), - teal.reporter::teal_card("## Module's code") + teal.reporter::teal_card("## Module's output(s)") ) obj <- teal.code::eval_code(obj, "library(dplyr)") @@ -308,7 +308,7 @@ srv_g_ae_oview <- function(id, )) ) - teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "## Plot") + teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Plot") teal.code::eval_code( q1, diff --git a/R/tm_g_ae_sub.R b/R/tm_g_ae_sub.R index 5658db71..f24f41d9 100644 --- a/R/tm_g_ae_sub.R +++ b/R/tm_g_ae_sub.R @@ -312,7 +312,7 @@ srv_g_ae_sub <- function(id, c( teal.reporter::teal_card("# AE by Subgroups"), teal.reporter::teal_card(obj), - teal.reporter::teal_card("## Module's code") + teal.reporter::teal_card("## Module's output(s)") ) ANL <- obj[[dataname]] @@ -348,7 +348,7 @@ srv_g_ae_sub <- function(id, q1 <- teal.code::eval_code(obj, code = group_labels_call) %>% teal.code::eval_code(code = "") - teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "## Plot") + teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Plot") teal.code::eval_code( q1, diff --git a/R/tm_g_butterfly.R b/R/tm_g_butterfly.R index 5b22f2d5..bf76e7e8 100644 --- a/R/tm_g_butterfly.R +++ b/R/tm_g_butterfly.R @@ -383,7 +383,7 @@ srv_g_butterfly <- function(id, data, dataname, label, plot_height, plot_width) c( teal.reporter::teal_card("# Butterfly Plot"), teal.reporter::teal_card(obj), - teal.reporter::teal_card("## Module's code") + teal.reporter::teal_card("## Module's output(s)") ) obj <- teal.code::eval_code(obj, "library(dplyr)") @@ -462,7 +462,7 @@ srv_g_butterfly <- function(id, data, dataname, label, plot_height, plot_width) ) } - teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "## Plot") + teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Plot") if (!is.null(input$filter_var) || !is.null(input$facet_var) || !is.null(input$sort_by_var)) { teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Selected Options") diff --git a/R/tm_g_events_term_id.R b/R/tm_g_events_term_id.R index e1dff5fb..4faac5aa 100644 --- a/R/tm_g_events_term_id.R +++ b/R/tm_g_events_term_id.R @@ -298,7 +298,7 @@ srv_g_events_term_id <- function(id, c( teal.reporter::teal_card("# Events by Term"), teal.reporter::teal_card(obj), - teal.reporter::teal_card("## Module's code") + teal.reporter::teal_card("## Module's output(s)") ) ANL <- obj[[dataname]] @@ -334,7 +334,7 @@ srv_g_events_term_id <- function(id, msg = "Analysis data set must have at least 10 data points" ) - teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "## Plot") + teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Plot") q2 <- teal.code::eval_code( q1, diff --git a/R/tm_g_heat_bygrade.R b/R/tm_g_heat_bygrade.R index f06bc30c..d6f2dc2a 100644 --- a/R/tm_g_heat_bygrade.R +++ b/R/tm_g_heat_bygrade.R @@ -392,7 +392,7 @@ srv_g_heatmap_bygrade <- function(id, c( teal.reporter::teal_card("# Heatmap by Grade"), teal.reporter::teal_card(obj), - teal.reporter::teal_card("## Module's code") + teal.reporter::teal_card("## Module's output(s)") ) obj <- teal.code::eval_code(obj, "library(dplyr)") @@ -432,7 +432,7 @@ srv_g_heatmap_bygrade <- function(id, ) } - teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Plot") + teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Plot") teal.code::eval_code( qenv, diff --git a/R/tm_g_patient_profile.R b/R/tm_g_patient_profile.R index 9f2f6809..d61bfea9 100644 --- a/R/tm_g_patient_profile.R +++ b/R/tm_g_patient_profile.R @@ -456,7 +456,7 @@ srv_g_patient_profile <- function(id, c( teal.reporter::teal_card("# Patient Profile"), teal.reporter::teal_card(obj), - teal.reporter::teal_card("## Module's code") + teal.reporter::teal_card("## Module's output(s)") ) obj <- teal.code::eval_code(obj, "library(dplyr)") @@ -873,7 +873,7 @@ srv_g_patient_profile <- function(id, x_limit <- q1[["x_limit"]] } - teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "## Plot") + teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Plot") q1 <- teal.code::eval_code( q1, diff --git a/R/tm_g_spiderplot.R b/R/tm_g_spiderplot.R index 2944d061..a240e815 100644 --- a/R/tm_g_spiderplot.R +++ b/R/tm_g_spiderplot.R @@ -303,7 +303,7 @@ srv_g_spider <- function(id, data, dataname, paramcd, label, plot_height, plot_w c( teal.reporter::teal_card("# Spider Plot"), teal.reporter::teal_card(obj), - teal.reporter::teal_card("## Module's code") + teal.reporter::teal_card("## Module's output(s)") ) obj <- teal.code::eval_code(obj, "library(dplyr)") @@ -384,7 +384,7 @@ srv_g_spider <- function(id, data, dataname, paramcd, label, plot_height, plot_w # plot code to qenv --- - teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "## Plot") + teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Plot") if (!is.null(input$paramcd) || !is.null(input$xfacet_var) || !is.null(input$yfacet_var)) { teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Selected Options") } diff --git a/R/tm_g_swimlane.R b/R/tm_g_swimlane.R index bb138665..50700ccd 100644 --- a/R/tm_g_swimlane.R +++ b/R/tm_g_swimlane.R @@ -319,7 +319,7 @@ srv_g_swimlane <- function(id, c( teal.reporter::teal_card("# Swimlane Plot"), teal.reporter::teal_card(obj), - teal.reporter::teal_card("## Module's code") + teal.reporter::teal_card("## Module's output(s)") ) teal::validate_inputs(iv()) @@ -502,7 +502,7 @@ srv_g_swimlane <- function(id, ) } - teal.reporter::teal_card(q3) <- c(teal.reporter::teal_card(q3), "## Plot") + teal.reporter::teal_card(q3) <- c(teal.reporter::teal_card(q3), "### Plot") if (!is.null(input$sort_var)) { teal.reporter::teal_card(q3) <- c(teal.reporter::teal_card(q3), "### Selected Options") diff --git a/R/tm_g_waterfall.R b/R/tm_g_waterfall.R index cd14ac2a..e74ed7e7 100644 --- a/R/tm_g_waterfall.R +++ b/R/tm_g_waterfall.R @@ -361,7 +361,7 @@ srv_g_waterfall <- function(id, c( teal.reporter::teal_card("# Waterfall Plot"), teal.reporter::teal_card(obj), - teal.reporter::teal_card("## Module's code") + teal.reporter::teal_card("## Module's output(s)") ) obj <- teal.code::eval_code(obj, "library(dplyr)") @@ -520,7 +520,7 @@ srv_g_waterfall <- function(id, ) } - teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "## Plot") + teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Plot") q1 <- teal.code::eval_code( q1, From a93b67bd966857ef6aec49b33817a976ebc2b1ce Mon Sep 17 00:00:00 2001 From: m7pr Date: Thu, 16 Oct 2025 13:10:07 +0200 Subject: [PATCH 2/2] remove module's hardcoded titles from teal_cards --- R/tm_g_ae_oview.R | 1 - R/tm_g_ae_sub.R | 1 - R/tm_g_butterfly.R | 1 - R/tm_g_events_term_id.R | 1 - R/tm_g_heat_bygrade.R | 1 - R/tm_g_patient_profile.R | 1 - R/tm_g_spiderplot.R | 1 - R/tm_g_swimlane.R | 1 - R/tm_g_waterfall.R | 1 - 9 files changed, 9 deletions(-) diff --git a/R/tm_g_ae_oview.R b/R/tm_g_ae_oview.R index 5b8a4615..3762d440 100644 --- a/R/tm_g_ae_oview.R +++ b/R/tm_g_ae_oview.R @@ -279,7 +279,6 @@ srv_g_ae_oview <- function(id, obj <- data() teal.reporter::teal_card(obj) <- c( - teal.reporter::teal_card("# AE Overview"), teal.reporter::teal_card(obj), teal.reporter::teal_card("## Module's output(s)") ) diff --git a/R/tm_g_ae_sub.R b/R/tm_g_ae_sub.R index f24f41d9..79939506 100644 --- a/R/tm_g_ae_sub.R +++ b/R/tm_g_ae_sub.R @@ -310,7 +310,6 @@ srv_g_ae_sub <- function(id, obj <- data() teal.reporter::teal_card(obj) <- c( - teal.reporter::teal_card("# AE by Subgroups"), teal.reporter::teal_card(obj), teal.reporter::teal_card("## Module's output(s)") ) diff --git a/R/tm_g_butterfly.R b/R/tm_g_butterfly.R index bf76e7e8..344da9e0 100644 --- a/R/tm_g_butterfly.R +++ b/R/tm_g_butterfly.R @@ -381,7 +381,6 @@ srv_g_butterfly <- function(id, data, dataname, label, plot_height, plot_width) obj <- data() teal.reporter::teal_card(obj) <- c( - teal.reporter::teal_card("# Butterfly Plot"), teal.reporter::teal_card(obj), teal.reporter::teal_card("## Module's output(s)") ) diff --git a/R/tm_g_events_term_id.R b/R/tm_g_events_term_id.R index 4faac5aa..3c78fc35 100644 --- a/R/tm_g_events_term_id.R +++ b/R/tm_g_events_term_id.R @@ -296,7 +296,6 @@ srv_g_events_term_id <- function(id, obj <- data() teal.reporter::teal_card(obj) <- c( - teal.reporter::teal_card("# Events by Term"), teal.reporter::teal_card(obj), teal.reporter::teal_card("## Module's output(s)") ) diff --git a/R/tm_g_heat_bygrade.R b/R/tm_g_heat_bygrade.R index d6f2dc2a..2e05421d 100644 --- a/R/tm_g_heat_bygrade.R +++ b/R/tm_g_heat_bygrade.R @@ -390,7 +390,6 @@ srv_g_heatmap_bygrade <- function(id, obj <- data() teal.reporter::teal_card(obj) <- c( - teal.reporter::teal_card("# Heatmap by Grade"), teal.reporter::teal_card(obj), teal.reporter::teal_card("## Module's output(s)") ) diff --git a/R/tm_g_patient_profile.R b/R/tm_g_patient_profile.R index d61bfea9..be1837f4 100644 --- a/R/tm_g_patient_profile.R +++ b/R/tm_g_patient_profile.R @@ -454,7 +454,6 @@ srv_g_patient_profile <- function(id, obj <- data() teal.reporter::teal_card(obj) <- c( - teal.reporter::teal_card("# Patient Profile"), teal.reporter::teal_card(obj), teal.reporter::teal_card("## Module's output(s)") ) diff --git a/R/tm_g_spiderplot.R b/R/tm_g_spiderplot.R index a240e815..3f5f32a5 100644 --- a/R/tm_g_spiderplot.R +++ b/R/tm_g_spiderplot.R @@ -301,7 +301,6 @@ srv_g_spider <- function(id, data, dataname, paramcd, label, plot_height, plot_w obj <- data() teal.reporter::teal_card(obj) <- c( - teal.reporter::teal_card("# Spider Plot"), teal.reporter::teal_card(obj), teal.reporter::teal_card("## Module's output(s)") ) diff --git a/R/tm_g_swimlane.R b/R/tm_g_swimlane.R index 50700ccd..b33d910a 100644 --- a/R/tm_g_swimlane.R +++ b/R/tm_g_swimlane.R @@ -317,7 +317,6 @@ srv_g_swimlane <- function(id, obj <- data() teal.reporter::teal_card(obj) <- c( - teal.reporter::teal_card("# Swimlane Plot"), teal.reporter::teal_card(obj), teal.reporter::teal_card("## Module's output(s)") ) diff --git a/R/tm_g_waterfall.R b/R/tm_g_waterfall.R index e74ed7e7..2d3b5707 100644 --- a/R/tm_g_waterfall.R +++ b/R/tm_g_waterfall.R @@ -359,7 +359,6 @@ srv_g_waterfall <- function(id, obj <- data() teal.reporter::teal_card(obj) <- c( - teal.reporter::teal_card("# Waterfall Plot"), teal.reporter::teal_card(obj), teal.reporter::teal_card("## Module's output(s)") )