Skip to content

Commit

Permalink
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
fix: adds missing parameter
Browse files Browse the repository at this point in the history
averissimo committed Sep 28, 2023
1 parent 163a7e6 commit 9255f11
Showing 36 changed files with 72 additions and 36 deletions.
3 changes: 2 additions & 1 deletion R/tm_a_gee.R
Original file line number Diff line number Diff line change
@@ -554,7 +554,8 @@ srv_gee <- function(id,
title = "Generalized Estimating Equations (GEE) Analysis Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
table_type <- switch(input$output_table,
"t_gee_cov" = "Residual Covariance Matrix Estimate",
3 changes: 2 additions & 1 deletion R/tm_a_mmrm.R
Original file line number Diff line number Diff line change
@@ -1440,7 +1440,8 @@ srv_mmrm <- function(id,
"Mixed Models procedure analyzes results from repeated measures designs",
"in which the outcome is continuous and measured at fixed time points"
),
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
if (!is.null(table_r())) {
card$append_text("Table", "header3")
3 changes: 2 additions & 1 deletion R/tm_g_barchart_simple.R
Original file line number Diff line number Diff line change
@@ -543,7 +543,8 @@ srv_g_barchart_simple <- function(id,
title = "Barchart Plot",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Plot", "header3")
card$append_plot(plot_r(), dim = pws$dim())
3 changes: 2 additions & 1 deletion R/tm_g_ci.R
Original file line number Diff line number Diff line change
@@ -488,7 +488,8 @@ srv_g_ci <- function(id, # nolint
title = "CI Plot",
label = label,
description = "Confidence Interval Plot",
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Plot", "header3")
card$append_plot(plot_r(), dim = pws$dim())
3 changes: 2 additions & 1 deletion R/tm_g_forest_rsp.R
Original file line number Diff line number Diff line change
@@ -723,7 +723,8 @@ srv_g_forest_rsp <- function(id,
title = "Forest Response Plot",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Plot", "header3")
card$append_plot(plot_r(), dim = pws$dim())
3 changes: 2 additions & 1 deletion R/tm_g_forest_tte.R
Original file line number Diff line number Diff line change
@@ -657,7 +657,8 @@ srv_g_forest_tte <- function(id,
title = "Forest Survival Plot",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Plot", "header3")
card$append_plot(plot_r(), dim = pws$dim())
3 changes: 2 additions & 1 deletion R/tm_g_ipp.R
Original file line number Diff line number Diff line change
@@ -616,7 +616,8 @@ srv_g_ipp <- function(id,
title = "Individual Patient Plot",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Plot", "header3")
card$append_plot(plot_r(), dim = pws$dim())
3 changes: 2 additions & 1 deletion R/tm_g_km.R
Original file line number Diff line number Diff line change
@@ -778,7 +778,8 @@ srv_g_km <- function(id,
title = "Kaplan Meier Plot",
label = label,
description = "Non-parametric method used to estimate the survival function from lifetime data",
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Plot", "header3")
card$append_plot(plot_r(), dim = pws$dim())
3 changes: 2 additions & 1 deletion R/tm_g_lineplot.R
Original file line number Diff line number Diff line change
@@ -653,7 +653,8 @@ srv_g_lineplot <- function(id,
title = "Line Plot",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Plot", "header3")
card$append_plot(plot_r(), dim = pws$dim())
3 changes: 2 additions & 1 deletion R/tm_g_pp_adverse_events.R
Original file line number Diff line number Diff line change
@@ -563,7 +563,8 @@ srv_g_adverse_events <- function(id,
title = "Patient Profile Adverse Events Plot",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Plot", "header3")
card$append_plot(plot_r(), dim = pws$dim())
3 changes: 2 additions & 1 deletion R/tm_g_pp_patient_timeline.R
Original file line number Diff line number Diff line change
@@ -899,7 +899,8 @@ srv_g_patient_timeline <- function(id,
title = "Patient Profile Timeline Plot",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Plot", "header3")
card$append_plot(plot_r(), dim = pws$dim())
3 changes: 2 additions & 1 deletion R/tm_g_pp_therapy.R
Original file line number Diff line number Diff line change
@@ -687,7 +687,8 @@ srv_g_therapy <- function(id,
title = "Patient Profile Therapy Plot",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Plot", "header3")
card$append_plot(plot_r(), dim = pws$dim())
3 changes: 2 additions & 1 deletion R/tm_g_pp_vitals.R
Original file line number Diff line number Diff line change
@@ -533,7 +533,8 @@ srv_g_vitals <- function(id,
title = "Patient Profile Vitals Plot",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Plot", "header3")
card$append_plot(plot_r(), dim = pws$dim())
3 changes: 2 additions & 1 deletion R/tm_t_abnormality.R
Original file line number Diff line number Diff line change
@@ -652,7 +652,8 @@ srv_t_abnormality <- function(id,
title = "Abnormality Summary Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_abnormality_by_worst_grade.R
Original file line number Diff line number Diff line change
@@ -669,7 +669,8 @@ srv_t_abnormality_by_worst_grade <- function(id, # nolint
title = "Laboratory Test Results Table",
label = label,
description = "Laboratory test results with highest grade post-baseline Table",
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_ancova.R
Original file line number Diff line number Diff line change
@@ -950,7 +950,8 @@ srv_ancova <- function(id,
title = "ANCOVA",
label = label,
description = "Analysis of Covariance",
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_binary_outcome.R
Original file line number Diff line number Diff line change
@@ -1013,7 +1013,8 @@ srv_t_binary_outcome <- function(id,
title = "Binary Outcome Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_coxreg.R
Original file line number Diff line number Diff line change
@@ -1051,7 +1051,8 @@ srv_t_coxreg <- function(id,
title = "Cox Regression Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_events.R
Original file line number Diff line number Diff line change
@@ -798,7 +798,8 @@ srv_t_events_byterm <- function(id,
title = "Events by Term Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_events_by_grade.R
Original file line number Diff line number Diff line change
@@ -1198,7 +1198,8 @@ srv_t_events_by_grade <- function(id,
title = "Events by Grade Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_events_patyear.R
Original file line number Diff line number Diff line change
@@ -560,7 +560,8 @@ srv_events_patyear <- function(id,
title = "Event Rates Adjusted For Patient-Years Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_events_summary.R
Original file line number Diff line number Diff line change
@@ -970,7 +970,8 @@ srv_t_events_summary <- function(id,
title = "Adverse Events Summary Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_exposure.R
Original file line number Diff line number Diff line change
@@ -650,7 +650,8 @@ srv_t_exposure <- function(id,
title = "Exposure for Risk Management Plan Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_logistic.R
Original file line number Diff line number Diff line change
@@ -718,7 +718,8 @@ srv_t_logistic <- function(id,
title = "Logistic Regression Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_mult_events.R
Original file line number Diff line number Diff line change
@@ -596,7 +596,8 @@ srv_t_mult_events_byterm <- function(id,
title = "Multiple Events by Term Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_pp_basic_info.R
Original file line number Diff line number Diff line change
@@ -267,7 +267,8 @@ srv_t_basic_info <- function(id,
title = "Patient Profile Basic Info Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_pp_laboratory.R
Original file line number Diff line number Diff line change
@@ -440,7 +440,8 @@ srv_g_laboratory <- function(id,
title = "Patient Profile Laboratory Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r()$raw)
3 changes: 2 additions & 1 deletion R/tm_t_pp_medical_history.R
Original file line number Diff line number Diff line change
@@ -341,7 +341,8 @@ srv_t_medical_history <- function(id,
title = "Patient Medical History Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_pp_prior_medication.R
Original file line number Diff line number Diff line change
@@ -349,7 +349,8 @@ srv_t_prior_medication <- function(id,
title = "Patient Prior Medication Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_shift_by_arm.R
Original file line number Diff line number Diff line change
@@ -533,7 +533,8 @@ srv_shift_by_arm <- function(id,
title = "Shift by Arm Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_shift_by_arm_by_worst.R
Original file line number Diff line number Diff line change
@@ -571,7 +571,8 @@ srv_shift_by_arm_by_worst <- function(id,
title = "Shift by Arm by Worst Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_shift_by_grade.R
Original file line number Diff line number Diff line change
@@ -891,7 +891,8 @@ srv_t_shift_by_grade <- function(id,
title = "Grade Summary Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_smq.R
Original file line number Diff line number Diff line change
@@ -663,7 +663,8 @@ srv_t_smq <- function(id,
title = "Adverse Events Table by Standardized `MedDRA` Query (SMQ)",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_summary.R
Original file line number Diff line number Diff line change
@@ -581,7 +581,8 @@ srv_summary <- function(id,
title = "Summary Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_summary_by.R
Original file line number Diff line number Diff line change
@@ -738,7 +738,8 @@ srv_summary_by <- function(id,
title = "Summarize Variables by Row Groups Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())
3 changes: 2 additions & 1 deletion R/tm_t_tte.R
Original file line number Diff line number Diff line change
@@ -931,7 +931,8 @@ srv_t_tte <- function(id,
title = "Time To Event Table",
label = label,
description = NULL,
with_filter = with_filter
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Table", "header3")
card$append_table(table_r())

0 comments on commit 9255f11

Please sign in to comment.