1441 Introduce transformators parameter in modules

R/tm_a_pca.R

@@ -133,6 +133,7 @@ tm_a_pca <- function(label = "Principal Component Analysis",
                      size = c(2, 1, 8),
                      pre_output = NULL,
                      post_output = NULL,
+                     transformators = list(),
                      decorators = NULL) {
   message("Initializing tm_a_pca")
 
@@ -208,6 +209,7 @@ tm_a_pca <- function(label = "Principal Component Analysis",
         decorators = decorators
       )
     ),
+    transformators = transformators,
     datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
   attr(ans, "teal_bookmarkable") <- FALSE

R/tm_a_regression.R

@@ -157,6 +157,7 @@ tm_a_regression <- function(label = "Regression Analysis",
                             default_plot_type = 1,
                             default_outlier_label = "USUBJID",
                             label_segment_threshold = c(0.5, 0, 10),
+                            transformators = list(),
                             decorators = NULL) {
   message("Initializing tm_a_regression")
 
@@ -251,6 +252,7 @@ tm_a_regression <- function(label = "Regression Analysis",
         decorators = decorators
       )
     ),
+    transformators = transformators,
     datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
   attr(ans, "teal_bookmarkable") <- FALSE

R/tm_g_association.R

@@ -138,6 +138,7 @@ tm_g_association <- function(label = "Association",
                              pre_output = NULL,
                              post_output = NULL,
                              ggplot2_args = teal.widgets::ggplot2_args(),
+                             transformators = list(),
                              decorators = NULL) {
   message("Initializing tm_g_association")
 
@@ -196,6 +197,7 @@ tm_g_association <- function(label = "Association",
       data_extract_list,
       list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args, decorators = decorators)
     ),
+    transformators = transformators,
     datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
   attr(ans, "teal_bookmarkable") <- TRUE

R/tm_g_bivariate.R

@@ -195,6 +195,7 @@ tm_g_bivariate <- function(label = "Bivariate Plots",
                            ggplot2_args = teal.widgets::ggplot2_args(),
                            pre_output = NULL,
                            post_output = NULL,
+                           transformators = list(),
                            decorators = NULL) {
   message("Initializing tm_g_bivariate")
 
@@ -303,6 +304,7 @@ tm_g_bivariate <- function(label = "Bivariate Plots",
       data_extract_list,
       list(plot_height = plot_height, plot_width = plot_width, ggplot2_args = ggplot2_args, decorators = decorators)
     ),
+    transformators = transformators,
     datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
   attr(ans, "teal_bookmarkable") <- TRUE

R/tm_g_distribution.R

@@ -150,6 +150,7 @@ tm_g_distribution <- function(label = "Distribution Module",
                               plot_width = NULL,
                               pre_output = NULL,
                               post_output = NULL,
+                              transformators = list(),
                               decorators = NULL) {
   message("Initializing tm_g_distribution")
 
@@ -221,6 +222,7 @@ tm_g_distribution <- function(label = "Distribution Module",
     ),
     ui = ui_distribution,
     ui_args = args,
+    transformators = transformators,
     datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
   attr(ans, "teal_bookmarkable") <- TRUE

R/tm_g_response.R

@@ -156,6 +156,7 @@ tm_g_response <- function(label = "Response Plot",
                           ggplot2_args = teal.widgets::ggplot2_args(),
                           pre_output = NULL,
                           post_output = NULL,
+                          transformators = list(),
                           decorators = NULL) {
   message("Initializing tm_g_response")
 
@@ -229,6 +230,7 @@ tm_g_response <- function(label = "Response Plot",
         decorators = decorators
       )
     ),
+    transformators = transformators,
     datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
   attr(ans, "teal_bookmarkable") <- TRUE

R/tm_g_scatterplot.R

@@ -239,6 +239,7 @@ tm_g_scatterplot <- function(label = "Scatterplot",
                              post_output = NULL,
                              table_dec = 4,
                              ggplot2_args = teal.widgets::ggplot2_args(),
+                             transformators = list(),
                              decorators = NULL) {
   message("Initializing tm_g_scatterplot")
 
@@ -330,6 +331,7 @@ tm_g_scatterplot <- function(label = "Scatterplot",
         decorators = decorators
       )
     ),
+    transformators = transformators,
     datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
   attr(ans, "teal_bookmarkable") <- TRUE

R/tm_g_scatterplotmatrix.R

@@ -177,6 +177,7 @@ tm_g_scatterplotmatrix <- function(label = "Scatterplot Matrix",
                                    plot_width = NULL,
                                    pre_output = NULL,
                                    post_output = NULL,
+                                   transformators = list(),
                                    decorators = NULL) {
   message("Initializing tm_g_scatterplotmatrix")
 
@@ -216,6 +217,7 @@ tm_g_scatterplotmatrix <- function(label = "Scatterplot Matrix",
       plot_width = plot_width,
       decorators = decorators
     ),
+    transformators = transformators,
     datanames = teal.transform::get_extract_datanames(variables)
   )
   attr(ans, "teal_bookmarkable") <- TRUE

R/tm_missing_data.R

@@ -117,6 +117,7 @@ tm_missing_data <- function(label = "Missing data",
                             ),
                             pre_output = NULL,
                             post_output = NULL,
+                            transformators = list(),
                             decorators = NULL) {
   message("Initializing tm_missing_data")
 
@@ -161,6 +162,7 @@ tm_missing_data <- function(label = "Missing data",
       decorators = decorators
     ),
     ui = ui_page_missing_data,
+    transformators = transformators,
     datanames = "all",
     ui_args = list(pre_output = pre_output, post_output = post_output)
   )

R/tm_outliers.R

@@ -157,6 +157,7 @@ tm_outliers <- function(label = "Outliers Module",
                         plot_width = NULL,
                         pre_output = NULL,
                         post_output = NULL,
+                        transformators = list(),
                         decorators = NULL) {
   message("Initializing tm_outliers")
 
@@ -221,6 +222,7 @@ tm_outliers <- function(label = "Outliers Module",
     ),
     ui = ui_outliers,
     ui_args = args,
+    transformators = transformators,
     datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
   attr(ans, "teal_bookmarkable") <- TRUE

R/tm_t_crosstable.R

@@ -143,6 +143,7 @@ tm_t_crosstable <- function(label = "Cross Table",
                             pre_output = NULL,
                             post_output = NULL,
                             basic_table_args = teal.widgets::basic_table_args(),
+                            transformators = list(),
                             decorators = NULL) {
   message("Initializing tm_t_crosstable")
 
@@ -184,6 +185,7 @@ tm_t_crosstable <- function(label = "Cross Table",
     ui = ui_t_crosstable,
     ui_args = ui_args,
     server_args = server_args,
+    transformators = transformators,
     datanames = teal.transform::get_extract_datanames(list(x = x, y = y))
   )
   attr(ans, "teal_bookmarkable") <- TRUE