Merge branch 'main' into report_redesign_poc@main

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.9003
+    rev: v0.4.3.9005
     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.0.9000
-Date: 2025-02-28
+Version: 0.4.0.9001
+Date: 2025-03-11
 Authors@R: c(
     person("Dawid", "Kaledkowski", , "[email protected]", role = c("aut", "cre")),
     person("Pawel", "Rucki", , "[email protected]", role = "aut"),
@@ -27,7 +27,7 @@ Depends:
     ggplot2 (>= 3.4.0),
     R (>= 4.1),
     shiny (>= 1.6.0),
-    teal (>= 0.16.0.9000),
+    teal (>= 0.16.0.9002),
     teal.transform (>= 0.6.0)
 Imports:
     bslib (>= 0.8.0),
@@ -61,8 +61,8 @@ Imports:
     teal.code (>= 0.6.1),
     teal.data (>= 0.7.0),
     teal.logger (>= 0.3.2),
-    teal.reporter (>= 0.4.0.9000),
-    teal.widgets (>= 0.4.3.9000),
+    teal.reporter (>= 0.4.0.9004),
+    teal.widgets (>= 0.4.3.9001),
     tern (>= 0.9.7),
     tibble (>= 2.0.0),
     tidyr (>= 0.8.3),
@@ -80,13 +80,13 @@ Suggests:
     shinytest2,
     testthat (>= 3.1.9),
     withr (>= 2.0.0)
-Remotes:
-    insightsengineering/teal@redesign@main,
-    insightsengineering/teal.widgets@test@bslib@main,
-    insightsengineering/teal.reporter@redesign@main
 VignetteBuilder:
     knitr,
     rmarkdown
+Remotes:
+    insightsengineering/teal.reporter@redesign@main,
+    insightsengineering/teal.widgets@main,
+    insightsengineering/teal@redesign@main
 Config/Needs/verdepcheck: haleyjeppson/ggmosaic, tidyverse/ggplot2,
     rstudio/shiny, insightsengineering/teal,
     insightsengineering/teal.slice, insightsengineering/teal.transform,

NEWS.md

@@ -1,4 +1,4 @@
-# teal.modules.general 0.4.0.9000
+# teal.modules.general 0.4.0.9001
 
 # teal.modules.general 0.4.0
 

tests/testthat/test-examples.R

@@ -152,6 +152,7 @@ for (i in rd_files()) {
     paste0("example-", basename(i)),
     {
       testthat::skip_on_cran()
+      testthat::skip("chromium")
       skip_if_too_deep(5)
       testthat::skip_if_not_installed("pkgload")
       if (basename(i) %in% strict_exceptions) {

tests/testthat/test-shinytest2-tm_a_pca.R

@@ -32,6 +32,7 @@ app_driver_tm_a_pca <- function() {
 }
 
 testthat::test_that("e2e - tm_a_pca: Module is initialised with the specified defaults in function call.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -56,6 +57,7 @@ testthat::test_that("e2e - tm_a_pca: Module is initialised with the specified de
 })
 
 testthat::test_that("e2e - tm_a_pca: Eigenvector table should have data extract selection Murder/Assault on header.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -73,6 +75,7 @@ testthat::test_that("e2e - tm_a_pca: Eigenvector table should have data extract
 })
 
 testthat::test_that("e2e - tm_a_pca: Eigenvector table should have data extract selection Murder/UrbanPop on header.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -90,6 +93,7 @@ testthat::test_that("e2e - tm_a_pca: Eigenvector table should have data extract
 })
 
 testthat::test_that("e2e - tm_a_pca: Color by columns (data_extract) must be from non-selected variable set.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -107,6 +111,7 @@ testthat::test_that("e2e - tm_a_pca: Color by columns (data_extract) must be fro
 })
 
 testthat::test_that("e2e - tm_a_pca: Changing output encodings of tables_display does not generate errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -128,6 +133,7 @@ testthat::test_that("e2e - tm_a_pca: Changing output encodings of tables_display
 })
 
 testthat::test_that("e2e - tm_a_pca: Changing output encodings for 'plot type' does not generate errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -151,6 +157,7 @@ testthat::test_that("e2e - tm_a_pca: Changing output encodings for 'plot type' d
 })
 
 testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'standardization' does not generate errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -169,6 +176,7 @@ testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'standardizati
 })
 
 testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'NA action' does not generate errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -183,6 +191,7 @@ testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'NA action' do
 })
 
 testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'plot_type' hides and shows options.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -215,6 +224,7 @@ testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'plot_type' hi
 })
 
 testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'theme' does not generate errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()
