From 8c7abd3c1598599db03e0dbd0809db31e16def4b Mon Sep 17 00:00:00 2001 From: m7pr Date: Thu, 13 Jun 2024 13:15:01 +0200 Subject: [PATCH] bring back input --- R/tm_a_gee.R | 2 +- R/tm_a_mmrm.R | 2 +- R/tm_g_barchart_simple.R | 2 +- R/tm_g_ci.R | 2 +- R/tm_g_forest_rsp.R | 2 +- R/tm_g_forest_tte.R | 2 +- R/tm_g_ipp.R | 2 +- R/tm_g_km.R | 2 +- R/tm_g_lineplot.R | 2 +- R/tm_g_pp_adverse_events.R | 2 +- R/tm_g_pp_patient_timeline.R | 2 +- R/tm_g_pp_therapy.R | 2 +- R/tm_g_pp_vitals.R | 2 +- R/tm_t_abnormality.R | 2 +- R/tm_t_abnormality_by_worst_grade.R | 2 +- R/tm_t_ancova.R | 2 +- R/tm_t_binary_outcome.R | 2 +- R/tm_t_coxreg.R | 2 +- R/tm_t_events.R | 2 +- R/tm_t_events_by_grade.R | 2 +- R/tm_t_events_patyear.R | 2 +- R/tm_t_events_summary.R | 2 +- R/tm_t_exposure.R | 2 +- R/tm_t_logistic.R | 2 +- R/tm_t_mult_events.R | 2 +- R/tm_t_pp_basic_info.R | 2 +- R/tm_t_pp_laboratory.R | 2 +- R/tm_t_pp_medical_history.R | 2 +- R/tm_t_pp_prior_medication.R | 2 +- R/tm_t_shift_by_arm.R | 2 +- R/tm_t_shift_by_arm_by_worst.R | 2 +- R/tm_t_shift_by_grade.R | 2 +- R/tm_t_smq.R | 2 +- R/tm_t_summary.R | 2 +- R/tm_t_summary_by.R | 2 +- R/tm_t_tte.R | 2 +- 36 files changed, 36 insertions(+), 36 deletions(-) diff --git a/R/tm_a_gee.R b/R/tm_a_gee.R index 69db5a35f..422bc63ac 100644 --- 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 index f7be70412..d0eb997e0 100644 --- 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 index df1c4fa13..2870cf14d 100644 --- 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 index a45407a98..ea430eeed 100644 --- 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 index 0d2f796a2..7ad7a04f4 100644 --- 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 index 22406112e..6b2e65ccd 100644 --- 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 index 7c5183b42..39be3826d 100644 --- 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 index 5a9543b1f..e3de867fe 100644 --- 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 index 5f18715eb..50593b6c2 100644 --- 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 index dc2eff72a..8488a0dee 100644 --- 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 index 2c5e0477d..5a4171463 100644 --- 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 index cfad0a047..738f9b313 100644 --- 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 index 0d4289953..a523e1b24 100644 --- 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 index 6f7521d17..45f7711b8 100644 --- 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 index 9e6c8d698..447c6b5de 100644 --- 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 index d054a4fa9..1e183c6c2 100644 --- 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 index 5c1ea3592..6c60cec7a 100644 --- 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 index 29efd6dba..ab54002f1 100644 --- 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 index cd35e0eac..e72d81bd6 100644 --- 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 index 49d4944aa..1f745d0c1 100644 --- 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 index d744ff346..8444cf505 100644 --- 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 index c18330dab..a71d9cbbe 100644 --- 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 index 35ebc26cf..86ecc7f67 100644 --- 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 index eba9e73f9..cfb543f68 100644 --- 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 index 474fa5271..049e7a3e9 100644 --- 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 index ae0b7e662..7958e13c9 100644 --- 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 index 6e6acced8..6d84240a7 100644 --- 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 index 8e52f9def..b254f6f85 100644 --- 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 index 90d28ccde..5bb061a0e 100644 --- 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 index f8f66e4e9..e6043b716 100644 --- 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 index 5d08680a3..c3240de4a 100644 --- 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 index d4ecbe17e..cac393db6 100644 --- 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 index ebba6825d..2b9c96db7 100644 --- 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 index 2f4faf74e..21264d227 100644 --- 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 index 18871af83..c40a47d8d 100644 --- 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 index 955fccb1d..cc7723abc 100644 --- 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(