add Module's code section header to divide code preparation with data filtering with module's code

Author: m7pr

R/tm_a_pca.R

@@ -436,6 +436,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
     qenv <- reactive({
       obj <- data()
       teal.reporter::teal_card(obj) <- append(teal.reporter::teal_card(obj), "# Principal Component Analysis", after = 0)
+      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "# Module's code")
       teal.code::eval_code(obj, 'library("ggplot2");library("dplyr");library("tidyr")') # nolint quotes
     })
     anl_merged_q <- reactive({

R/tm_a_regression.R

@@ -460,6 +460,7 @@ srv_a_regression <- function(id,
     qenv <- reactive({
       obj <- data()
       teal.reporter::teal_card(obj) <- append(teal.reporter::teal_card(obj), "# Linear Regression Plot", after = 0)
+      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "# Module's code")
       teal.code::eval_code(obj, 'library("ggplot2");library("dplyr")') # nolint quotes
     })
 

R/tm_g_association.R

@@ -344,6 +344,7 @@ srv_tm_g_association <- function(id,
     qenv <- reactive({
       obj <- data()
       teal.reporter::teal_card(obj) <- append(teal.reporter::teal_card(obj), "# Association Plot", after = 0)
+      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "# Module's code")
       teal.code::eval_code(obj, 'library("ggplot2");library("dplyr");library("ggmosaic")') # nolint quotes
     })
     anl_merged_q <- reactive({

R/tm_g_bivariate.R

@@ -557,7 +557,8 @@ srv_g_bivariate <- function(id,
     anl_merged_q <- reactive({
       obj <- data()
       teal.reporter::teal_card(obj) <- append(teal.reporter::teal_card(obj), "# Bivariate Plot", after = 0)
-      obj |>
+      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "# Module's code")
+      obj %>%
         teal.code::eval_code(
           c(
             expression(library(ggplot2), library(dplyr), library(teal.modules.general)),

R/tm_g_distribution.R

@@ -637,6 +637,7 @@ srv_distribution <- function(id,
 
       obj <- merged$anl_q_r()
       teal.reporter::teal_card(obj) <- append(teal.reporter::teal_card(obj), "# Distribution Plot", after = 0)
+      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "# Module's code")
 
       ANL <- obj[["ANL"]]
       dist_var <- merge_vars()$dist_var

R/tm_g_response.R

@@ -409,6 +409,7 @@ srv_g_response <- function(id,
 
       qenv <- merged$anl_q_r()
       teal.reporter::teal_card(qenv) <- append(teal.reporter::teal_card(qenv), "# Response Plot", after = 0)
+      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "# Module's code")
       ANL <- qenv[["ANL"]]
       resp_var <- as.vector(merged$anl_input_r()$columns_source$response)
       x <- as.vector(merged$anl_input_r()$columns_source$x)

R/tm_g_scatterplot.R

@@ -587,6 +587,7 @@ srv_g_scatterplot <- function(id,
     qenv <- reactive({
       obj <- data()
       teal.reporter::teal_card(obj) <- append(teal.reporter::teal_card(obj), "# Scatter Plot", after = 0)
+      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "# Module's code")
       teal.code::eval_code(obj, 'library("ggplot2");library("dplyr")') # nolint quotes
     })
 

R/tm_g_scatterplotmatrix.R

@@ -330,6 +330,7 @@ srv_g_scatterplotmatrix <- function(id,
       req(anl_merged_input())
       obj <- data()
       teal.reporter::teal_card(obj) <- append(teal.reporter::teal_card(obj), "# Scatter Plot Matrix", after = 0)
+      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "# Module's code")
       qenv <- teal.code::eval_code(obj, 'library("dplyr");library("lattice")') # nolint: quotes.
       teal.code::eval_code(qenv, as.expression(anl_merged_input()$expr))
     })

R/tm_missing_data.R

@@ -528,6 +528,7 @@ srv_missing_data <- function(id,
       anl <- data_r()
       obj <- data()
       teal.reporter::teal_card(obj) <- append(teal.reporter::teal_card(obj), "# Missing Data", after = 0)
+      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "# Module's code")
 
       qenv <- teal.code::eval_code(obj, {
         'library("dplyr");library("ggplot2");library("tidyr");library("gridExtra")' # nolint quotes

R/tm_outliers.R

@@ -474,6 +474,7 @@ srv_outliers <- function(id, data, outlier_var,
       ANL <- merged$anl_q_r()[["ANL"]]
       qenv <- merged$anl_q_r()
       teal.reporter::teal_card(qenv) <- append(teal.reporter::teal_card(qenv), "# Outliers Analysis", after = 0)
+      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "# Module's code")
 
       outlier_var <- as.vector(merged$anl_input_r()$columns_source$outlier_var)
       categorical_var <- as.vector(merged$anl_input_r()$columns_source$categorical_var)