use log_shiny_input_changes from teal.logger

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")
   })
 }

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")
   })
 }

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$")
   })
 }
 

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$")
   })
 }

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$")
   })
 }

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$")
   })
 }

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$")
   })
 }

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$")
   })
 }

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$")
   })
 }

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$")
   })
 }

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$")
   })
 }

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$")
   })
 }

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$")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }

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")
   })
 }