Add missing transformators arg (#839)

`transformators` arg is addressed in `teal`. Every module which has `data` in the server needs a `transformators` argument
insightsengineering · Feb 3, 2025 · 91ad352 · 91ad352
1 parent ee725dd
commit 91ad352
Show file tree

Hide file tree

Showing 7 changed files with 29 additions and 11 deletions.
diff --git a/R/tm_data_table.R b/R/tm_data_table.R
@@ -95,7 +95,8 @@ tm_data_table <- function(label = "Data Table",
                           ),
                           server_rendering = FALSE,
                           pre_output = NULL,
-                          post_output = NULL) {
+                          post_output = NULL,
+                          transformators = list()) {
   message("Initializing tm_data_table")
 
   # Start of assertions
@@ -145,7 +146,8 @@ tm_data_table <- function(label = "Data Table",
     ui_args = list(
       pre_output = pre_output,
       post_output = post_output
-    )
+    ),
+    transformators = transformators
   )
   attr(ans, "teal_bookmarkable") <- TRUE
   ans

diff --git a/R/tm_front_page.R b/R/tm_front_page.R
@@ -72,7 +72,8 @@ tm_front_page <- function(label = "Front page",
                           additional_tags = tagList(),
                           footnotes = character(0),
                           show_metadata = deprecated(),
-                          datanames = if (missing(show_metadata)) NULL else "all") {
+                          datanames = if (missing(show_metadata)) NULL else "all",
+                          transformators = list()) {
   message("Initializing tm_front_page")
 
   # Start of assertions
@@ -105,7 +106,8 @@ tm_front_page <- function(label = "Front page",
     ui = ui_front_page,
     ui_args = args,
     server_args = list(tables = tables),
-    datanames = datanames
+    datanames = datanames, ,
+    transformators = transformators
   )
   attr(ans, "teal_bookmarkable") <- TRUE
   ans

diff --git a/R/tm_variable_browser.R b/R/tm_variable_browser.R
@@ -84,7 +84,8 @@ tm_variable_browser <- function(label = "Variable Browser",
                                 parent_dataname = "ADSL",
                                 pre_output = NULL,
                                 post_output = NULL,
-                                ggplot2_args = teal.widgets::ggplot2_args()) {
+                                ggplot2_args = teal.widgets::ggplot2_args(),
+                                transformators = list()) {
   message("Initializing tm_variable_browser")
 
   # Start of assertions
@@ -126,7 +127,8 @@ tm_variable_browser <- function(label = "Variable Browser",
     ui_args = list(
       pre_output = pre_output,
       post_output = post_output
-    )
+    ),
+    transformators = transformators
   )
   # `shiny` inputs are stored properly but the majority of the module is state of `datatable` which is not stored.
   attr(ans, "teal_bookmarkable") <- NULL

diff --git a/man/tm_data_table.Rd b/man/tm_data_table.Rd
diff --git a/man/tm_front_page.Rd b/man/tm_front_page.Rd
diff --git a/man/tm_g_distribution.Rd b/man/tm_g_distribution.Rd
diff --git a/man/tm_variable_browser.Rd b/man/tm_variable_browser.Rd