diff --git a/R/tm_a_pca.R b/R/tm_a_pca.R index bbb47f13e..d2dac0c08 100644 --- a/R/tm_a_pca.R +++ b/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)") ) diff --git a/R/tm_a_regression.R b/R/tm_a_regression.R index 936da802f..d0ce394b3 100644 --- a/R/tm_a_regression.R +++ b/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)") ) diff --git a/R/tm_g_association.R b/R/tm_g_association.R index 073529fcd..13d1c2372 100644 --- a/R/tm_g_association.R +++ b/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)") ) diff --git a/R/tm_g_bivariate.R b/R/tm_g_bivariate.R index 52fcf7ac2..bffecd3f3 100644 --- a/R/tm_g_bivariate.R +++ b/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)") ) diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R index 38f226797..5fda712e6 100644 --- a/R/tm_g_distribution.R +++ b/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)") ) diff --git a/R/tm_g_response.R b/R/tm_g_response.R index 42c4f7d85..12c0a96b9 100644 --- a/R/tm_g_response.R +++ b/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)") ) diff --git a/R/tm_g_scatterplot.R b/R/tm_g_scatterplot.R index 3c051d1ea..acb5c4890 100644 --- a/R/tm_g_scatterplot.R +++ b/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)") ) diff --git a/R/tm_g_scatterplotmatrix.R b/R/tm_g_scatterplotmatrix.R index 1b174fcae..1d7a2eb08 100644 --- a/R/tm_g_scatterplotmatrix.R +++ b/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)") ) diff --git a/R/tm_missing_data.R b/R/tm_missing_data.R index acaa0cdf7..46e7afa80 100644 --- a/R/tm_missing_data.R +++ b/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)") ) diff --git a/R/tm_outliers.R b/R/tm_outliers.R index 298f31e5c..ff67b4569 100644 --- a/R/tm_outliers.R +++ b/R/tm_outliers.R @@ -476,7 +476,6 @@ srv_outliers <- function(id, data, outlier_var, 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)") ) diff --git a/R/tm_t_crosstable.R b/R/tm_t_crosstable.R index f0280de7b..344326741 100644 --- a/R/tm_t_crosstable.R +++ b/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)") )