Merge branch 'main' into teal_reportable

Signed-off-by: Marcin <[email protected]>

Author: m7pr

.pre-commit-config.yaml

@@ -6,7 +6,7 @@ default_language_version:
   python: python3
 repos:
   - repo: https://github.com/lorenzwalthert/precommit
-    rev: v0.4.3.9012
+    rev: v0.4.3.9013
     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.4.1.9006
-Date: 2025-07-08
+Version: 0.5.0.9000
+Date: 2025-08-20
 Authors@R: c(
     person("Dawid", "Kaledkowski", , "[email protected]", role = c("aut", "cre")),
     person("Pawel", "Rucki", , "[email protected]", role = "aut"),
@@ -26,9 +26,9 @@ Depends:
     ggmosaic (>= 0.3.0),
     ggplot2 (>= 3.4.0),
     R (>= 4.1),
-    shiny (>= 1.6.0),
-    teal (>= 0.16.0.9008),
-    teal.transform (>= 0.6.0.9002)
+    shiny (>= 1.8.1),
+    teal (>= 1.0.0),
+    teal.transform (>= 0.7.0)
 Imports:
     bslib (>= 0.8.0),
     checkmate (>= 2.1.0),
@@ -58,19 +58,19 @@ Imports:
     sparkline (>= 2.0),
     stats,
     stringr (>= 1.4.1),
-    teal.code (>= 0.6.1),
-    teal.data (>= 0.7.0),
-    teal.logger (>= 0.3.2.9001),
-    teal.reporter (>= 0.4.0.9004),
-    teal.widgets (>= 0.4.3.9005),
+    teal.code (>= 0.7.0),
+    teal.data (>= 0.8.0),
+    teal.logger (>= 0.4.0),
+    teal.reporter (>= 0.5.0),
+    teal.widgets (>= 0.5.0),
     tern (>= 0.9.7),
     tibble (>= 2.0.0),
     tidyr (>= 0.8.3),
     tools,
     utils
 Suggests:
     knitr (>= 1.42),
-    logger (>= 0.2.0),
+    logger (>= 0.4.0),
     nestcolor (>= 0.1.0),
     pkgload,
     rlang (>= 1.0.0),
@@ -84,17 +84,14 @@ VignetteBuilder:
     knitr,
     rmarkdown
 Remotes:
-    insightsengineering/teal.logger@main,
     insightsengineering/teal.reporter@teal_reportable,
-    insightsengineering/teal.transform@main,
-    insightsengineering/teal.widgets@main,
     insightsengineering/teal@teal_reportable,
 Config/Needs/verdepcheck: haleyjeppson/ggmosaic, tidyverse/ggplot2,
     rstudio/shiny, insightsengineering/teal,
-    insightsengineering/teal.slice, insightsengineering/teal.transform,
-    mllg/checkmate, tidyverse/dplyr, rstudio/DT, tidyverse/forcats,
-    r-lib/lifecycle, r-lib/scales, daattali/shinyjs, shinyTree/shinyTree,
-    rstudio/shinyvalidate, dreamRs/shinyWidgets, tidyverse/stringr,
+    insightsengineering/teal.transform, mllg/checkmate, tidyverse/dplyr,
+    rstudio/DT, tidyverse/forcats, r-lib/lifecycle, r-lib/scales,
+    daattali/shinyjs, shinyTree/shinyTree, rstudio/shinyvalidate,
+    dreamRs/shinyWidgets, tidyverse/stringr,
     insightsengineering/teal.code, insightsengineering/teal.data,
     insightsengineering/teal.logger, insightsengineering/teal.reporter,
     insightsengineering/teal.widgets, insightsengineering/tern,

NEWS.md

@@ -1,12 +1,28 @@
-# teal.modules.general 0.4.1.9006
+# teal.modules.general 0.5.0.9000
 
-# teal.modules.general 0.4.1
+# teal.modules.general 0.5.0
+
+### Breaking changes
+
+- Removed the `table` object decoration in `tm_missing_data` and `tm_outliers` (#899).
+- Removed the `summary_table` and `test_table` object decoration in `tm_g_distribution` (#897).
 
 ### Bug fixes
-* Fixes output is not updated when filter is added for the modules:  `tm_a_pca`, `tm_a_regression`, `tm_g_scatterplot`, `tm_g_association`, `tm_g_bivariate`, `tm_g_distribution`, `tm_g_response`, `tm_t_crosstable` (#870)
+
+- Fixed "Add to Report" functionality in `tm_outliers`, `tm_missing_data` and `tm_g_distribution` modules (#899 and #897).
+- Fixes a bug in `tm_outliers` that fails when data has no join keys (#650).
 
 ### Enhancements
-* Added `remove_zero_columns` to `tm_t_crosstable` to add an option to remove empty columns (#890)
+
+- Improved the layout and appearance of the app using `bslib` components.
+- Fixed deprecation warning for `tern::stack_grobs` in `tm_g_association` (#903).
+- Allow search feature in `tm_file_viewer` (#152).
+- Added `remove_zero_columns` to `tm_t_crosstable` to add an option to remove empty columns (#890)
+
+# teal.modules.general 0.4.1
+
+### Bug fixes
+* Fixes output is not updated when filter is added for the modules:  `tm_a_pca`, `tm_a_regression`, `tm_g_scatterplot`, `tm_g_association`, `tm_g_bivariate`, `tm_g_distribution`, `tm_g_response`, `tm_t_crosstable` (#870)
 
 # teal.modules.general 0.4.0
 

R/tm_a_pca.R

@@ -231,7 +231,6 @@ ui_a_pca <- function(id, ...) {
   }
 
   tagList(
-    include_css_files("custom"),
     teal.widgets::standard_layout(
       output = teal.widgets::white_small_well(
         uiOutput(ns("all_plots"))

R/tm_a_regression.R

@@ -836,18 +836,15 @@ srv_a_regression <- function(id,
               color = "red",
               linetype = "dashed"
             ) +
-            ggplot2::geom_text(
-              ggplot2::aes(
-                x = 0,
-                y = mean(data$.cooksd, na.rm = TRUE),
-                label = paste("mu", "=", round(mean(data$.cooksd, na.rm = TRUE), 4)),
-                vjust = -1,
-                hjust = 0,
-                color = "red",
-                angle = 90
-              ),
-              parse = TRUE,
-              show.legend = FALSE
+            ggplot2::annotate(
+              geom = "text",
+              x = 0,
+              y = mean(data$.cooksd, na.rm = TRUE),
+              label = paste("mu", "=", round(mean(data$.cooksd, na.rm = TRUE), 4)),
+              vjust = -1,
+              hjust = 0,
+              color = "red",
+              angle = 90
             ) +
             outlier_label,
           env = list(plot = plot, outlier = input$outlier, outlier_label = outlier_label())
@@ -1039,7 +1036,6 @@ srv_a_regression <- function(id,
       verbatim_content = source_code_r,
       title = "R code for the regression plot",
     )
-
     decorated_output_q
   })
 }

R/tm_data_table.R

@@ -112,7 +112,7 @@ tm_data_table <- function(label = "Data Table",
     })
   }
   if (!missing(datasets_selected)) {
-    lifecycle::deprecate_soft(
+    lifecycle::deprecate_stop(
       when = "0.4.0",
       what = "tm_data_table(datasets_selected)",
       with = "tm_data_table(datanames)",
@@ -158,7 +158,6 @@ ui_page_data_table <- function(id, pre_output = NULL, post_output = NULL) {
   ns <- NS(id)
 
   tagList(
-    include_css_files("custom"),
     teal.widgets::standard_layout(
       output = teal.widgets::white_small_well(
         bslib::page_fluid(

R/tm_file_viewer.R

@@ -103,20 +103,20 @@ ui_viewer <- function(id, ...) {
   ns <- NS(id)
 
   tagList(
-    include_css_files("custom"),
     teal.widgets::standard_layout(
       output = tags$div(
         uiOutput(ns("output"))
       ),
       encoding = tags$div(
-        class = "file_viewer_encoding",
+        style = "overflow-y: hidden; overflow-x: auto;",
         tags$label("Encodings", class = "text-primary"),
         shinyTree::shinyTree(
           ns("tree"),
           dragAndDrop = FALSE,
           sort = FALSE,
           theme = "proton",
-          multiple = FALSE
+          multiple = FALSE,
+          search = TRUE
         )
       )
     )
@@ -172,7 +172,7 @@ srv_viewer <- function(id, input_path) {
         tags$img(src = con_type$selected_path, alt = "file does not exist")
       } else if (file_extension == "pdf") {
         tags$embed(
-          class = "embed_pdf",
+          style = "height: 600px; width: 100%;",
           src = con_type$selected_path
         )
       } else if (!isFALSE(con_type$output_text[1])) {

R/tm_front_page.R

@@ -83,7 +83,7 @@ tm_front_page <- function(label = "Front page",
   checkmate::assert_multi_class(additional_tags, classes = c("shiny.tag.list", "html"))
   checkmate::assert_character(footnotes, min.len = 0, any.missing = FALSE)
   if (!missing(show_metadata)) {
-    lifecycle::deprecate_soft(
+    lifecycle::deprecate_stop(
       when = "0.4.0",
       what = "tm_front_page(show_metadata)",
       with = "tm_front_page(datanames)",
@@ -119,33 +119,32 @@ ui_front_page <- function(id, ...) {
   ns <- NS(id)
 
   tagList(
-    include_css_files("custom"),
     tags$div(
       id = "front_page_content",
-      class = "ml-8",
+      style = "margin-left: 2rem;",
       tags$div(
         id = "front_page_headers",
         get_header_tags(args$header_text)
       ),
       tags$div(
         id = "front_page_tables",
-        class = "ml-4",
+        style = "margin-left: 2rem;",
         get_table_tags(args$tables, ns)
       ),
       tags$div(
         id = "front_page_custom_html",
-        class = "my-4",
+        style = "margin-left: 2rem;",
         args$additional_tags
       ),
       if (length(args$datanames) > 0L) {
         tags$div(
           id = "front_page_metabutton",
-          class = "m-4",
+          style = "margin: 1rem;",
           actionButton(ns("metadata_button"), "Show metadata")
         )
       },
       tags$footer(
-        class = ".small",
+        class = "small",
         get_footer_tags(args$footnotes)
       )
     )
@@ -228,7 +227,7 @@ get_table_tags <- function(tables, ns) {
       tableOutput(ns(paste0("table_", idx)))
     )
   }))
-  return(table_tags)
+  table_tags
 }
 
 get_footer_tags <- function(footnotes) {
@@ -255,11 +254,11 @@ convert_metadata_to_dataframe <- function(raw_metadata, datanames) {
     if (is.null(metadata)) {
       return(data.frame(Dataset = character(0), Name = character(0), Value = character(0)))
     }
-    return(data.frame(
+    data.frame(
       Dataset = dataname,
       Name = names(metadata),
       Value = unname(unlist(lapply(metadata, as.character)))
-    ))
+    )
   }, raw_metadata, datanames, SIMPLIFY = FALSE)
   do.call(rbind, output)
 }

R/tm_g_association.R

@@ -552,7 +552,6 @@ srv_tm_g_association <- function(id,
       verbatim_content = source_code_r,
       title = "Association Plot"
     )
-
     decorated_output_grob_q
   })
 }

R/tm_g_bivariate.R

@@ -755,9 +755,6 @@ srv_g_bivariate <- function(id,
       verbatim_content = source_code_r,
       title = "Bivariate Plot"
     )
-
-
-
     decorated_output_q_facets
   })
 }