@@ -233,6 +243,7 @@ testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'theme' does n
 })
 
 testthat::test_that("e2e - tm_a_pca: Changing output encodings of 'font size' does not generate errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_pca()

tests/testthat/test-shinytest2-tm_a_regression.R

@@ -46,6 +46,7 @@ app_driver_tm_a_regression <- function() {
 }
 
 testthat::test_that("e2e - tm_a_regression: Data parameter and module label is passed properly.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_regression()
@@ -64,6 +65,7 @@ testthat::test_that("e2e - tm_a_regression: Data parameter and module label is p
 
 testthat::test_that("e2e - tm_a_regression:
   Data extract spec elements are initialized with the default values specified by response and regressor arg.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_regression()
@@ -83,6 +85,7 @@ testthat::test_that("e2e - tm_a_regression:
 })
 
 testthat::test_that("e2e - tm_a_regression: Plot type is set properly.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_regression()
@@ -96,6 +99,7 @@ testthat::test_that("e2e - tm_a_regression: Plot type is set properly.", {
 
 testthat::test_that("e2e - tm_a_regression:
   Plot type has 7 specific choices & changing choices does not throw errors.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_regression()
@@ -123,6 +127,7 @@ testthat::test_that("e2e - tm_a_regression:
 })
 
 testthat::test_that("e2e - tm_a_regression: Outlier definition and label are visible by default.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_regression()
@@ -135,6 +140,7 @@ testthat::test_that("e2e - tm_a_regression: Outlier definition and label are vis
 })
 
 testthat::test_that("e2e - tm_a_regression: Outlier definition and label have default values and label text.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_regression()
@@ -163,6 +169,7 @@ testthat::test_that("e2e - tm_a_regression: Outlier definition and label have de
 })
 
 testthat::test_that("e2e - tm_a_regression: Unchecking display outlier hides outlier label and definition.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_a_regression()

tests/testthat/test-shinytest2-tm_data_table.R

@@ -21,6 +21,7 @@ app_driver_tm_data_table <- function() {
 }
 
 test_that("e2e - tm_data_table: Initializes without errors", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_data_table()
 
@@ -35,6 +36,7 @@ test_that("e2e - tm_data_table: Initializes without errors", {
 })
 
 test_that("e2e - tm_data_table: Verify checkbox displayed over data table", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_data_table()
 
@@ -44,6 +46,7 @@ test_that("e2e - tm_data_table: Verify checkbox displayed over data table", {
 })
 
 test_that("e2e - tm_data_table: Verify module displays data table", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_data_table()
 
@@ -80,6 +83,7 @@ test_that("e2e - tm_data_table: Verify module displays data table", {
 })
 
 test_that("e2e - tm_data_table: Verify default variable selection and set new selection", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_data_table()
 

tests/testthat/test-shinytest2-tm_file_viewer.R

@@ -17,6 +17,7 @@ app_driver_tm_file_viewer <- function() {
 }
 
 test_that("e2e - tm_file_viewer: Initializes without errors and shows files tree specified in input_path argument", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_file_viewer()
 
@@ -42,6 +43,7 @@ test_that("e2e - tm_file_viewer: Initializes without errors and shows files tree
 })
 
 test_that("e2e - tm_file_viewer: Shows selected image file", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_file_viewer()
 
@@ -58,6 +60,7 @@ test_that("e2e - tm_file_viewer: Shows selected image file", {
 })
 
 test_that("e2e - tm_file_viewer: Shows selected text file", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_file_viewer()
 
@@ -80,6 +83,7 @@ test_that("e2e - tm_file_viewer: Shows selected text file", {
 })
 
 test_that("e2e - tm_file_viewer: Shows selected url", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_file_viewer()
 

tests/testthat/test-shinytest2-tm_front_page.R

@@ -22,6 +22,7 @@ app_driver_tm_front_page <- function() {
 }
 
 test_that("e2e - tm_front_page: Initializes without errors and check html elements", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_front_page()
 
@@ -46,6 +47,7 @@ test_that("e2e - tm_front_page: Initializes without errors and check html elemen
 })
 
 test_that("e2e - tm_front_page: Verify the module displays tables", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_front_page()
   # tables
@@ -58,6 +60,7 @@ test_that("e2e - tm_front_page: Verify the module displays tables", {
 })
 
 test_that("e2e - tm_front_page: Verify the module displays metadata", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_front_page()
 

tests/testthat/test-shinytest2-tm_g_association.R

@@ -45,6 +45,7 @@ app_driver_tm_g_association <- function() {
 }
 
 testthat::test_that("e2e - tm_g_association: Data parameter and module label is passed properly.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
 
   app_driver <- app_driver_tm_g_association()
@@ -63,6 +64,7 @@ testthat::test_that("e2e - tm_g_association: Data parameter and module label is
 
 testthat::test_that("e2e - tm_g_association:
   Data extract spec elements are initialized with the default values specified by ref and vars arguments.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_g_association()
 
@@ -84,6 +86,7 @@ testthat::test_that("e2e - tm_g_association:
 })
 
 testthat::test_that("e2e - tm_g_association: Module plot is visible.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_g_association()
 
@@ -93,6 +96,7 @@ testthat::test_that("e2e - tm_g_association: Module plot is visible.", {
 })
 
 testthat::test_that("e2e - tm_g_association: Check and set default values for radio buttons.", {
+  testthat::skip("chromium")
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_g_association()