remove module's hardcoded titles from teal_cards

R/tm_a_pca.R

@@ -433,7 +433,6 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
       obj <- data()
       teal.reporter::teal_card(obj) <-
         c(
-          teal.reporter::teal_card("# Principal Component Analysis"),
           teal.reporter::teal_card(obj),
           teal.reporter::teal_card("## Module's output(s)")
         )

R/tm_a_regression.R

@@ -458,7 +458,6 @@ srv_a_regression <- function(id,
       obj <- data()
       teal.reporter::teal_card(obj) <-
         c(
-          teal.reporter::teal_card("# Linear Regression Plot"),
           teal.reporter::teal_card(obj),
           teal.reporter::teal_card("## Module's output(s)")
         )

R/tm_g_association.R

@@ -342,7 +342,6 @@ srv_tm_g_association <- function(id,
       obj <- data()
       teal.reporter::teal_card(obj) <-
         c(
-          teal.reporter::teal_card("# Association Plot"),
           teal.reporter::teal_card(obj),
           teal.reporter::teal_card("## Module's output(s)")
         )

R/tm_g_bivariate.R

@@ -555,7 +555,6 @@ srv_g_bivariate <- function(id,
       obj <- data()
       teal.reporter::teal_card(obj) <-
         c(
-          teal.reporter::teal_card("# Bivariate Plot"),
           teal.reporter::teal_card(obj),
           teal.reporter::teal_card("## Module's output(s)")
         )

R/tm_g_distribution.R

@@ -635,7 +635,6 @@ srv_distribution <- function(id,
       obj <- merged$anl_q_r()
       teal.reporter::teal_card(obj) <-
         c(
-          teal.reporter::teal_card("# Distribution Plot"),
           teal.reporter::teal_card(obj),
           teal.reporter::teal_card("## Module's output(s)")
         )

R/tm_g_response.R

@@ -407,7 +407,6 @@ srv_g_response <- function(id,
       qenv <- merged$anl_q_r()
       teal.reporter::teal_card(qenv) <-
         c(
-          teal.reporter::teal_card("# Response Plot"),
           teal.reporter::teal_card(qenv),
           teal.reporter::teal_card("## Module's output(s)")
         )

R/tm_g_scatterplot.R

@@ -584,7 +584,6 @@ srv_g_scatterplot <- function(id,
     qenv <- reactive({
       obj <- data()
       teal.reporter::teal_card(obj) <- c(
-        teal.reporter::teal_card("# Scatter Plot"),
         teal.reporter::teal_card(obj),
         teal.reporter::teal_card("## Module's output(s)")
       )

R/tm_g_scatterplotmatrix.R

@@ -327,7 +327,6 @@ srv_g_scatterplotmatrix <- function(id,
       req(anl_merged_input())
       obj <- data()
       teal.reporter::teal_card(obj) <- c(
-        teal.reporter::teal_card("# Scatter Plot Matrix"),
         teal.reporter::teal_card(obj),
         teal.reporter::teal_card("## Module's output(s)")
       )

R/tm_missing_data.R

@@ -505,7 +505,6 @@ srv_missing_data <- function(id,
       anl <- data_r()
       obj <- data()
       teal.reporter::teal_card(obj) <- c(
-        teal.reporter::teal_card("# Missing Data"),
         teal.reporter::teal_card(obj),
         teal.reporter::teal_card("## Module's output(s)")
       )

R/tm_outliers.R

@@ -476,7 +476,6 @@
       qenv <- merged$anl_q_r()
       teal.reporter::teal_card(qenv) <-
         c(
-          teal.reporter::teal_card("# Outliers Analysis"),
           teal.reporter::teal_card(qenv),
           teal.reporter::teal_card("## Module's output(s)")
         )
@@ -739,7 +738,7 @@
               categorical_var_name = as.name(categorical_var)
             )
           )
         ) |> within({
           table <- rtables::df_to_tt(summary_data)
           table
         })

R/tm_t_crosstable.R

@@ -328,7 +328,6 @@ srv_t_crosstable <- function(id, data, label, x, y, remove_zero_columns, basic_t
       obj <- data()
       teal.reporter::teal_card(obj) <-
         c(
-          teal.reporter::teal_card("# Cross Table"),
           teal.reporter::teal_card(obj),
           teal.reporter::teal_card("## Module's output(s)")
         )