merge back

Merge branch '518_incorrect_soft_dep@main' of https://github.com/insightsengineering/teal.modules.general into 518_incorrect_soft_dep@main

# Conflicts:
#	DESCRIPTION

DESCRIPTION

@@ -1,8 +1,8 @@
 Type: Package
 Package: teal.modules.general
 Title: General Modules for 'teal' Applications
-Version: 0.3.0.9034
-Date: 2024-05-16
+Version: 0.3.0.9038
+Date: 2024-06-27
 Authors@R: c(
     person("Dawid", "Kaledkowski", , "[email protected]", role = c("aut", "cre")),
     person("Pawel", "Rucki", , "[email protected]", role = "aut"),
@@ -51,10 +51,10 @@ Imports:
     stringr (>= 1.4.1),
     teal.code (>= 0.5.0),
     teal.data (>= 0.5.0),
-    teal.logger (>= 0.1.3.9013),
+    teal.logger (>= 0.2.0.9004),
     teal.reporter (>= 0.3.0),
     teal.widgets (>= 0.4.0),
-    tern (>= 0.9.3),
+    tern (>= 0.9.5),
     tibble (>= 2.0.0),
     tidyr (>= 0.8.3),
     tools,
@@ -66,32 +66,34 @@ Suggests:
     htmlwidgets,
     jsonlite,
     knitr (>= 1.42),
+    logger (>= 0.2.0),
     MASS,
     nestcolor (>= 0.1.0),
     pkgload,
     rlang (>= 1.0.0),
-    rtables (>= 0.6.6),
+    rmarkdown (>= 2.23),
+    rtables (>= 0.6.8),
     rvest,
     shinytest2,
     sparkline,
-    testthat (>= 3.0.4),
+    testthat (>= 3.1.9),
     withr (>= 2.0.0)
 VignetteBuilder:
     knitr
 Config/Needs/verdepcheck: haleyjeppson/ggmosaic, tidyverse/ggplot2,
     rstudio/shiny, insightsengineering/teal,
     insightsengineering/teal.transform, mllg/checkmate, tidyverse/dplyr,
-    rstudio/DT, tidyverse/forcats, daroczig/logger, 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,
-    tidyverse/tibble, tidyverse/tidyr, tidymodels/broom,
-    daattali/colourpicker, daattali/ggExtra, aphalo/ggpmisc, aphalo/ggpp,
-    slowkow/ggrepel, baddstats/goftest, gridExtra, ramnathv/htmlwidgets,
-    jeroen/jsonlite, yihui/knitr, deepayan/lattice, MASS,
-    insightsengineering/nestcolor, r-lib/rlang,
+    rstudio/DT, tidyverse/forcats, 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, tidyverse/tibble, tidyverse/tidyr,
+    tidymodels/broom, daattali/colourpicker, daattali/ggExtra,
+    aphalo/ggpmisc, aphalo/ggpp, slowkow/ggrepel, baddstats/goftest,
+    gridExtra, ramnathv/htmlwidgets, jeroen/jsonlite, yihui/knitr,
+    daroczig/logger, deepayan/lattice, MASS,
+    insightsengineering/nestcolor, r-lib/rlang, rstudio/rmarkdown,
     insightsengineering/rtables, tidyverse/rvest, sparkline,
     rstudio/shinytest2, insightsengineering/teal.data, r-lib/testthat,
     r-lib/withr

NEWS.md

@@ -1,9 +1,9 @@
-# teal.modules.general 0.3.0.9034
+# teal.modules.general 0.3.0.9038
 
 * Removed `Show Warnings` modals from modules.
 
 ### Enhancements
-* Added `logger` functionality for logging changes in shiny inputs in all modules. `logger` was added to Imports.
+* Added `teal.logger` functionality for logging changes in shiny inputs in all modules.
 
 # teal.modules.general 0.3.0
 

R/tm_a_pca.R

@@ -297,7 +297,7 @@ srv_a_pca <- function(id, data, reporter, filter_panel_api, dat, plot_height, pl
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
+    teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
 
     response <- dat
 

R/tm_a_regression.R

@@ -371,7 +371,7 @@ srv_a_regression <- function(id,
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
+    teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
 
     ns <- session$ns
 

R/tm_data_table.R

@@ -182,7 +182,7 @@ srv_page_data_table <- function(id,
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
+    teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
 
     if_filtered <- reactive(as.logical(input$if_filtered))
     if_distinct <- reactive(as.logical(input$if_distinct))

R/tm_file_viewer.R

@@ -124,7 +124,7 @@ ui_viewer <- function(id, ...) {
 # Server function for the file viewer module
 srv_viewer <- function(id, input_path) {
   moduleServer(id, function(input, output, session) {
-    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
+    teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
 
     temp_dir <- tempfile()
     if (!dir.exists(temp_dir)) {

R/tm_front_page.R

@@ -137,7 +137,7 @@ srv_front_page <- function(id, data, tables, show_metadata) {
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
+    teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
 
     ns <- session$ns
 

R/tm_g_association.R

@@ -285,7 +285,7 @@ srv_tm_g_association <- function(id,
   checkmate::assert_class(isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
+    teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
 
     selector_list <- teal.transform::data_extract_multiple_srv(
       data_extract = list(ref = ref, vars = vars),

R/tm_g_bivariate.R

@@ -459,7 +459,7 @@ srv_g_bivariate <- function(id,
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
+    teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
 
     ns <- session$ns
 

R/tm_g_distribution.R

@@ -346,7 +346,7 @@ srv_distribution <- function(id,
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
+    teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
 
     setBookmarkExclude("params_reset")
 

R/tm_g_response.R

@@ -313,7 +313,7 @@ srv_g_response <- function(id,
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
+    teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
 
     data_extract <- list(response = response, x = x, row_facet = row_facet, col_facet = col_facet)
 

R/tm_g_scatterplot.R

@@ -484,7 +484,7 @@ srv_g_scatterplot <- function(id,
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
+    teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
 
     data_extract <- list(
       x = x,

R/tm_g_scatterplotmatrix.R

@@ -261,7 +261,7 @@ srv_g_scatterplotmatrix <- function(id, data, reporter, filter_panel_api, variab
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
+    teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
 
     selector_list <- teal.transform::data_extract_multiple_srv(
       data_extract = list(variables = variables),

R/tm_missing_data.R

@@ -162,7 +162,7 @@ srv_page_missing_data <- function(id, data, reporter, filter_panel_api, parent_d
   with_reporter <- !missing(reporter) && inherits(reporter, "Reporter")
   with_filter <- !missing(filter_panel_api) && inherits(filter_panel_api, "FilterPanelAPI")
   moduleServer(id, function(input, output, session) {
-    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
+    teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
 
     datanames <- isolate(teal.data::datanames(data()))
     datanames <- Filter(function(name) {

R/tm_outliers.R

@@ -332,7 +332,7 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
+    teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
 
     ns <- session$ns
 

R/tm_t_crosstable.R

@@ -241,7 +241,7 @@ srv_t_crosstable <- function(id, data, reporter, filter_panel_api, label, x, y,
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
+    teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
 
     selector_list <- teal.transform::data_extract_multiple_srv(
       data_extract = list(x = x, y = y),

R/tm_variable_browser.R

@@ -199,7 +199,7 @@ srv_variable_browser <- function(id,
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
+    teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
 
     # if there are < this number of unique records then a numeric
     # variable can be treated as a factor and all factors with < this groups