diff --git a/R/tm_a_pca.R b/R/tm_a_pca.R
index 5f712eb77..bbb47f13e 100644
--- a/R/tm_a_pca.R
+++ b/R/tm_a_pca.R
@@ -435,7 +435,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
         c(
           teal.reporter::teal_card("# Principal Component Analysis"),
           teal.reporter::teal_card(obj),
-          teal.reporter::teal_card("## Module's code")
+          teal.reporter::teal_card("## Module's output(s)")
         )
       teal.code::eval_code(obj, 'library("ggplot2");library("dplyr");library("tidyr")') # nolint: quotes
     })
@@ -514,7 +514,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
         )
       )
 
-      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Principal Components Table")
+      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Principal Components Table")
 
       qenv <- teal.code::eval_code(
         qenv,
@@ -524,7 +524,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
         })
       )
 
-      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Eigenvectors Table")
+      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Eigenvectors Table")
 
       teal.code::eval_code(
         qenv,
@@ -606,7 +606,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
         ),
         ggtheme = ggtheme
       )
-      teal.reporter::teal_card(base_q) <- c(teal.reporter::teal_card(base_q), "## Elbow plot")
+      teal.reporter::teal_card(base_q) <- c(teal.reporter::teal_card(base_q), "### Elbow plot")
       teal.code::eval_code(
         base_q,
         substitute(
@@ -683,7 +683,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
         ggtheme = ggtheme
       )
 
-      teal.reporter::teal_card(base_q) <- c(teal.reporter::teal_card(base_q), "## Circle plot")
+      teal.reporter::teal_card(base_q) <- c(teal.reporter::teal_card(base_q), "### Circle plot")
       teal.code::eval_code(
         base_q,
         substitute(
@@ -742,7 +742,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
       size <- input$size
       font_size <- input$font_size
 
-      teal.reporter::teal_card(base_q) <- c(teal.reporter::teal_card(base_q), "## Biplot")
+      teal.reporter::teal_card(base_q) <- c(teal.reporter::teal_card(base_q), "### Biplot")
       qenv <- teal.code::eval_code(
         qenv,
         substitute(
@@ -1003,7 +1003,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
         parsed_ggplot2_args$theme
       )
 
-      teal.reporter::teal_card(base_q) <- c(teal.reporter::teal_card(base_q), "## Eigenvector plot")
+      teal.reporter::teal_card(base_q) <- c(teal.reporter::teal_card(base_q), "### Eigenvector plot")
       teal.code::eval_code(
         base_q,
         substitute(
diff --git a/R/tm_a_regression.R b/R/tm_a_regression.R
index d8900487e..936da802f 100644
--- a/R/tm_a_regression.R
+++ b/R/tm_a_regression.R
@@ -460,7 +460,7 @@ srv_a_regression <- function(id,
         c(
           teal.reporter::teal_card("# Linear Regression Plot"),
           teal.reporter::teal_card(obj),
-          teal.reporter::teal_card("## Module's code")
+          teal.reporter::teal_card("## Module's output(s)")
         )
       teal.code::eval_code(obj, 'library("ggplot2");library("dplyr")') # nolint: quotes
     })
@@ -539,7 +539,7 @@ srv_a_regression <- function(id,
           fit_summary <- summary(fit)
           fit_summary
         }))
-      teal.reporter::teal_card(anl_fit) <- c(teal.reporter::teal_card(anl_fit), "## Plot")
+      teal.reporter::teal_card(anl_fit) <- c(teal.reporter::teal_card(anl_fit), "### Plot")
       anl_fit
     })
 
diff --git a/R/tm_g_association.R b/R/tm_g_association.R
index db51dde49..073529fcd 100644
--- a/R/tm_g_association.R
+++ b/R/tm_g_association.R
@@ -344,7 +344,7 @@ srv_tm_g_association <- function(id,
         c(
           teal.reporter::teal_card("# Association Plot"),
           teal.reporter::teal_card(obj),
-          teal.reporter::teal_card("## Module's code")
+          teal.reporter::teal_card("## Module's output(s)")
         )
       teal.code::eval_code(obj, 'library("ggplot2");library("dplyr");library("ggmosaic")') # nolint: quotes
     })
@@ -495,7 +495,7 @@ srv_tm_g_association <- function(id,
           )
         }
       obj <- merged$anl_q_r()
