diff --git a/R/tm_a_gee.R b/R/tm_a_gee.R index 3a0165c61..fbfa4062a 100644 --- a/R/tm_a_gee.R +++ b/R/tm_a_gee.R @@ -584,6 +584,6 @@ srv_gee <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_a_mmrm.R b/R/tm_a_mmrm.R index 14b0fdcc2..6e198ce6b 100644 --- a/R/tm_a_mmrm.R +++ b/R/tm_a_mmrm.R @@ -1419,9 +1419,8 @@ srv_mmrm <- function(id, ) }) - plot_id <- "mmrm_plot" pws <- teal.widgets::plot_with_settings_srv( - id = plot_id, + id = "mmrm_plot", plot_r = plot_r, height = plot_height, width = plot_width, @@ -1473,6 +1472,6 @@ srv_mmrm <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input, plot_id) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_g_barchart_simple.R b/R/tm_g_barchart_simple.R index 2b25d4257..f08171e0e 100644 --- a/R/tm_g_barchart_simple.R +++ b/R/tm_g_barchart_simple.R @@ -534,9 +534,8 @@ srv_g_barchart_simple <- function(id, } # Insert the plot into a plot with settings module from teal.widgets - plot_id <- "myplot" pws <- teal.widgets::plot_with_settings_srv( - id = plot_id, + id = "myplot", plot_r = plot_r, height = plot_height, width = plot_width @@ -569,7 +568,7 @@ srv_g_barchart_simple <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input, plot_id) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical", excluded_patterns = "_width$") }) } diff --git a/R/tm_g_ci.R b/R/tm_g_ci.R index 44e324881..fc7968060 100644 --- a/R/tm_g_ci.R +++ b/R/tm_g_ci.R @@ -472,9 +472,8 @@ srv_g_ci <- function(id, title = label ) - plot_id <- "myplot" pws <- teal.widgets::plot_with_settings_srv( - id = plot_id, + id = "myplot", plot_r = plot_r, height = plot_height, width = plot_width @@ -502,6 +501,6 @@ srv_g_ci <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input, plot_id) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical", excluded_patterns = "_width$") }) } diff --git a/R/tm_g_forest_rsp.R b/R/tm_g_forest_rsp.R index 9cf75300b..5bc5ce48a 100644 --- a/R/tm_g_forest_rsp.R +++ b/R/tm_g_forest_rsp.R @@ -732,9 +732,8 @@ srv_g_forest_rsp <- function(id, plot_r <- reactive(all_q()[["p"]]) - plot_id <- "myplot" pws <- teal.widgets::plot_with_settings_srv( - id = plot_id, + id = "myplot", plot_r = plot_r, height = plot_height, width = plot_width @@ -767,6 +766,6 @@ srv_g_forest_rsp <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input, plot_id) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical", excluded_patterns = "_width$") }) } diff --git a/R/tm_g_forest_tte.R b/R/tm_g_forest_tte.R index e817fda0c..709720c0e 100644 --- a/R/tm_g_forest_tte.R +++ b/R/tm_g_forest_tte.R @@ -657,9 +657,8 @@ srv_g_forest_tte <- function(id, # Outputs to render. plot_r <- reactive(all_q()[["p"]]) - plot_id <- "myplot" pws <- teal.widgets::plot_with_settings_srv( - id = plot_id, + id = "myplot", plot_r = plot_r, height = plot_height, width = plot_width @@ -692,6 +691,6 @@ srv_g_forest_tte <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input, plot_id) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical", excluded_patterns = "_width$") }) } diff --git a/R/tm_g_ipp.R b/R/tm_g_ipp.R index 6851c8986..a8b4eca65 100644 --- a/R/tm_g_ipp.R +++ b/R/tm_g_ipp.R @@ -609,9 +609,8 @@ srv_g_ipp <- function(id, plot_r <- reactive(all_q()[["plot"]]) # Insert the plot into a plot with settings module from teal.widgets - plot_id <- "myplot" pws <- teal.widgets::plot_with_settings_srv( - id = plot_id, + id = "myplot", plot_r = plot_r, height = plot_height, width = plot_width @@ -644,6 +643,6 @@ srv_g_ipp <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input, plot_id) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical", excluded_patterns = "_width$") }) } diff --git a/R/tm_g_km.R b/R/tm_g_km.R index 87d396461..2d3317a87 100644 --- a/R/tm_g_km.R +++ b/R/tm_g_km.R @@ -806,9 +806,8 @@ srv_g_km <- function(id, plot_r <- reactive(all_q()[["plot"]]) # Insert the plot into a plot with settings module from teal.widgets - plot_id <- "myplot" pws <- teal.widgets::plot_with_settings_srv( - id = plot_id, + id = "myplot", plot_r = plot_r, height = plot_height, width = plot_width @@ -842,6 +841,6 @@ srv_g_km <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input, plot_id) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical", excluded_patterns = "_width$") }) } diff --git a/R/tm_g_lineplot.R b/R/tm_g_lineplot.R index c6004c296..73f73cd75 100644 --- a/R/tm_g_lineplot.R +++ b/R/tm_g_lineplot.R @@ -626,9 +626,8 @@ srv_g_lineplot <- function(id, plot_r <- reactive(all_q()[["plot"]]) # Insert the plot into a plot with settings module from teal.widgets - plot_id <- "myplot" pws <- teal.widgets::plot_with_settings_srv( - id = plot_id, + id = "myplot", plot_r = plot_r, height = plot_height, width = plot_width @@ -661,6 +660,6 @@ srv_g_lineplot <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input, plot_id) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical", excluded_patterns = "_width$") }) } diff --git a/R/tm_g_pp_adverse_events.R b/R/tm_g_pp_adverse_events.R index c5908eb9e..db897e5fd 100644 --- a/R/tm_g_pp_adverse_events.R +++ b/R/tm_g_pp_adverse_events.R @@ -563,9 +563,8 @@ srv_g_adverse_events <- function(id, all_q()[["plot"]] }) - plot_id <- "chart" pws <- teal.widgets::plot_with_settings_srv( - id = plot_id, + id = "chart", plot_r = plot_r, height = plot_height, width = plot_width @@ -600,6 +599,6 @@ srv_g_adverse_events <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input, plot_id) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical", excluded_patterns = "_width$") }) } diff --git a/R/tm_g_pp_patient_timeline.R b/R/tm_g_pp_patient_timeline.R index 30d5d6b49..83e07d5c5 100644 --- a/R/tm_g_pp_patient_timeline.R +++ b/R/tm_g_pp_patient_timeline.R @@ -904,9 +904,8 @@ srv_g_patient_timeline <- function(id, plot_r <- reactive(all_q()[["patient_timeline_plot"]]) - plot_id <- "patient_timeline_plot" pws <- teal.widgets::plot_with_settings_srv( - id = plot_id, + id = "patient_timeline_plot", plot_r = plot_r, height = plot_height, width = plot_width @@ -939,6 +938,6 @@ srv_g_patient_timeline <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input, plot_id) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical", excluded_patterns = "_width$") }) } diff --git a/R/tm_g_pp_therapy.R b/R/tm_g_pp_therapy.R index aaaa01d27..618a29342 100644 --- a/R/tm_g_pp_therapy.R +++ b/R/tm_g_pp_therapy.R @@ -683,9 +683,8 @@ srv_g_therapy <- function(id, all_q()[["therapy_plot"]] }) - plot_id <- "therapy_plot" pws <- teal.widgets::plot_with_settings_srv( - id = plot_id, + id = "therapy_plot", plot_r = plot_r, height = plot_height, width = plot_width @@ -720,6 +719,6 @@ srv_g_therapy <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input, plot_id) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical", excluded_patterns = "_width$") }) } diff --git a/R/tm_g_pp_vitals.R b/R/tm_g_pp_vitals.R index 2d285f91b..6fbb1d582 100644 --- a/R/tm_g_pp_vitals.R +++ b/R/tm_g_pp_vitals.R @@ -549,9 +549,8 @@ srv_g_vitals <- function(id, plot_r <- reactive(all_q()[["result_plot"]]) - plot_id <- "vitals_plot" pws <- teal.widgets::plot_with_settings_srv( - id = plot_id, + id = "vitals_plot", plot_r = plot_r, height = plot_height, width = plot_width @@ -584,6 +583,6 @@ srv_g_vitals <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input, plot_id) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical", excluded_patterns = "_width$") }) } diff --git a/R/tm_t_abnormality.R b/R/tm_t_abnormality.R index 77a0dd4ff..0b4bb668a 100644 --- a/R/tm_t_abnormality.R +++ b/R/tm_t_abnormality.R @@ -675,6 +675,6 @@ srv_t_abnormality <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_abnormality_by_worst_grade.R b/R/tm_t_abnormality_by_worst_grade.R index aad2dd737..0e60120e7 100644 --- a/R/tm_t_abnormality_by_worst_grade.R +++ b/R/tm_t_abnormality_by_worst_grade.R @@ -695,6 +695,6 @@ srv_t_abnormality_by_worst_grade <- function(id, # nolint: object_length. teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_ancova.R b/R/tm_t_ancova.R index cea30a309..027318825 100644 --- a/R/tm_t_ancova.R +++ b/R/tm_t_ancova.R @@ -974,6 +974,6 @@ srv_ancova <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_binary_outcome.R b/R/tm_t_binary_outcome.R index aa6823282..6a7d1d441 100644 --- a/R/tm_t_binary_outcome.R +++ b/R/tm_t_binary_outcome.R @@ -1031,6 +1031,6 @@ srv_t_binary_outcome <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_coxreg.R b/R/tm_t_coxreg.R index 59904c3e4..7c1ec7e1c 100644 --- a/R/tm_t_coxreg.R +++ b/R/tm_t_coxreg.R @@ -1102,6 +1102,6 @@ srv_t_coxreg <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_events.R b/R/tm_t_events.R index a3521ca0a..61382f64d 100644 --- a/R/tm_t_events.R +++ b/R/tm_t_events.R @@ -840,6 +840,6 @@ srv_t_events_byterm <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_events_by_grade.R b/R/tm_t_events_by_grade.R index 059626c37..79375116d 100644 --- a/R/tm_t_events_by_grade.R +++ b/R/tm_t_events_by_grade.R @@ -1236,6 +1236,6 @@ srv_t_events_by_grade <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_events_patyear.R b/R/tm_t_events_patyear.R index 647c1c075..962cedaf4 100644 --- a/R/tm_t_events_patyear.R +++ b/R/tm_t_events_patyear.R @@ -585,6 +585,6 @@ srv_events_patyear <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_events_summary.R b/R/tm_t_events_summary.R index a536a71e1..eb4cf7467 100644 --- a/R/tm_t_events_summary.R +++ b/R/tm_t_events_summary.R @@ -998,6 +998,6 @@ srv_t_events_summary <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_exposure.R b/R/tm_t_exposure.R index 068d44286..174c67d62 100644 --- a/R/tm_t_exposure.R +++ b/R/tm_t_exposure.R @@ -667,6 +667,6 @@ srv_t_exposure <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_logistic.R b/R/tm_t_logistic.R index 3ff6c6765..59824387a 100644 --- a/R/tm_t_logistic.R +++ b/R/tm_t_logistic.R @@ -725,6 +725,6 @@ srv_t_logistic <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_mult_events.R b/R/tm_t_mult_events.R index df443cf6a..9d598586c 100644 --- a/R/tm_t_mult_events.R +++ b/R/tm_t_mult_events.R @@ -622,6 +622,6 @@ srv_t_mult_events_byterm <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_pp_basic_info.R b/R/tm_t_pp_basic_info.R index d828ce232..65466d971 100644 --- a/R/tm_t_pp_basic_info.R +++ b/R/tm_t_pp_basic_info.R @@ -296,6 +296,6 @@ srv_t_basic_info <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_pp_laboratory.R b/R/tm_t_pp_laboratory.R index 9af9d6073..06778c62e 100644 --- a/R/tm_t_pp_laboratory.R +++ b/R/tm_t_pp_laboratory.R @@ -530,6 +530,6 @@ srv_g_laboratory <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_pp_medical_history.R b/R/tm_t_pp_medical_history.R index e9cf45220..47d1757ed 100644 --- a/R/tm_t_pp_medical_history.R +++ b/R/tm_t_pp_medical_history.R @@ -363,6 +363,6 @@ srv_t_medical_history <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_pp_prior_medication.R b/R/tm_t_pp_prior_medication.R index 1760e3e8a..7ffee57a4 100644 --- a/R/tm_t_pp_prior_medication.R +++ b/R/tm_t_pp_prior_medication.R @@ -363,6 +363,6 @@ srv_t_prior_medication <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_shift_by_arm.R b/R/tm_t_shift_by_arm.R index fd1451b6f..2995b27c2 100644 --- a/R/tm_t_shift_by_arm.R +++ b/R/tm_t_shift_by_arm.R @@ -591,6 +591,6 @@ srv_shift_by_arm <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_shift_by_arm_by_worst.R b/R/tm_t_shift_by_arm_by_worst.R index 788bdf747..482a206ab 100644 --- a/R/tm_t_shift_by_arm_by_worst.R +++ b/R/tm_t_shift_by_arm_by_worst.R @@ -626,6 +626,6 @@ srv_shift_by_arm_by_worst <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_shift_by_grade.R b/R/tm_t_shift_by_grade.R index 171a0d957..a4de40300 100644 --- a/R/tm_t_shift_by_grade.R +++ b/R/tm_t_shift_by_grade.R @@ -896,6 +896,6 @@ srv_t_shift_by_grade <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_smq.R b/R/tm_t_smq.R index b152d82ea..e59f42565 100644 --- a/R/tm_t_smq.R +++ b/R/tm_t_smq.R @@ -674,6 +674,6 @@ srv_t_smq <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_summary.R b/R/tm_t_summary.R index 5881a1aa3..c6ac4f1a1 100644 --- a/R/tm_t_summary.R +++ b/R/tm_t_summary.R @@ -565,6 +565,6 @@ srv_summary <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_summary_by.R b/R/tm_t_summary_by.R index 9aae948ba..c9292cb36 100644 --- a/R/tm_t_summary_by.R +++ b/R/tm_t_summary_by.R @@ -745,6 +745,6 @@ srv_summary_by <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/tm_t_tte.R b/R/tm_t_tte.R index 3f1f37be3..fc1379e49 100644 --- a/R/tm_t_tte.R +++ b/R/tm_t_tte.R @@ -972,6 +972,6 @@ srv_t_tte <- function(id, teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun) } ### - track_shiny_input_changes(input) + log_shiny_input_changes(input, level = logger::TRACE, namespace = "teal.modules.clinical") }) } diff --git a/R/utils.R b/R/utils.R index 136e2f9b9..b66b86b1c 100644 --- a/R/utils.R +++ b/R/utils.R @@ -947,11 +947,3 @@ set_default_total_label <- function(total_label) { # for mocking in tests interactive <- NULL -track_shiny_input_changes <- function(input) { - teal.logger::log_shiny_input_changes( - input, - level = logger::TRACE, - namespace = "teal.modules.clinical", - excluded_patterns = "_width$" - ) -} diff --git a/R/zzz.R b/R/zzz.R index b816ce416..f99be0e91 100644 --- a/R/zzz.R +++ b/R/zzz.R @@ -3,3 +3,5 @@ teal.logger::register_handlers("teal.modules.clinical") tern::set_default_na_str("") } + +log_shiny_input_changes <- getFromNamespace("log_shiny_input_changes", "teal.logger")