Merge remote-tracking branch 'origin/main' into 400_include_filter_state_yaml

Author: gogonzo

DESCRIPTION

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

NEWS.md

@@ -1,4 +1,4 @@
-# teal.modules.general 0.5.0.9005
+# teal.modules.general 0.5.0.9006
 
 ### Enhancements
 

R/tm_outliers.R

@@ -648,8 +648,8 @@ srv_outliers <- function(id, data, outlier_var,
         )
       }
 
+      teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Summary Table")
       qenv <- if (length(categorical_var) > 0) {
-        teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Summary Table")
         qenv <- teal.code::eval_code(
           qenv,
           substitute(
@@ -739,16 +739,19 @@ srv_outliers <- function(id, data, outlier_var,
               categorical_var_name = as.name(categorical_var)
             )
           )
-        )
+        ) |> within({
+          table <- rtables::df_to_tt(summary_data)
+          table
+        })
       } else {
-        within(qenv, summary_data <- data.frame())
+        msg <- "No categorical variable selected, summary table cannot be created."
+        showNotification(msg,
+          closeButton = FALSE, type = "warning",
+          id = session$ns("no_summary_table")
+        )
+        within(qenv, cat(msg), msg = msg)
       }
 
-      # Generate decoratable object from data
-      qenv <- within(qenv, {
-        table <- rtables::df_to_tt(summary_data)
-        table
-      })
 
       if (length(categorical_var) > 0 && nrow(qenv[["ANL_OUTLIER"]]) > 0) {
         shinyjs::show("order_by_outlier")