Merge branch 'main' into 495_plot_missing@main

Author: llrs-roche

.pre-commit-config.yaml

@@ -6,7 +6,7 @@ default_language_version:
   python: python3
 repos:
   - repo: https://github.com/lorenzwalthert/precommit
-    rev: v0.4.3.9014
+    rev: v0.4.3.9015
     hooks:
       - id: style-files
         name: Style code with `styler`

DESCRIPTION

@@ -1,8 +1,8 @@
 Type: Package
 Package: teal.modules.general
 Title: General Modules for 'teal' Applications
-Version: 0.5.0.9003
-Date: 2025-09-23
+Version: 0.5.0.9004
+Date: 2025-10-01
 Authors@R: c(
     person("Dawid", "Kaledkowski", , "[email protected]", role = c("aut", "cre")),
     person("Pawel", "Rucki", , "[email protected]", role = "aut"),

NEWS.md

@@ -1,4 +1,8 @@
-# teal.modules.general 0.5.0.9003
+# teal.modules.general 0.5.0.9004
+
+### Enhancements
+
+- Modules now return a `teal_report` object that contains the data, code and reporter. All the reporter buttons were removed from the modules' UI.
 
 # teal.modules.general 0.5.0
 

R/tm_g_distribution.R

@@ -1272,13 +1272,13 @@ srv_distribution <- function(id,
     output_dist_q <- reactive(c(common_q(), req(dist_q())))
     output_qq_q <- reactive(c(common_q(), req(qq_q())))
 
-    # Summary table listing has to be created separately to allow for qenv join
-    q_common <- common_q()
-    teal.reporter::teal_card(q_common) <- c(
-      teal.reporter::teal_card(q_common),
-      "## Statistics table"
-    )
     output_summary_q <- reactive({
+      # Summary table listing has to be created separately to allow for qenv join
+      q_common <- common_q()
+      teal.reporter::teal_card(q_common) <- c(
+        teal.reporter::teal_card(q_common),
+        "## Statistics table"
+      )
       if (iv_r()$is_valid()) {
         within(q_common, {
           summary_table <- rtables::df_to_tt(summary_table_data)
@@ -1358,7 +1358,7 @@ srv_distribution <- function(id,
     output$summary_table <- DT::renderDataTable(summary_r())
 
     tests_r <- reactive({
-      q <- req(output_test_q())
+      q <- req(decorated_output_test_q())
       DT::datatable(q[["test_table_data"]])
     })
 
@@ -1384,7 +1384,7 @@ srv_distribution <- function(id,
 
     decorated_output_q <- reactive({
       tab <- req(input$tabs) # tab is NULL upon app launch, hence will crash without this statement
-      test_q_out <- output_test_q()
+      test_q_out <- decorated_output_test_q()
 
       out_q <- switch(tab,
         Histogram = decorated_output_dist_dims_q(),