From 56bf1a95f73f44b24a27fc279b4da0c3ecf8eef2 Mon Sep 17 00:00:00 2001 From: m7pr Date: Thu, 9 May 2024 12:35:39 +0200 Subject: [PATCH 1/5] add logger::log_shiny_input_changes to modules --- DESCRIPTION | 2 +- R/tm_g_ae_oview.R | 1 + R/tm_g_ae_sub.R | 1 + R/tm_g_butterfly.R | 1 + R/tm_g_decorate.R | 1 + R/tm_g_events_term_id.R | 1 + R/tm_g_heat_bygrade.R | 1 + R/tm_g_patient_profile.R | 1 + R/tm_g_spiderplot.R | 1 + R/tm_g_swimlane.R | 1 + R/tm_g_waterfall.R | 1 + 11 files changed, 11 insertions(+), 1 deletion(-) diff --git a/DESCRIPTION b/DESCRIPTION index fb0cdc82..3e9db908 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -32,6 +32,7 @@ Imports: formatters (>= 0.3.1), ggplot2 (>= 3.4.0), lifecycle (>= 0.2.0), + logger (>= 0.3.0), shinyvalidate, teal.code (>= 0.4.1.9009), teal.logger (>= 0.1.3.9013), @@ -41,7 +42,6 @@ Imports: tidyr (>= 0.8.3) Suggests: knitr (>= 1.42), - logger (>= 0.2.0), nestcolor (>= 0.1.0), rmarkdown (>= 2.19), teal.data (>= 0.3.0.9018), diff --git a/R/tm_g_ae_oview.R b/R/tm_g_ae_oview.R index 13f5858e..2d50d4a9 100644 --- a/R/tm_g_ae_oview.R +++ b/R/tm_g_ae_oview.R @@ -209,6 +209,7 @@ srv_g_ae_oview <- function(id, checkmate::assert_class(isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { +logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ ANL <- data()[[dataname]] diff --git a/R/tm_g_ae_sub.R b/R/tm_g_ae_sub.R index bed0eda4..2e60ed56 100644 --- a/R/tm_g_ae_sub.R +++ b/R/tm_g_ae_sub.R @@ -186,6 +186,7 @@ srv_g_ae_sub <- function(id, checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { +logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ ANL <- data()[[dataname]] ADSL <- data()[["ADSL"]] diff --git a/R/tm_g_butterfly.R b/R/tm_g_butterfly.R index 6f0dd025..c980cec4 100644 --- a/R/tm_g_butterfly.R +++ b/R/tm_g_butterfly.R @@ -270,6 +270,7 @@ srv_g_butterfly <- function(id, data, filter_panel_api, reporter, dataname, labe checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { +logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ ADSL <- data()[["ADSL"]] ANL <- data()[[dataname]] diff --git a/R/tm_g_decorate.R b/R/tm_g_decorate.R index 604513e1..55d91e7f 100644 --- a/R/tm_g_decorate.R +++ b/R/tm_g_decorate.R @@ -47,6 +47,7 @@ srv_g_decorate <- function(id, plot_height, plot_width) { moduleServer(id, function(input, output, session) { +logger::log_shiny_input_changes(input, namespace = "teal.osprey") plot_g <- reactive({ g <- tern::decorate_grob( plt(), diff --git a/R/tm_g_events_term_id.R b/R/tm_g_events_term_id.R index 2539762b..13cb969d 100644 --- a/R/tm_g_events_term_id.R +++ b/R/tm_g_events_term_id.R @@ -214,6 +214,7 @@ srv_g_events_term_id <- function(id, checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { +logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ iv <- shinyvalidate::InputValidator$new() iv$add_rule("term", shinyvalidate::sv_required( diff --git a/R/tm_g_heat_bygrade.R b/R/tm_g_heat_bygrade.R index 904ae79c..8621d297 100644 --- a/R/tm_g_heat_bygrade.R +++ b/R/tm_g_heat_bygrade.R @@ -297,6 +297,7 @@ srv_g_heatmap_bygrade <- function(id, if (!is.na(cm_dataname)) checkmate::assert_names(cm_dataname, subset.of = names(data)) moduleServer(id, function(input, output, session) { +logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ ADSL <- data()[[sl_dataname]] ADEX <- data()[[ex_dataname]] diff --git a/R/tm_g_patient_profile.R b/R/tm_g_patient_profile.R index dd3ba667..eced0738 100644 --- a/R/tm_g_patient_profile.R +++ b/R/tm_g_patient_profile.R @@ -363,6 +363,7 @@ srv_g_patient_profile <- function(id, if (!is.na(cm_dataname)) checkmate::assert_names(cm_dataname, subset.of = names(data)) checkboxes <- c(ex_dataname, ae_dataname, rs_dataname, lb_dataname, cm_dataname) moduleServer(id, function(input, output, session) { +logger::log_shiny_input_changes(input, namespace = "teal.osprey") select_plot <- reactive( vapply(checkboxes, function(x) x %in% input$select_ADaM, logical(1L)) ) diff --git a/R/tm_g_spiderplot.R b/R/tm_g_spiderplot.R index 6f917fea..d263de54 100644 --- a/R/tm_g_spiderplot.R +++ b/R/tm_g_spiderplot.R @@ -244,6 +244,7 @@ srv_g_spider <- function(id, data, filter_panel_api, reporter, dataname, label, checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { +logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ ADSL <- data()[["ADSL"]] ADTR <- data()[[dataname]] diff --git a/R/tm_g_swimlane.R b/R/tm_g_swimlane.R index 90a2871a..edb84f71 100644 --- a/R/tm_g_swimlane.R +++ b/R/tm_g_swimlane.R @@ -280,6 +280,7 @@ srv_g_swimlane <- function(id, checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { +logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ iv <- shinyvalidate::InputValidator$new() iv$add_rule("bar_var", shinyvalidate::sv_required( diff --git a/R/tm_g_waterfall.R b/R/tm_g_waterfall.R index 1ab5d15d..70ae9407 100644 --- a/R/tm_g_waterfall.R +++ b/R/tm_g_waterfall.R @@ -288,6 +288,7 @@ srv_g_waterfall <- function(id, checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { +logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ adsl <- data()[["ADSL"]] adtr <- data()[[dataname_tr]] From 0ea6619263ee8ae961bf3ce302e4ce3ae22d4b25 Mon Sep 17 00:00:00 2001 From: m7pr Date: Thu, 9 May 2024 12:36:21 +0200 Subject: [PATCH 2/5] style files --- R/tm_g_ae_oview.R | 2 +- R/tm_g_ae_sub.R | 2 +- R/tm_g_butterfly.R | 2 +- R/tm_g_decorate.R | 2 +- R/tm_g_events_term_id.R | 2 +- R/tm_g_heat_bygrade.R | 2 +- R/tm_g_patient_profile.R | 2 +- R/tm_g_spiderplot.R | 2 +- R/tm_g_swimlane.R | 2 +- R/tm_g_waterfall.R | 2 +- 10 files changed, 10 insertions(+), 10 deletions(-) diff --git a/R/tm_g_ae_oview.R b/R/tm_g_ae_oview.R index 2d50d4a9..985e74b6 100644 --- a/R/tm_g_ae_oview.R +++ b/R/tm_g_ae_oview.R @@ -209,7 +209,7 @@ srv_g_ae_oview <- function(id, checkmate::assert_class(isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { -logger::log_shiny_input_changes(input, namespace = "teal.osprey") + logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ ANL <- data()[[dataname]] diff --git a/R/tm_g_ae_sub.R b/R/tm_g_ae_sub.R index 2e60ed56..8acd46b6 100644 --- a/R/tm_g_ae_sub.R +++ b/R/tm_g_ae_sub.R @@ -186,7 +186,7 @@ srv_g_ae_sub <- function(id, checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { -logger::log_shiny_input_changes(input, namespace = "teal.osprey") + logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ ANL <- data()[[dataname]] ADSL <- data()[["ADSL"]] diff --git a/R/tm_g_butterfly.R b/R/tm_g_butterfly.R index c980cec4..0626a820 100644 --- a/R/tm_g_butterfly.R +++ b/R/tm_g_butterfly.R @@ -270,7 +270,7 @@ srv_g_butterfly <- function(id, data, filter_panel_api, reporter, dataname, labe checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { -logger::log_shiny_input_changes(input, namespace = "teal.osprey") + logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ ADSL <- data()[["ADSL"]] ANL <- data()[[dataname]] diff --git a/R/tm_g_decorate.R b/R/tm_g_decorate.R index 55d91e7f..1ec17e4c 100644 --- a/R/tm_g_decorate.R +++ b/R/tm_g_decorate.R @@ -47,7 +47,7 @@ srv_g_decorate <- function(id, plot_height, plot_width) { moduleServer(id, function(input, output, session) { -logger::log_shiny_input_changes(input, namespace = "teal.osprey") + logger::log_shiny_input_changes(input, namespace = "teal.osprey") plot_g <- reactive({ g <- tern::decorate_grob( plt(), diff --git a/R/tm_g_events_term_id.R b/R/tm_g_events_term_id.R index 13cb969d..9ea1be24 100644 --- a/R/tm_g_events_term_id.R +++ b/R/tm_g_events_term_id.R @@ -214,7 +214,7 @@ srv_g_events_term_id <- function(id, checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { -logger::log_shiny_input_changes(input, namespace = "teal.osprey") + logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ iv <- shinyvalidate::InputValidator$new() iv$add_rule("term", shinyvalidate::sv_required( diff --git a/R/tm_g_heat_bygrade.R b/R/tm_g_heat_bygrade.R index 8621d297..5c0e0e95 100644 --- a/R/tm_g_heat_bygrade.R +++ b/R/tm_g_heat_bygrade.R @@ -297,7 +297,7 @@ srv_g_heatmap_bygrade <- function(id, if (!is.na(cm_dataname)) checkmate::assert_names(cm_dataname, subset.of = names(data)) moduleServer(id, function(input, output, session) { -logger::log_shiny_input_changes(input, namespace = "teal.osprey") + logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ ADSL <- data()[[sl_dataname]] ADEX <- data()[[ex_dataname]] diff --git a/R/tm_g_patient_profile.R b/R/tm_g_patient_profile.R index eced0738..5529f2a9 100644 --- a/R/tm_g_patient_profile.R +++ b/R/tm_g_patient_profile.R @@ -363,7 +363,7 @@ srv_g_patient_profile <- function(id, if (!is.na(cm_dataname)) checkmate::assert_names(cm_dataname, subset.of = names(data)) checkboxes <- c(ex_dataname, ae_dataname, rs_dataname, lb_dataname, cm_dataname) moduleServer(id, function(input, output, session) { -logger::log_shiny_input_changes(input, namespace = "teal.osprey") + logger::log_shiny_input_changes(input, namespace = "teal.osprey") select_plot <- reactive( vapply(checkboxes, function(x) x %in% input$select_ADaM, logical(1L)) ) diff --git a/R/tm_g_spiderplot.R b/R/tm_g_spiderplot.R index d263de54..b331f8f9 100644 --- a/R/tm_g_spiderplot.R +++ b/R/tm_g_spiderplot.R @@ -244,7 +244,7 @@ srv_g_spider <- function(id, data, filter_panel_api, reporter, dataname, label, checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { -logger::log_shiny_input_changes(input, namespace = "teal.osprey") + logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ ADSL <- data()[["ADSL"]] ADTR <- data()[[dataname]] diff --git a/R/tm_g_swimlane.R b/R/tm_g_swimlane.R index edb84f71..16ea9a01 100644 --- a/R/tm_g_swimlane.R +++ b/R/tm_g_swimlane.R @@ -280,7 +280,7 @@ srv_g_swimlane <- function(id, checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { -logger::log_shiny_input_changes(input, namespace = "teal.osprey") + logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ iv <- shinyvalidate::InputValidator$new() iv$add_rule("bar_var", shinyvalidate::sv_required( diff --git a/R/tm_g_waterfall.R b/R/tm_g_waterfall.R index 70ae9407..b8da73f2 100644 --- a/R/tm_g_waterfall.R +++ b/R/tm_g_waterfall.R @@ -288,7 +288,7 @@ srv_g_waterfall <- function(id, checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { -logger::log_shiny_input_changes(input, namespace = "teal.osprey") + logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ adsl <- data()[["ADSL"]] adtr <- data()[[dataname_tr]] From 7f2dd05ed75c2f7c9f01cc9e28ebb2114ddc1198 Mon Sep 17 00:00:00 2001 From: m7pr Date: Mon, 13 May 2024 12:31:24 +0200 Subject: [PATCH 3/5] change orderd of COnfig/Needs/verdepcheck --- DESCRIPTION | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 6938a867..8d835ccf 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -50,11 +50,11 @@ Suggests: Config/Needs/verdepcheck: insightsengineering/osprey, rstudio/shiny, insightsengineering/teal, insightsengineering/teal.transform, mllg/checkmate, tidyverse/dplyr, insightsengineering/formatters, - tidyverse/ggplot2, r-lib/lifecycle, rstudio/shinyvalidate, + tidyverse/ggplot2, r-lib/lifecycle, daroczig/logger, rstudio/shinyvalidate, insightsengineering/teal.code, insightsengineering/teal.logger, insightsengineering/teal.reporter, insightsengineering/teal.widgets, insightsengineering/tern, tidyverse/tidyr, yihui/knitr, - daroczig/logger, insightsengineering/nestcolor, rstudio/rmarkdown, + insightsengineering/nestcolor, rstudio/rmarkdown, insightsengineering/teal.data, r-lib/testthat, r-lib/withr Config/Needs/website: insightsengineering/nesttemplate Encoding: UTF-8 From a2e2c8edd4bd4c00a2a27078dedd1006d6be0765 Mon Sep 17 00:00:00 2001 From: m7pr Date: Mon, 13 May 2024 12:31:31 +0200 Subject: [PATCH 4/5] update NEWS --- NEWS.md | 3 +++ 1 file changed, 3 insertions(+) diff --git a/NEWS.md b/NEWS.md index ff735fd4..9dfd6413 100644 --- a/NEWS.md +++ b/NEWS.md @@ -5,6 +5,9 @@ ### Breaking Changes * 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. + ### Miscellaneous * Specified minimal version of package dependencies. From 7fc611eb4daeca246a72b369752c194e8c81bc71 Mon Sep 17 00:00:00 2001 From: m7pr Date: Wed, 15 May 2024 15:02:58 +0200 Subject: [PATCH 5/5] use logging only for isRunning shiny --- NEWS.md | 2 +- R/tm_g_ae_oview.R | 2 +- R/tm_g_ae_sub.R | 2 +- R/tm_g_butterfly.R | 2 +- R/tm_g_decorate.R | 2 +- R/tm_g_events_term_id.R | 2 +- R/tm_g_heat_bygrade.R | 2 +- R/tm_g_patient_profile.R | 2 +- R/tm_g_spiderplot.R | 2 +- R/tm_g_swimlane.R | 2 +- R/tm_g_waterfall.R | 2 +- 11 files changed, 11 insertions(+), 11 deletions(-) diff --git a/NEWS.md b/NEWS.md index 9dfd6413..fe01260a 100644 --- a/NEWS.md +++ b/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. +* Added `logger` functionality for logging changes in shiny inputs in all modules. `logger` was added to Imports. ### Miscellaneous diff --git a/R/tm_g_ae_oview.R b/R/tm_g_ae_oview.R index 7cb05a17..430d6f9c 100644 --- a/R/tm_g_ae_oview.R +++ b/R/tm_g_ae_oview.R @@ -208,7 +208,7 @@ srv_g_ae_oview <- function(id, checkmate::assert_class(isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { - logger::log_shiny_input_changes(input, namespace = "teal.osprey") + if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ ANL <- data()[[dataname]] diff --git a/R/tm_g_ae_sub.R b/R/tm_g_ae_sub.R index 38a82fc5..e8032c96 100644 --- a/R/tm_g_ae_sub.R +++ b/R/tm_g_ae_sub.R @@ -185,7 +185,7 @@ srv_g_ae_sub <- function(id, checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { - logger::log_shiny_input_changes(input, namespace = "teal.osprey") + if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ ANL <- data()[[dataname]] ADSL <- data()[["ADSL"]] diff --git a/R/tm_g_butterfly.R b/R/tm_g_butterfly.R index 019129cf..e29efd9b 100644 --- a/R/tm_g_butterfly.R +++ b/R/tm_g_butterfly.R @@ -269,7 +269,7 @@ srv_g_butterfly <- function(id, data, filter_panel_api, reporter, dataname, labe checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { - logger::log_shiny_input_changes(input, namespace = "teal.osprey") + if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ ADSL <- data()[["ADSL"]] ANL <- data()[[dataname]] diff --git a/R/tm_g_decorate.R b/R/tm_g_decorate.R index 1ec17e4c..c0248bfd 100644 --- a/R/tm_g_decorate.R +++ b/R/tm_g_decorate.R @@ -47,7 +47,7 @@ srv_g_decorate <- function(id, plot_height, plot_width) { moduleServer(id, function(input, output, session) { - logger::log_shiny_input_changes(input, namespace = "teal.osprey") + if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.osprey") plot_g <- reactive({ g <- tern::decorate_grob( plt(), diff --git a/R/tm_g_events_term_id.R b/R/tm_g_events_term_id.R index 03fba03e..9e06e093 100644 --- a/R/tm_g_events_term_id.R +++ b/R/tm_g_events_term_id.R @@ -213,7 +213,7 @@ srv_g_events_term_id <- function(id, checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { - logger::log_shiny_input_changes(input, namespace = "teal.osprey") + if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ iv <- shinyvalidate::InputValidator$new() iv$add_rule("term", shinyvalidate::sv_required( diff --git a/R/tm_g_heat_bygrade.R b/R/tm_g_heat_bygrade.R index d1cda03a..89c5870b 100644 --- a/R/tm_g_heat_bygrade.R +++ b/R/tm_g_heat_bygrade.R @@ -296,7 +296,7 @@ srv_g_heatmap_bygrade <- function(id, if (!is.na(cm_dataname)) checkmate::assert_names(cm_dataname, subset.of = names(data)) moduleServer(id, function(input, output, session) { - logger::log_shiny_input_changes(input, namespace = "teal.osprey") + if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ ADSL <- data()[[sl_dataname]] ADEX <- data()[[ex_dataname]] diff --git a/R/tm_g_patient_profile.R b/R/tm_g_patient_profile.R index 02698c69..989282a9 100644 --- a/R/tm_g_patient_profile.R +++ b/R/tm_g_patient_profile.R @@ -362,7 +362,7 @@ srv_g_patient_profile <- function(id, if (!is.na(cm_dataname)) checkmate::assert_names(cm_dataname, subset.of = names(data)) checkboxes <- c(ex_dataname, ae_dataname, rs_dataname, lb_dataname, cm_dataname) moduleServer(id, function(input, output, session) { - logger::log_shiny_input_changes(input, namespace = "teal.osprey") + if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.osprey") select_plot <- reactive( vapply(checkboxes, function(x) x %in% input$select_ADaM, logical(1L)) ) diff --git a/R/tm_g_spiderplot.R b/R/tm_g_spiderplot.R index 980158c1..edb2884f 100644 --- a/R/tm_g_spiderplot.R +++ b/R/tm_g_spiderplot.R @@ -243,7 +243,7 @@ srv_g_spider <- function(id, data, filter_panel_api, reporter, dataname, label, checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { - logger::log_shiny_input_changes(input, namespace = "teal.osprey") + if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ ADSL <- data()[["ADSL"]] ADTR <- data()[[dataname]] diff --git a/R/tm_g_swimlane.R b/R/tm_g_swimlane.R index 72b8b163..247a9f6f 100644 --- a/R/tm_g_swimlane.R +++ b/R/tm_g_swimlane.R @@ -279,7 +279,7 @@ srv_g_swimlane <- function(id, checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { - logger::log_shiny_input_changes(input, namespace = "teal.osprey") + if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ iv <- shinyvalidate::InputValidator$new() iv$add_rule("bar_var", shinyvalidate::sv_required( diff --git a/R/tm_g_waterfall.R b/R/tm_g_waterfall.R index 41c121d3..b9f59074 100644 --- a/R/tm_g_waterfall.R +++ b/R/tm_g_waterfall.R @@ -287,7 +287,7 @@ srv_g_waterfall <- function(id, checkmate::assert_class(shiny::isolate(data()), "teal_data") moduleServer(id, function(input, output, session) { - logger::log_shiny_input_changes(input, namespace = "teal.osprey") + if (shiny::isRunning()) logger::log_shiny_input_changes(input, namespace = "teal.osprey") iv <- reactive({ adsl <- data()[["ADSL"]] adtr <- data()[[dataname_tr]]