bring back input

insightsengineering · Jun 13, 2024 · 8c7abd3 · 8c7abd3
1 parent 40a1115
commit 8c7abd3
Show file tree

Hide file tree

Showing 36 changed files with 36 additions and 36 deletions.
diff --git a/R/tm_a_gee.R b/R/tm_a_gee.R
@@ -389,7 +389,7 @@ srv_gee <- function(id,
   checkmate::assert_class(isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     ## split_covariates ----
     observeEvent(input[[extract_input("cov_var", dataname)]],
       ignoreNULL = FALSE,

diff --git a/R/tm_a_mmrm.R b/R/tm_a_mmrm.R
@@ -845,7 +845,7 @@ srv_mmrm <- function(id,
   checkmate::assert_class(isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     # Reactive responsible for sending a disable/enable signal
     # to show R code and debug info buttons
     disable_r_code <- reactiveVal(FALSE)

diff --git a/R/tm_g_barchart_simple.R b/R/tm_g_barchart_simple.R
@@ -340,7 +340,7 @@ srv_g_barchart_simple <- function(id,
 
   moduleServer(id, function(input, output, session) {
 
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     rule_dupl <- function(others) {
       function(value) {
         othervals <- lapply(

diff --git a/R/tm_g_ci.R b/R/tm_g_ci.R
@@ -382,7 +382,7 @@ srv_g_ci <- function(id,
   checkmate::assert_class(isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     selector_list <- teal.transform::data_extract_multiple_srv(
       data_extract = list(x_var = x_var, y_var = y_var, color = color),
       datasets = data,

diff --git a/R/tm_g_forest_rsp.R b/R/tm_g_forest_rsp.R
@@ -508,7 +508,7 @@ srv_g_forest_rsp <- function(id,
   checkmate::assert_class(isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     # Setup arm variable selection, default reference arms, and default
     # comparison arms for encoding panel
     iv_arm_ref <- arm_ref_comp_observer(

diff --git a/R/tm_g_forest_tte.R b/R/tm_g_forest_tte.R
@@ -502,7 +502,7 @@ srv_g_forest_tte <- function(id,
   checkmate::assert_class(isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     # Setup arm variable selection, default reference arms, and default
     # comparison arms for encoding panel
     iv_arm_ref <- arm_ref_comp_observer(

diff --git a/R/tm_g_ipp.R b/R/tm_g_ipp.R
@@ -482,7 +482,7 @@ srv_g_ipp <- function(id,
   checkmate::assert_class(isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     selector_list <- teal.transform::data_extract_multiple_srv(
       datasets = data,
       data_extract = list(

diff --git a/R/tm_g_km.R b/R/tm_g_km.R
@@ -637,7 +637,7 @@ srv_g_km <- function(id,
   checkmate::assert_class(isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     # Setup arm variable selection, default reference arms and default
     # comparison arms for encoding panel
     iv_arm_ref <- arm_ref_comp_observer(

diff --git a/R/tm_g_lineplot.R b/R/tm_g_lineplot.R
@@ -516,7 +516,7 @@ srv_g_lineplot <- function(id,
   checkmate::assert_class(isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     selector_list <- teal.transform::data_extract_multiple_srv(
       data_extract = list(x = x, y = y, strata = strata, paramcd = paramcd, y_unit = y_unit, param = param),
       datasets = data,

diff --git a/R/tm_g_pp_adverse_events.R b/R/tm_g_pp_adverse_events.R
@@ -442,7 +442,7 @@ srv_g_adverse_events <- function(id,
   checkmate::assert_class(isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     patient_id <- reactive(input$patient_id)
 
     # Init

diff --git a/R/tm_g_pp_patient_timeline.R b/R/tm_g_pp_patient_timeline.R
@@ -713,7 +713,7 @@ srv_g_patient_timeline <- function(id,
   checkmate::assert_class(isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     patient_id <- reactive(input$patient_id)
 
     # Init

diff --git a/R/tm_g_pp_therapy.R b/R/tm_g_pp_therapy.R
@@ -557,7 +557,7 @@ srv_g_therapy <- function(id,
   checkmate::assert_class(isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     patient_id <- reactive(input$patient_id)
 
     # Init

diff --git a/R/tm_g_pp_vitals.R b/R/tm_g_pp_vitals.R
@@ -411,7 +411,7 @@ srv_g_vitals <- function(id,
   checkmate::assert_class(isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     patient_id <- reactive(input$patient_id)
 
     # Init

diff --git a/R/tm_t_abnormality.R b/R/tm_t_abnormality.R
@@ -505,7 +505,7 @@ srv_t_abnormality <- function(id,
   checkmate::assert_class(isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     selector_list <- teal.transform::data_extract_multiple_srv(
       data_extract = list(
         arm_var = arm_var,

diff --git a/R/tm_t_abnormality_by_worst_grade.R b/R/tm_t_abnormality_by_worst_grade.R
@@ -503,7 +503,7 @@ srv_t_abnormality_by_worst_grade <- function(id, # nolint: object_length.
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     isolate({
       resolved <- teal.transform::resolve_delayed(worst_flag_indicator, as.list(data()@env))
       teal.widgets::updateOptionalSelectInput(

diff --git a/R/tm_t_ancova.R b/R/tm_t_ancova.R
@@ -696,7 +696,7 @@ srv_ancova <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     # Setup arm variable selection, default reference arms, and default
     # comparison arms for encoding panel.
     iv_arco <- arm_ref_comp_observer(

diff --git a/R/tm_t_binary_outcome.R b/R/tm_t_binary_outcome.R
@@ -752,7 +752,7 @@ srv_t_binary_outcome <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     # Setup arm variable selection, default reference arms, and default
     # comparison arms for encoding panel
     iv_arm_ref <- arm_ref_comp_observer(

diff --git a/R/tm_t_coxreg.R b/R/tm_t_coxreg.R
@@ -716,7 +716,7 @@ srv_t_coxreg <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     # Observer to update reference and comparison arm input options.
     iv_arm_ref <- arm_ref_comp_observer(
       session,

diff --git a/R/tm_t_events.R b/R/tm_t_events.R
@@ -677,7 +677,7 @@ srv_t_events_byterm <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     selector_list <- teal.transform::data_extract_multiple_srv(
       data_extract = list(arm_var = arm_var, hlt = hlt, llt = llt),
       datasets = data,

diff --git a/R/tm_t_events_by_grade.R b/R/tm_t_events_by_grade.R
@@ -1021,7 +1021,7 @@ srv_t_events_by_grade <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     selector_list <- teal.transform::data_extract_multiple_srv(
       data_extract = list(arm_var = arm_var, hlt = hlt, llt = llt, grade = grade),
       datasets = data,

diff --git a/R/tm_t_events_patyear.R b/R/tm_t_events_patyear.R
@@ -401,7 +401,7 @@ srv_events_patyear <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     observeEvent(anl_q(), {
       data_anl <- merged$anl_q()[["ANL"]]
       aval_unit_var <- merged$anl_input_r()$columns_source$avalu_var

diff --git a/R/tm_t_events_summary.R b/R/tm_t_events_summary.R
@@ -809,7 +809,7 @@ srv_t_events_summary <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     data_extract_vars <- list(
       arm_var = arm_var, dthfl_var = dthfl_var, dcsreas_var = dcsreas_var,
       aeseq_var = aeseq_var, llt = llt

diff --git a/R/tm_t_exposure.R b/R/tm_t_exposure.R
@@ -489,7 +489,7 @@ srv_t_exposure <- function(id,
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     rule_intersection <- function(other) {
       function(value) {
         others <- selector_list()[[other]]()$select

diff --git a/R/tm_t_logistic.R b/R/tm_t_logistic.R
@@ -450,7 +450,7 @@ srv_t_logistic <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     # Observer to update reference and comparison arm input options.
     iv_arco <- arm_ref_comp_observer(
       session,

diff --git a/R/tm_t_mult_events.R b/R/tm_t_mult_events.R
@@ -479,7 +479,7 @@ srv_t_mult_events_byterm <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     selector_list <- teal.transform::data_extract_multiple_srv(
       data_extract = list(
         arm_var = arm_var,

diff --git a/R/tm_t_pp_basic_info.R b/R/tm_t_pp_basic_info.R
@@ -180,7 +180,7 @@ srv_t_basic_info <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     patient_id <- reactive(input$patient_id)
 
     # Init

diff --git a/R/tm_t_pp_laboratory.R b/R/tm_t_pp_laboratory.R
@@ -376,7 +376,7 @@ srv_g_laboratory <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     patient_id <- reactive(input$patient_id)
 
     # Init

diff --git a/R/tm_t_pp_medical_history.R b/R/tm_t_pp_medical_history.R
@@ -244,7 +244,7 @@ srv_t_medical_history <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     patient_id <- reactive(input$patient_id)
 
     # Init

diff --git a/R/tm_t_pp_prior_medication.R b/R/tm_t_pp_prior_medication.R
@@ -242,7 +242,7 @@ srv_t_prior_medication <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     patient_id <- reactive(input$patient_id)
 
     selector_list <- teal.transform::data_extract_multiple_srv(

diff --git a/R/tm_t_shift_by_arm.R b/R/tm_t_shift_by_arm.R
@@ -436,7 +436,7 @@ srv_shift_by_arm <- function(id,
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     selector_list <- teal.transform::data_extract_multiple_srv(
       data_extract = list(
         arm_var = arm_var,

diff --git a/R/tm_t_shift_by_arm_by_worst.R b/R/tm_t_shift_by_arm_by_worst.R
@@ -456,7 +456,7 @@ srv_shift_by_arm_by_worst <- function(id,
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     selector_list <- teal.transform::data_extract_multiple_srv(
       data_extract = list(
         arm_var = arm_var,

diff --git a/R/tm_t_shift_by_grade.R b/R/tm_t_shift_by_grade.R
@@ -754,7 +754,7 @@ srv_t_shift_by_grade <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     selector_list <- teal.transform::data_extract_multiple_srv(
       data_extract = list(
         arm_var = arm_var,

diff --git a/R/tm_t_smq.R b/R/tm_t_smq.R
@@ -543,7 +543,7 @@ srv_t_smq <- function(id,
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     selector_list <- teal.transform::data_extract_multiple_srv(
       data_extract = list(
         scopes = scopes,

diff --git a/R/tm_t_summary.R b/R/tm_t_summary.R
@@ -404,7 +404,7 @@ srv_summary <- function(id,
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     selector_list <- teal.transform::data_extract_multiple_srv(
       data_extract = list(arm_var = arm_var, summarize_vars = summarize_vars),
       datasets = data,

diff --git a/R/tm_t_summary_by.R b/R/tm_t_summary_by.R
@@ -598,7 +598,7 @@ srv_summary_by <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     vars <- list(arm_var = arm_var, id_var = id_var, summarize_vars = summarize_vars, by_vars = by_vars)
 
     if (!is.null(paramcd)) {

diff --git a/R/tm_t_tte.R b/R/tm_t_tte.R
@@ -754,7 +754,7 @@ srv_t_tte <- function(id,
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
-    tmc_track_shiny_input_changes()
+    tmc_track_shiny_input_changes(input)
     # Setup arm variable selection, default reference arms, and default
     # comparison arms for encoding panel
     iv_arm_ref <- arm_ref_comp_observer(