restructure sections (#321)

m7pr · web-flow · commit 8b92e8499669 · 2025-10-17T13:04:08.000+02:00
Part of: - insightsengineering/teal.reporter#400 Restructured sections-headers. Pleaase check out with - insightsengineering/teal.reporter#425 - insightsengineering/teal#1634
diff --git a/R/tm_g_ae_oview.R b/R/tm_g_ae_oview.R
@@ -279,9 +279,8 @@ 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 code")
+            teal.reporter::teal_card("## Module's output(s)")
           )
         obj <- teal.code::eval_code(obj, "library(dplyr)")
 
@@ -308,7 +307,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
@@ -310,9 +310,8 @@ 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 code")
+            teal.reporter::teal_card("## Module's output(s)")
           )
 
         ANL <- obj[[dataname]]
@@ -348,7 +347,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
@@ -381,9 +381,8 @@ 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 code")
+            teal.reporter::teal_card("## Module's output(s)")
           )
         obj <- teal.code::eval_code(obj, "library(dplyr)")
 
@@ -462,7 +461,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
@@ -296,9 +296,8 @@ 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 code")
+          teal.reporter::teal_card("## Module's output(s)")
         )
 
       ANL <- obj[[dataname]]
@@ -334,7 +333,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
@@ -390,9 +390,8 @@ 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 code")
+            teal.reporter::teal_card("## Module's output(s)")
           )
         obj <- teal.code::eval_code(obj, "library(dplyr)")
 
@@ -432,7 +431,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
@@ -454,9 +454,8 @@ 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 code")
+            teal.reporter::teal_card("## Module's output(s)")
           )
         obj <- teal.code::eval_code(obj, "library(dplyr)")
 
@@ -873,7 +872,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
@@ -301,9 +301,8 @@ 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 code")
+          teal.reporter::teal_card("## Module's output(s)")
         )
       obj <- teal.code::eval_code(obj, "library(dplyr)")
 
@@ -384,7 +383,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
@@ -317,9 +317,8 @@ 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 code")
+          teal.reporter::teal_card("## Module's output(s)")
         )
 
       teal::validate_inputs(iv())
@@ -502,7 +501,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
@@ -359,9 +359,8 @@ 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 code")
+          teal.reporter::teal_card("## Module's output(s)")
         )
       obj <- teal.code::eval_code(obj, "library(dplyr)")
 
@@ -520,7 +519,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,

Original file line number	Diff line number	Diff line change
`@@ -381,9 +381,8 @@ srv_g_butterfly <- function(id, data, dataname, label, plot_height, plot_width)`
`381`	`381`	`obj <- data()`
`382`	`382`	`teal.reporter::teal_card(obj) <-`
`383`	`383`	`c(`
`384`		`- teal.reporter::teal_card("# Butterfly Plot"),`
`385`	`384`	`teal.reporter::teal_card(obj),`
`386`		`- teal.reporter::teal_card("## Module's code")`
	`385`	`+ teal.reporter::teal_card("## Module's output(s)")`
`387`	`386`	`)`
`388`	`387`	`obj <- teal.code::eval_code(obj, "library(dplyr)")`
`389`	`388`
`@@ -462,7 +461,7 @@ srv_g_butterfly <- function(id, data, dataname, label, plot_height, plot_width)`
`462`	`461`	`)`
`463`	`462`	`}`
`464`	`463`
`465`		`- teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "## Plot")`
	`464`	`+ teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Plot")`
`466`	`465`
`467`	`466`	`if (!is.null(input$filter_var) \|\| !is.null(input$facet_var) \|\| !is.null(input$sort_by_var)) {`
`468`	`467`	`teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Selected Options")`
Original file line number	Diff line number	Diff line change
`@@ -390,9 +390,8 @@ srv_g_heatmap_bygrade <- function(id,`
`390`	`390`	`obj <- data()`
`391`	`391`	`teal.reporter::teal_card(obj) <-`
`392`	`392`	`c(`
`393`		`- teal.reporter::teal_card("# Heatmap by Grade"),`
`394`	`393`	`teal.reporter::teal_card(obj),`
`395`		`- teal.reporter::teal_card("## Module's code")`
	`394`	`+ teal.reporter::teal_card("## Module's output(s)")`
`396`	`395`	`)`
`397`	`396`	`obj <- teal.code::eval_code(obj, "library(dplyr)")`
`398`	`397`
`@@ -432,7 +431,7 @@ srv_g_heatmap_bygrade <- function(id,`
`432`	`431`	`)`
`433`	`432`	`}`
`434`	`433`
`435`		`- teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Plot")`
	`434`	`+ teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Plot")`
`436`	`435`
`437`	`436`	`teal.code::eval_code(`
`438`	`437`	`qenv,`
Original file line number	Diff line number	Diff line change
`@@ -317,9 +317,8 @@ srv_g_swimlane <- function(id,`
`317`	`317`	`obj <- data()`
`318`	`318`	`teal.reporter::teal_card(obj) <-`
`319`	`319`	`c(`
`320`		`- teal.reporter::teal_card("# Swimlane Plot"),`
`321`	`320`	`teal.reporter::teal_card(obj),`
`322`		`- teal.reporter::teal_card("## Module's code")`
	`321`	`+ teal.reporter::teal_card("## Module's output(s)")`
`323`	`322`	`)`
`324`	`323`
`325`	`324`	`teal::validate_inputs(iv())`
`@@ -502,7 +501,7 @@ srv_g_swimlane <- function(id,`
`502`	`501`	`)`
`503`	`502`	`}`
`504`	`503`
`505`		`- teal.reporter::teal_card(q3) <- c(teal.reporter::teal_card(q3), "## Plot")`
	`504`	`+ teal.reporter::teal_card(q3) <- c(teal.reporter::teal_card(q3), "### Plot")`
`506`	`505`
`507`	`506`	`if (!is.null(input$sort_var)) {`
`508`	`507`	`teal.reporter::teal_card(q3) <- c(teal.reporter::teal_card(q3), "### Selected Options")`
Original file line number	Diff line number	Diff line change
`@@ -359,9 +359,8 @@ srv_g_waterfall <- function(id,`
`359`	`359`	`obj <- data()`
`360`	`360`	`teal.reporter::teal_card(obj) <-`
`361`	`361`	`c(`
`362`		`- teal.reporter::teal_card("# Waterfall Plot"),`
`363`	`362`	`teal.reporter::teal_card(obj),`
`364`		`- teal.reporter::teal_card("## Module's code")`
	`363`	`+ teal.reporter::teal_card("## Module's output(s)")`
`365`	`364`	`)`
`366`	`365`	`obj <- teal.code::eval_code(obj, "library(dplyr)")`
`367`	`366`
`@@ -520,7 +519,7 @@ srv_g_waterfall <- function(id,`
`520`	`519`	`)`
`521`	`520`	`}`
`522`	`521`
`523`		`- teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "## Plot")`
	`522`	`+ teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Plot")`
`524`	`523`
`525`	`524`	`q1 <- teal.code::eval_code(`
`526`	`525`	`q1,`