239 utilize logger::log_shiny_input_change (#274)

Similar to 
insightsengineering/teal.modules.general#750
insightsengineering/teal.modules.clinical#227

.pre-commit-config.yaml

@@ -28,6 +28,7 @@ repos:
           - ggplot2
           - grDevices
           - lifecycle
+          - logger
           - methods
           - rlang
           - shinyjs

DESCRIPTION

@@ -42,6 +42,7 @@ Imports:
     ggplot2 (>= 3.4.0),
     grDevices,
     lifecycle (>= 0.2.0),
+    logger (>= 0.3.0),
     methods,
     rlang (>= 1.0.0),
     shinyjs,
@@ -66,8 +67,8 @@ VignetteBuilder:
 Config/Needs/verdepcheck: insightsengineering/goshawk, rstudio/shiny,
     insightsengineering/teal, insightsengineering/teal.transform,
     mllg/checkmate, daattali/colourpicker, tidyverse/dplyr, rstudio/DT,
-    tidyverse/ggplot2, r-lib/lifecycle, r-lib/rlang, daattali/shinyjs,
-    rstudio/shinyvalidate, insightsengineering/teal.code,
+    tidyverse/ggplot2, r-lib/lifecycle, daroczig/logger, r-lib/rlang, 
+    daattali/shinyjs, rstudio/shinyvalidate, insightsengineering/teal.code,
     insightsengineering/teal.logger, insightsengineering/teal.reporter,
     insightsengineering/teal.widgets, tidyverse/tidyr, yihui/knitr,
     insightsengineering/nestcolor, rstudio/rmarkdown, tidyverse/stringr,

NEWS.md

@@ -6,7 +6,7 @@
 * Adapted all modules to use `teal_data` objects.
 
 ### Enhancements
-
+* Added `logger` functionality for logging changes in shiny inputs in all modules. `logger` was added to Imports.
 * Updated the documentation and vignettes to demonstrate method to pass `teal_data` object to `teal::init()`.
 
 ### Miscellaneous

R/tm_g_gh_boxplot.R

@@ -326,6 +326,7 @@ srv_g_boxplot <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
+    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.goshawk")
     output$axis_selections <- renderUI({
       env <- shiny::isolate(as.list(data()@env))
       resolved_x <- teal.transform::resolve_delayed(module_args$xaxis_var, env)

R/tm_g_gh_correlationplot.R

@@ -382,6 +382,7 @@ srv_g_correlationplot <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
+    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.goshawk")
     output$axis_selections <- renderUI({
       env <- shiny::isolate(as.list(data()@env))
       resolved_x_param <- teal.transform::resolve_delayed(module_args$xaxis_param, env)

R/tm_g_gh_density_distribution_plot.R

@@ -268,6 +268,7 @@ srv_g_density_distribution_plot <- function(id, # nolint
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
+    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.goshawk")
     output$axis_selections <- renderUI({
       env <- shiny::isolate(as.list(data()@env))
       resolved_x <- teal.transform::resolve_delayed(module_args$xaxis_var, env)

R/tm_g_gh_lineplot.R

@@ -329,6 +329,7 @@ srv_lineplot <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
+    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.goshawk")
     ns <- session$ns
 
     output$axis_selections <- renderUI({

R/tm_g_gh_scatterplot.R

@@ -267,6 +267,7 @@ srv_g_scatterplot <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
+    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.goshawk")
     output$axis_selections <- renderUI({
       env <- shiny::isolate(as.list(data()@env))
       resolved_x <- teal.transform::resolve_delayed(module_args$xaxis_var, env)

R/tm_g_gh_spaghettiplot.R

@@ -344,6 +344,7 @@ srv_g_spaghettiplot <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
+    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.goshawk")
     output$axis_selections <- renderUI({
       env <- shiny::isolate(as.list(data()@env))
       resolved_x <- teal.transform::resolve_delayed(module_args$xaxis_var, env)

R/toggleable_slider.R

@@ -142,6 +142,7 @@ toggle_slider_ui <- function(id,
 # is_dichotomous_slider `logical` whether it is a dichotomous slider or normal slider
 toggle_slider_server <- function(id, is_dichotomous_slider = TRUE) {
   moduleServer(id, function(input, output, session) {
+    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.goshawk")
     checkmate::assert_flag(is_dichotomous_slider)
     # model view controller: cur_state is the model, the sliderInput and numericInputs are two views/controllers
     # additionally, the module returns the cur_state, so it can be controlled from that end as well

R/utils-arbitrary_lines.r

@@ -48,6 +48,7 @@ ui_arbitrary_lines <- function(id, line_arb, line_arb_label, line_arb_color, tit
 #' @keywords internal
 srv_arbitrary_lines <- function(id) {
   moduleServer(id, function(input, output, session) {
+    if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.goshawk")
     comma_sep_to_values <- function(values, wrapper_fun = trimws) {
       vals <- strsplit(values, "\\s{0,},\\s{0,}")[[1]]
       suppressWarnings(wrapper_fun(vals))