Merge branch 'main' into 99-format-code-chunks@main

Author: vedhav

DESCRIPTION

@@ -1,8 +1,8 @@
 Type: Package
 Package: teal.modules.general
 Title: General Modules for 'teal' Applications
-Version: 0.3.0.9075
-Date: 2025-01-30
+Version: 0.3.0.9076
+Date: 2025-02-03
 Authors@R: c(
     person("Dawid", "Kaledkowski", , "dawid.kaledkowski@roche.com", role = c("aut", "cre")),
     person("Pawel", "Rucki", , "pawel.rucki@roche.com", role = "aut"),

NEWS.md

@@ -1,4 +1,4 @@
-# teal.modules.general 0.3.0.9075
+# teal.modules.general 0.3.0.9076
 
 * Removed `Show Warnings` modals from modules.
 * Soft deprecated `datasets_selected` argument of modules in favor of `datanames`.

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

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

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