-      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "## Plot")
+      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "### Plot")
       teal.code::eval_code(
         obj,
         substitute(
diff --git a/R/tm_g_bivariate.R b/R/tm_g_bivariate.R
index 60e708dbc..67615e128 100644
--- a/R/tm_g_bivariate.R
+++ b/R/tm_g_bivariate.R
@@ -557,7 +557,7 @@ srv_g_bivariate <- function(id,
         c(
           teal.reporter::teal_card("# Bivariate 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(
@@ -692,7 +692,7 @@ srv_g_bivariate <- function(id,
       }
 
       obj <- merged$anl_q_r()
-      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "## Plot")
+      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "### Plot")
       teal.code::eval_code(obj, substitute(expr = plot <- cl, env = list(cl = cl)))
     })
 
diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R
index fb7feb1a2..9ab8f332d 100644
--- a/R/tm_g_distribution.R
+++ b/R/tm_g_distribution.R
@@ -635,7 +635,7 @@ srv_distribution <- function(id,
         c(
           teal.reporter::teal_card("# Distribution Plot"),
           teal.reporter::teal_card(obj),
-          teal.reporter::teal_card("## Module's code")
+          teal.reporter::teal_card("## Module's output(s)")
         )
 
       ANL <- obj[["ANL"]]
@@ -952,7 +952,7 @@ srv_distribution <- function(id,
           ggtheme = ggtheme
         )
 
-        teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Histogram Plot")
+        teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Histogram Plot")
         teal.code::eval_code(
           qenv,
           substitute(
@@ -1083,7 +1083,7 @@ srv_distribution <- function(id,
           ggtheme = ggtheme
         )
 
-        teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## QQ Plot")
+        teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### QQ Plot")
         teal.code::eval_code(
           qenv,
           substitute(
@@ -1274,7 +1274,7 @@ srv_distribution <- function(id,
       q_common <- common_q()
       teal.reporter::teal_card(q_common) <- c(
         teal.reporter::teal_card(q_common),
-        "## Statistics table"
+        "### Statistics table"
       )
       if (iv_r()$is_valid()) {
         within(q_common, {
@@ -1294,7 +1294,7 @@ srv_distribution <- function(id,
       q_common <- common_q()
       teal.reporter::teal_card(q_common) <- c(
         teal.reporter::teal_card(q_common),
-        "## Distribution Tests table"
+        "### Distribution Tests table"
       )
       if (inherits(test_q_out, c("try-error", "error"))) {
         within(
diff --git a/R/tm_g_response.R b/R/tm_g_response.R
index bc618f4f6..42c4f7d85 100644
--- a/R/tm_g_response.R
+++ b/R/tm_g_response.R
@@ -409,7 +409,7 @@ srv_g_response <- function(id,
         c(
           teal.reporter::teal_card("# Response Plot"),
           teal.reporter::teal_card(qenv),
-          teal.reporter::teal_card("## Module's code")
+          teal.reporter::teal_card("## Module's output(s)")
         )
       ANL <- qenv[["ANL"]]
       resp_var <- as.vector(merged$anl_input_r()$columns_source$response)
@@ -570,7 +570,7 @@ srv_g_response <- function(id,
         ggthemes = parsed_ggplot2_args$ggtheme
       ))
 
-      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, plot_call)
     })
 
diff --git a/R/tm_g_scatterplot.R b/R/tm_g_scatterplot.R
index 6c8359289..3c051d1ea 100644
--- a/R/tm_g_scatterplot.R
+++ b/R/tm_g_scatterplot.R
@@ -586,7 +586,7 @@ srv_g_scatterplot <- function(id,
       teal.reporter::teal_card(obj) <- c(
         teal.reporter::teal_card("# Scatter Plot"),
         teal.reporter::teal_card(obj),
-        teal.reporter::teal_card("## Module's code")
+        teal.reporter::teal_card("## Module's output(s)")
       )
       teal.code::eval_code(data(), 'library("ggplot2");library("dplyr")') # nolint quotes
     })
@@ -1012,7 +1012,7 @@ srv_g_scatterplot <- function(id,
 
       plot_call <- substitute(expr = plot <- plot_call, env = list(plot_call = plot_call))
 
-      teal.reporter::teal_card(plot_q) <- c(teal.reporter::teal_card(plot_q), "## Plot")
+      teal.reporter::teal_card(plot_q) <- c(teal.reporter::teal_card(plot_q), "### Plot")
       teal.code::eval_code(plot_q, plot_call)
     })
 
diff --git a/R/tm_g_scatterplotmatrix.R b/R/tm_g_scatterplotmatrix.R
index fb15a0ed8..1b174fcae 100644
--- a/R/tm_g_scatterplotmatrix.R
+++ b/R/tm_g_scatterplotmatrix.R
@@ -329,7 +329,7 @@ srv_g_scatterplotmatrix <- function(id,
       teal.reporter::teal_card(obj) <- c(
         teal.reporter::teal_card("# Scatter Plot Matrix"),
         teal.reporter::teal_card(obj),
-        teal.reporter::teal_card("## Module's code")
+        teal.reporter::teal_card("## Module's output(s)")
       )
       qenv <- teal.code::eval_code(obj, 'library("dplyr");library("lattice")') # nolint quotes
       teal.code::eval_code(qenv, as.expression(anl_merged_input()$expr))
@@ -391,7 +391,7 @@ srv_g_scatterplotmatrix <- function(id,
 
 
       # create plot
-      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Plot")
+      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Plot")
 
       if (add_cor) {
         shinyjs::show("cor_method")
diff --git a/R/tm_missing_data.R b/R/tm_missing_data.R
index 90cac56fb..acaa0cdf7 100644
--- a/R/tm_missing_data.R
+++ b/R/tm_missing_data.R
@@ -507,7 +507,7 @@ srv_missing_data <- function(id,
       teal.reporter::teal_card(obj) <- c(
         teal.reporter::teal_card("# Missing Data"),
         teal.reporter::teal_card(obj),
-        teal.reporter::teal_card("## Module's code")
+        teal.reporter::teal_card("## Module's output(s)")
       )
 
       qenv <- teal.code::eval_code(obj, {
@@ -677,7 +677,7 @@ srv_missing_data <- function(id,
     combination_cutoff_q <- reactive({
       req(common_code_q())
       qenv <- common_code_q()
-      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Combination Plot")
+      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Combination Plot")
       teal.code::eval_code(
         qenv,
         quote(
@@ -736,7 +736,7 @@ srv_missing_data <- function(id,
         )
       )
 
-      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Summary Plot")
+      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Summary Plot")
 
       qenv <- teal.code::eval_code(
         qenv,
@@ -1092,7 +1092,7 @@ srv_missing_data <- function(id,
       }
 
       qenv <- common_code_q()
-      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Summary Table")
+      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Summary Table")
 
       qenv <- if (!is.null(group_var)) {
         common_code_libraries_q <- teal.code::eval_code(
@@ -1173,7 +1173,7 @@ srv_missing_data <- function(id,
       }
 
       qenv <- common_code_q()
-      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## By Subject Plot")
+      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### By Subject Plot")
 
       qenv <- teal.code::eval_code(
         qenv,
diff --git a/R/tm_outliers.R b/R/tm_outliers.R
index cc371b2e3..298f31e5c 100644
--- a/R/tm_outliers.R
+++ b/R/tm_outliers.R
@@ -478,7 +478,7 @@ srv_outliers <- function(id, data, outlier_var,
         c(
           teal.reporter::teal_card("# Outliers Analysis"),
           teal.reporter::teal_card(qenv),
-          teal.reporter::teal_card("## Module's code")
+          teal.reporter::teal_card("## Module's output(s)")
         )
 
       outlier_var <- as.vector(merged$anl_input_r()$columns_source$outlier_var)
@@ -648,7 +648,7 @@ srv_outliers <- function(id, data, outlier_var,
         )
       }
 
-      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Summary Table")
+      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Summary Table")
       qenv <- if (length(categorical_var) > 0) {
         qenv <- teal.code::eval_code(
           qenv,
@@ -766,7 +766,7 @@ srv_outliers <- function(id, data, outlier_var,
     box_plot_q <- reactive({
       req(common_code_q())
       qenv <- common_code_q()
-      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Box Plot")
+      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Box Plot")
 
       ANL <- qenv[["ANL"]]
       ANL_OUTLIER <- qenv[["ANL_OUTLIER"]]
@@ -860,7 +860,7 @@ srv_outliers <- function(id, data, outlier_var,
     # density plot
     density_plot_q <- reactive({
       qenv <- common_code_q()
-      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Density Plot")
+      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Density Plot")
 
       ANL <- qenv[["ANL"]]
       ANL_OUTLIER <- qenv[["ANL_OUTLIER"]]
@@ -922,7 +922,7 @@ srv_outliers <- function(id, data, outlier_var,
     # Cumulative distribution plot
     cumulative_plot_q <- reactive({
       qenv <- common_code_q()
-      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Cumulative Distribution Plot")
+      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Cumulative Distribution Plot")
 
       ANL <- qenv[["ANL"]]
       ANL_OUTLIER <- qenv[["ANL_OUTLIER"]]
diff --git a/R/tm_t_crosstable.R b/R/tm_t_crosstable.R
index 0fa64c90a..f0280de7b 100644
--- a/R/tm_t_crosstable.R
+++ b/R/tm_t_crosstable.R
@@ -330,7 +330,7 @@ srv_t_crosstable <- function(id, data, label, x, y, remove_zero_columns, basic_t
         c(
           teal.reporter::teal_card("# Cross Table"),
           teal.reporter::teal_card(obj),
-          teal.reporter::teal_card("## Module's code")
+          teal.reporter::teal_card("## Module's output(s)")
         )
       teal.code::eval_code(obj, 'library("rtables");library("tern");library("dplyr")') # nolint quotes
     })
@@ -386,7 +386,7 @@ srv_t_crosstable <- function(id, data, label, x, y, remove_zero_columns, basic_t
       )
 
       obj <- merged$anl_q_r()
-      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "# Table")
+      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "### Table")
       obj <- teal.code::eval_code(
         obj,
         substitute(