From 0387af1ade11d9be1be96e405a96b1bb573cb8c5 Mon Sep 17 00:00:00 2001 From: Pawel Rucki <12943682+pawelru@users.noreply.github.com> Date: Mon, 30 Sep 2024 16:43:38 +0200 Subject: [PATCH 1/4] use of `roxy.shinylive` --- .gitignore | 2 + DESCRIPTION | 5 ++- R/tm_a_gee.R | 11 +++-- R/tm_a_mmrm.R | 11 +++-- R/tm_g_barchart_simple.R | 33 ++++++++------- R/tm_g_ci.R | 30 +++++++------- R/tm_g_forest_rsp.R | 35 ++++++++-------- R/tm_g_forest_tte.R | 30 ++++++++------ R/tm_g_ipp.R | 37 +++++++++-------- R/tm_g_km.R | 26 +++++++----- R/tm_g_lineplot.R | 27 +++++++----- R/tm_g_pp_adverse_events.R | 27 +++++++----- R/tm_g_pp_patient_timeline.R | 39 ++++++++++-------- R/tm_g_pp_therapy.R | 37 +++++++++-------- R/tm_g_pp_vitals.R | 26 +++++++----- R/tm_t_abnormality.R | 24 +++++++---- R/tm_t_abnormality_by_worst_grade.R | 29 +++++++------ R/tm_t_ancova.R | 26 +++++++----- R/tm_t_binary_outcome.R | 41 +++++++++--------- R/tm_t_coxreg.R | 37 +++++++++++------ R/tm_t_events.R | 26 +++++++----- R/tm_t_events_by_grade.R | 22 ++++++---- R/tm_t_events_patyear.R | 56 +++++++++++++------------ R/tm_t_events_summary.R | 11 +++-- R/tm_t_exposure.R | 11 +++-- R/tm_t_logistic.R | 29 +++++++------ R/tm_t_mult_events.R | 29 +++++++------ R/tm_t_pp_basic_info.R | 19 ++++++--- R/tm_t_pp_laboratory.R | 26 +++++++----- R/tm_t_pp_medical_history.R | 26 +++++++----- R/tm_t_pp_prior_medication.R | 36 ++++++++-------- R/tm_t_shift_by_arm.R | 32 +++++++++------ R/tm_t_shift_by_arm_by_worst.R | 29 ++++++++----- R/tm_t_shift_by_grade.R | 26 +++++++----- R/tm_t_smq.R | 11 +++-- R/tm_t_summary.R | 24 +++++++---- R/tm_t_summary_by.R | 26 +++++++----- R/tm_t_tte.R | 26 +++++++----- README.md | 7 ++++ inst/WORDLIST | 1 + man/tm_a_gee.Rd | 16 ++++++-- man/tm_a_mmrm.Rd | 16 ++++++-- man/tm_g_barchart_simple.Rd | 38 ++++++++++------- man/tm_g_ci.Rd | 35 +++++++++------- man/tm_g_forest_rsp.Rd | 40 ++++++++++-------- man/tm_g_forest_tte.Rd | 35 ++++++++++------ man/tm_g_ipp.Rd | 42 +++++++++++-------- man/tm_g_km.Rd | 31 +++++++++----- man/tm_g_lineplot.Rd | 32 ++++++++++----- man/tm_g_pp_adverse_events.Rd | 32 ++++++++++----- man/tm_g_pp_patient_timeline.Rd | 44 ++++++++++++-------- man/tm_g_pp_therapy.Rd | 41 ++++++++++-------- man/tm_g_pp_vitals.Rd | 31 +++++++++----- man/tm_t_abnormality.Rd | 29 +++++++++---- man/tm_t_abnormality_by_worst_grade.Rd | 34 +++++++++------ man/tm_t_ancova.Rd | 31 +++++++++----- man/tm_t_binary_outcome.Rd | 46 ++++++++++++--------- man/tm_t_coxreg.Rd | 41 ++++++++++++------ man/tm_t_events.Rd | 31 +++++++++----- man/tm_t_events_by_grade.Rd | 26 ++++++++---- man/tm_t_events_patyear.Rd | 57 ++++++++++++++------------ man/tm_t_events_summary.Rd | 16 ++++++-- man/tm_t_exposure.Rd | 16 ++++++-- man/tm_t_logistic.Rd | 34 +++++++++------ man/tm_t_mult_events.Rd | 33 ++++++++------- man/tm_t_pp_basic_info.Rd | 24 ++++++++--- man/tm_t_pp_laboratory.Rd | 31 +++++++++----- man/tm_t_pp_medical_history.Rd | 31 +++++++++----- man/tm_t_pp_prior_medication.Rd | 41 ++++++++++-------- man/tm_t_shift_by_arm.Rd | 37 +++++++++++------ man/tm_t_shift_by_arm_by_worst.Rd | 34 ++++++++++----- man/tm_t_shift_by_grade.Rd | 31 +++++++++----- man/tm_t_smq.Rd | 16 ++++++-- man/tm_t_summary.Rd | 29 +++++++++---- man/tm_t_summary_by.Rd | 31 +++++++++----- man/tm_t_tte.Rd | 31 +++++++++----- staged_dependencies.yaml | 3 ++ vignettes/teal-modules-clinical.Rmd | 23 ++++++++++- 78 files changed, 1387 insertions(+), 808 deletions(-) diff --git a/.gitignore b/.gitignore index fb00dbe32..1657ceda4 100644 --- a/.gitignore +++ b/.gitignore @@ -29,3 +29,5 @@ vignettes/*.R coverage.* tests/testthat/_snaps/**/*.new.md tests/testthat/_snaps/**/*.new.svg +/doc/ +/Meta/ diff --git a/DESCRIPTION b/DESCRIPTION index 1715f3bcf..2f855edfd 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -71,6 +71,7 @@ Suggests: lubridate (>= 1.7.9), nestcolor (>= 0.1.0), pkgload, + roxy.shinylive, rvest, shinytest2, styler, @@ -90,12 +91,12 @@ Config/Needs/verdepcheck: insightsengineering/teal, insightsengineering/teal.widgets, insightsengineering/tern.gee, insightsengineering/tern.mmrm, shosaco/vistime, tidyverse/forcats, yihui/knitr, tidyverse/lubridate, insightsengineering/nestcolor, - r-lib/pkgload, tidyverse/rvest, rstudio/shinytest2, r-lib/styler, + r-lib/pkgload, insightsengineering/roxy.shinylive, tidyverse/rvest, rstudio/shinytest2, r-lib/styler, r-lib/testthat, r-lib/withr Config/Needs/website: insightsengineering/nesttemplate Config/testthat/edition: 3 Encoding: UTF-8 Language: en-US LazyData: true -Roxygen: list(markdown = TRUE) +Roxygen: list(markdown = TRUE, packages = c("roxy.shinylive")) RoxygenNote: 7.3.2 diff --git a/R/tm_a_gee.R b/R/tm_a_gee.R index c72ab4a77..fdbda9a45 100644 --- a/R/tm_a_gee.R +++ b/R/tm_a_gee.R @@ -135,8 +135,14 @@ template_a_gee <- function(output_table, #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(dplyr) +#' #' data <- teal_data() #' data <- within(data, { #' ADSL <- tmc_ex_adsl @@ -152,9 +158,8 @@ template_a_gee <- function(output_table, #' ) %>% #' droplevels() #' }) -#' datanames <- c("ADSL", "ADQS") -#' datanames(data) <- datanames -#' join_keys(data) <- default_cdisc_join_keys[datanames] +#' datanames(data) <- c("ADSL", "ADQS") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] #' #' app <- init( #' data = data, diff --git a/R/tm_a_mmrm.R b/R/tm_a_mmrm.R index f26023236..51ae98e9d 100644 --- a/R/tm_a_mmrm.R +++ b/R/tm_a_mmrm.R @@ -462,8 +462,14 @@ template_mmrm_plots <- function(fit_name, #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(dplyr) +#' #' arm_ref_comp <- list( #' ARMCD = list( #' ref = "ARM B", @@ -485,10 +491,9 @@ template_mmrm_plots <- function(fit_name, #' as.factor() #' making consecutive numeric factor #' ) #' }) +#' datanames(data) <- c("ADSL", "ADQS") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] #' -#' datanames <- c("ADSL", "ADQS") -#' datanames(data) <- datanames -#' join_keys(data) <- default_cdisc_join_keys[datanames] #' app <- init( #' data = data, #' modules = modules( diff --git a/R/tm_g_barchart_simple.R b/R/tm_g_barchart_simple.R index d2ce0ad73..30195436c 100644 --- a/R/tm_g_barchart_simple.R +++ b/R/tm_g_barchart_simple.R @@ -15,26 +15,31 @@ #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(nestcolor) #' library(dplyr) #' -#' ADSL <- tmc_ex_adsl %>% -#' mutate(ITTFL = factor("Y") %>% -#' with_label("Intent-To-Treat Population Flag")) -#' ADAE <- tmc_ex_adae %>% -#' filter(!((AETOXGR == 1) & (AESEV == "MILD") & (ARM == "A: Drug X"))) +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl %>% +#' mutate(ITTFL = factor("Y") %>% +#' with_label("Intent-To-Treat Population Flag")) +#' ADAE <- tmc_ex_adae %>% +#' filter(!((AETOXGR == 1) & (AESEV == "MILD") & (ARM == "A: Drug X"))) +#' }) +#' datanames(data) <- c("ADSL", "ADAE") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADAE <- data[["ADAE"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADAE = ADAE, -#' code = "ADSL <- tmc_ex_adsl %>% -#' mutate(ITTFL = factor(\"Y\") %>% -#' with_label(\"Intent-To-Treat Population Flag\")) -#' ADAE <- tmc_ex_adae %>% -#' filter(!((AETOXGR == 1) & (AESEV == \"MILD\") & (ARM == \"A: Drug X\")))" -#' ), +#' data = data, #' modules = modules( #' tm_g_barchart_simple( #' label = "ADAE Analysis", diff --git a/R/tm_g_ci.R b/R/tm_g_ci.R index b429915d5..3da28462d 100644 --- a/R/tm_g_ci.R +++ b/R/tm_g_ci.R @@ -189,21 +189,27 @@ template_g_ci <- function(dataname, #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(nestcolor) #' -#' ADSL <- tmc_ex_adsl -#' ADLB <- tmc_ex_adlb +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADLB <- tmc_ex_adlb +#' }) +#' datanames(data) <- c("ADSL", "ADLB") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADLB <- data[["ADLB"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADLB = ADLB, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADLB <- tmc_ex_adlb -#' " -#' ), +#' data = data, #' modules = modules( #' tm_g_ci( #' label = "Confidence Interval Plot", @@ -253,10 +259,6 @@ template_g_ci <- function(dataname, #' ) #' ) #' ) -#' ), -#' header = "Example of Confidence Interval Plot", -#' footer = tags$p( -#' class = "text-muted", "Source: `teal.modules.clinical::tm_g_ci`" #' ) #' ) #' if (interactive()) { diff --git a/R/tm_g_forest_rsp.R b/R/tm_g_forest_rsp.R index dde797c80..f408759cb 100644 --- a/R/tm_g_forest_rsp.R +++ b/R/tm_g_forest_rsp.R @@ -243,15 +243,28 @@ template_forest_rsp <- function(dataname = "ANL", #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(nestcolor) #' library(dplyr) #' -#' ADSL <- tmc_ex_adsl -#' ADRS <- tmc_ex_adrs %>% -#' mutate(AVALC = d_onco_rsp_label(AVALC) %>% -#' with_label("Character Result/Finding")) %>% -#' filter(PARAMCD != "OVRINV" | AVISIT == "FOLLOW UP") +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADRS <- tmc_ex_adrs %>% +#' mutate(AVALC = d_onco_rsp_label(AVALC) %>% +#' with_label("Character Result/Finding")) %>% +#' filter(PARAMCD != "OVRINV" | AVISIT == "FOLLOW UP") +#' }) +#' datanames(data) <- c("ADSL", "ADRS") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADRS <- data[["ADRS"]] #' #' arm_ref_comp <- list( #' ARM = list( @@ -265,17 +278,7 @@ template_forest_rsp <- function(dataname = "ANL", #' ) #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADRS = ADRS, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADRS <- tmc_ex_adrs %>% -#' mutate(AVALC = d_onco_rsp_label(AVALC) %>% -#' with_label(\"Character Result/Finding\")) %>% -#' filter(PARAMCD != \"OVRINV\" | AVISIT == \"FOLLOW UP\") -#' " -#' ), +#' data = data, #' modules = modules( #' tm_g_forest_rsp( #' label = "Forest Response", diff --git a/R/tm_g_forest_tte.R b/R/tm_g_forest_tte.R index 0b0460237..9d4728eb7 100644 --- a/R/tm_g_forest_tte.R +++ b/R/tm_g_forest_tte.R @@ -243,12 +243,26 @@ template_forest_tte <- function(dataname = "ANL", #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(nestcolor) +#' library(dplyr) +#' +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADTTE <- tmc_ex_adtte +#' ADSL$RACE <- droplevels(ADSL$RACE) %>% with_label("Race") +#' }) +#' datanames(data) <- c("ADSL", "ADTTE") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] #' -#' ADSL <- tmc_ex_adsl -#' ADTTE <- tmc_ex_adtte -#' ADSL$RACE <- droplevels(ADSL$RACE) %>% with_label("Race") +#' ADSL <- data[["ADSL"]] +#' ADTTE <- data[["ADTTE"]] #' #' arm_ref_comp <- list( #' ARM = list( @@ -262,15 +276,7 @@ template_forest_tte <- function(dataname = "ANL", #' ) #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADTTE = ADTTE, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADTTE <- tmc_ex_adtte -#' ADSL$RACE <- droplevels(ADSL$RACE) %>% with_label(\"Race\") -#' " -#' ), +#' data = data, #' modules = modules( #' tm_g_forest_tte( #' label = "Forest Survival", diff --git a/R/tm_g_ipp.R b/R/tm_g_ipp.R index 5ec2e8302..b67203927 100644 --- a/R/tm_g_ipp.R +++ b/R/tm_g_ipp.R @@ -179,28 +179,33 @@ template_g_ipp <- function(dataname = "ANL", #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(nestcolor) #' library(dplyr) #' -#' ADSL <- tmc_ex_adsl %>% -#' slice(1:20) %>% -#' df_explicit_na() -#' ADLB <- tmc_ex_adlb %>% -#' filter(USUBJID %in% ADSL$USUBJID) %>% -#' df_explicit_na() %>% -#' filter(AVISIT != "SCREENING") +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl %>% +#' slice(1:20) %>% +#' df_explicit_na() +#' ADLB <- tmc_ex_adlb %>% +#' filter(USUBJID %in% ADSL$USUBJID) %>% +#' df_explicit_na() %>% +#' filter(AVISIT != "SCREENING") +#' }) +#' datanames(data) <- c("ADSL", "ADLB") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADLB <- data[["ADLB"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADLB = ADLB, -#' code = " -#' ADSL <- tmc_ex_adsl %>% slice(1:20) %>% df_explicit_na() -#' ADLB <- tmc_ex_adlb %>% filter(USUBJID %in% ADSL$USUBJID) %>% -#' df_explicit_na() %>% filter(AVISIT != \"SCREENING\") -#' " -#' ), +#' data = data, #' modules = modules( #' tm_g_ipp( #' label = "Individual Patient Plot", diff --git a/R/tm_g_km.R b/R/tm_g_km.R index fb2b920d4..709f50e1b 100644 --- a/R/tm_g_km.R +++ b/R/tm_g_km.R @@ -271,11 +271,24 @@ template_g_km <- function(dataname = "ANL", #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(nestcolor) #' -#' ADSL <- tmc_ex_adsl -#' ADTTE <- tmc_ex_adtte +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADTTE <- tmc_ex_adtte +#' }) +#' datanames(data) <- c("ADSL", "ADTTE") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADTTE <- data[["ADTTE"]] #' #' arm_ref_comp <- list( #' ACTARMCD = list( @@ -289,14 +302,7 @@ template_g_km <- function(dataname = "ANL", #' ) #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADTTE = ADTTE, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADTTE <- tmc_ex_adtte -#' " -#' ), +#' data = data, #' modules = modules( #' tm_g_km( #' label = "Kaplan-Meier Plot", diff --git a/R/tm_g_lineplot.R b/R/tm_g_lineplot.R index fc0d58eb0..94fe2b647 100644 --- a/R/tm_g_lineplot.R +++ b/R/tm_g_lineplot.R @@ -206,23 +206,30 @@ template_g_lineplot <- function(dataname = "ANL", #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(nestcolor) #' library(dplyr) #' library(forcats) #' -#' ADSL <- tmc_ex_adsl -#' ADLB <- tmc_ex_adlb %>% mutate(AVISIT == fct_reorder(AVISIT, AVISITN, min)) +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADLB <- tmc_ex_adlb %>% +#' mutate(AVISIT == fct_reorder(AVISIT, AVISITN, min)) +#' }) +#' datanames(data) <- c("ADSL", "ADLB") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADLB <- data[["ADLB"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADLB = ADLB, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADLB <- tmc_ex_adlb %>% mutate(AVISIT == fct_reorder(AVISIT, AVISITN, min)) -#' " -#' ), +#' data = data, #' modules = modules( #' tm_g_lineplot( #' label = "Line Plot", diff --git a/R/tm_g_pp_adverse_events.R b/R/tm_g_pp_adverse_events.R index fa817cbe2..bd7b60d7d 100644 --- a/R/tm_g_pp_adverse_events.R +++ b/R/tm_g_pp_adverse_events.R @@ -186,22 +186,29 @@ template_adverse_events <- function(dataname = "ANL", #' #' @inherit module_arguments return #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(nestcolor) #' library(dplyr) #' -#' ADAE <- tmc_ex_adae -#' ADSL <- tmc_ex_adsl %>% filter(USUBJID %in% ADAE$USUBJID) +#' data <- teal_data() +#' data <- within(data, { +#' ADAE <- tmc_ex_adae +#' ADSL <- tmc_ex_adsl %>% +#' filter(USUBJID %in% ADAE$USUBJID) +#' }) +#' datanames(data) <- c("ADSL", "ADAE") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADAE <- data[["ADAE"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADAE = ADAE, -#' code = " -#' ADAE <- tmc_ex_adae -#' ADSL <- tmc_ex_adsl %>% filter(USUBJID %in% ADAE$USUBJID) -#' " -#' ), +#' data = data, #' modules = modules( #' tm_g_pp_adverse_events( #' label = "Adverse Events", diff --git a/R/tm_g_pp_patient_timeline.R b/R/tm_g_pp_patient_timeline.R index c46dbf850..6f3e86815 100644 --- a/R/tm_g_pp_patient_timeline.R +++ b/R/tm_g_pp_patient_timeline.R @@ -347,6 +347,11 @@ template_patient_timeline <- function(dataname = "ANL", #' #' @inherit module_arguments return #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(nestcolor) #' library(dplyr) @@ -354,26 +359,28 @@ template_patient_timeline <- function(dataname = "ANL", #' data <- teal_data() #' data <- within(data, { #' ADAE <- tmc_ex_adae -#' ADSL <- tmc_ex_adsl %>% filter(USUBJID %in% ADAE$USUBJID) -#' ADCM <- tmc_ex_adcm %>% mutate( -#' CMSTDY = case_when( -#' CMCAT == "medcl B" ~ 20, -#' CMCAT == "medcl C" ~ 150, -#' TRUE ~ 1 -#' ) %>% with_label("Study Day of Start of Medication"), -#' CMENDY = case_when( -#' CMCAT == "medcl B" ~ 700, -#' CMCAT == "medcl C" ~ 1000, -#' TRUE ~ 500 -#' ) %>% with_label("Study Day of End of Medication"), -#' CMASTDTM = ASTDTM, -#' CMAENDTM = AENDTM -#' ) +#' ADSL <- tmc_ex_adsl %>% +#' filter(USUBJID %in% ADAE$USUBJID) +#' ADCM <- tmc_ex_adcm %>% +#' mutate( +#' CMSTDY = case_when( +#' CMCAT == "medcl B" ~ 20, +#' CMCAT == "medcl C" ~ 150, +#' TRUE ~ 1 +#' ) %>% with_label("Study Day of Start of Medication"), +#' CMENDY = case_when( +#' CMCAT == "medcl B" ~ 700, +#' CMCAT == "medcl C" ~ 1000, +#' TRUE ~ 500 +#' ) %>% with_label("Study Day of End of Medication"), +#' CMASTDTM = ASTDTM, +#' CMAENDTM = AENDTM +#' ) #' }) #' -#' adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") #' datanames(data) <- c("ADSL", "ADAE", "ADCM") #' join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADAE", "ADCM")] +#' adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") #' join_keys(data)["ADCM", "ADCM"] <- adcm_keys #' join_keys(data)["ADAE", "ADCM"] <- c("STUDYID", "USUBJID") #' diff --git a/R/tm_g_pp_therapy.R b/R/tm_g_pp_therapy.R index 36a3bff66..915576bf3 100644 --- a/R/tm_g_pp_therapy.R +++ b/R/tm_g_pp_therapy.R @@ -247,31 +247,34 @@ template_therapy <- function(dataname = "ANL", #' #' @inherit module_arguments return #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(nestcolor) #' library(dplyr) #' -#' ADCM <- tmc_ex_adcm -#' ADSL <- tmc_ex_adsl %>% filter(USUBJID %in% ADCM$USUBJID) -#' ADCM$CMASTDTM <- ADCM$ASTDTM -#' ADCM$CMAENDTM <- ADCM$AENDTM +#' data <- teal_data() +#' data <- within(data, { +#' ADCM <- tmc_ex_adcm +#' ADSL <- tmc_ex_adsl %>% filter(USUBJID %in% ADCM$USUBJID) +#' ADCM$CMASTDTM <- ADCM$ASTDTM +#' ADCM$CMAENDTM <- ADCM$AENDTM +#' }) +#' +#' datanames(data) <- c("ADSL", "ADCM") +#' +#' join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADCM")] #' adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") +#' join_keys(data)["ADCM", "ADCM"] <- adcm_keys #' -#' join_keys <- default_cdisc_join_keys[c("ADSL", "ADCM")] -#' join_keys["ADCM", "ADCM"] <- adcm_keys +#' ADSL <- data[["ADSL"]] +#' ADCM <- data[["ADCM"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADCM = ADCM, -#' code = " -#' ADCM <- tmc_ex_adcm -#' ADSL <- tmc_ex_adsl %>% filter(USUBJID %in% ADCM$USUBJID) -#' ADCM$CMASTDTM <- ADCM$ASTDTM -#' ADCM$CMAENDTM <- ADCM$AENDTM -#' ", -#' join_keys = join_keys -#' ), +#' data = data, #' modules = modules( #' tm_g_pp_therapy( #' label = "Therapy", diff --git a/R/tm_g_pp_vitals.R b/R/tm_g_pp_vitals.R index 43a157102..5251b5126 100644 --- a/R/tm_g_pp_vitals.R +++ b/R/tm_g_pp_vitals.R @@ -211,21 +211,27 @@ template_vitals <- function(dataname = "ANL", #' #' @inherit module_arguments return #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(nestcolor) #' -#' ADSL <- tmc_ex_adsl -#' ADVS <- tmc_ex_advs +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADVS <- tmc_ex_advs +#' }) +#' datanames(data) <- c("ADSL", "ADVS") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADVS <- data[["ADVS"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADVS = ADVS, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADVS <- tmc_ex_advs -#' " -#' ), +#' data = data, #' modules = modules( #' tm_g_pp_vitals( #' label = "Vitals", diff --git a/R/tm_t_abnormality.R b/R/tm_t_abnormality.R index 50741771e..12b191fbf 100644 --- a/R/tm_t_abnormality.R +++ b/R/tm_t_abnormality.R @@ -240,12 +240,16 @@ template_abnormality <- function(parentname, #' @note Patients with the same abnormality at baseline as on the treatment visit can be #' excluded in accordance with GDSR specifications by using `exclude_base_abn`. #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples +#' library(dplyr) #' #' data <- teal_data() #' data <- within(data, { -#' library(dplyr) -#' #' ADSL <- tmc_ex_adsl #' ADLB <- tmc_ex_adlb %>% #' mutate( @@ -255,9 +259,11 @@ template_abnormality <- function(parentname, #' ) %>% with_label("On Treatment Record Flag") #' ) #' }) -#' datanames <- c("ADSL", "ADLB") -#' datanames(data) <- datanames -#' join_keys(data) <- default_cdisc_join_keys[datanames] +#' datanames(data) <- c("ADSL", "ADLB") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADLB <- data[["ADLB"]] #' #' app <- init( #' data = data, @@ -266,21 +272,21 @@ template_abnormality <- function(parentname, #' label = "Abnormality Table", #' dataname = "ADLB", #' arm_var = choices_selected( -#' choices = variable_choices(data[["ADSL"]], subset = c("ARM", "ARMCD")), +#' choices = variable_choices(ADSL, subset = c("ARM", "ARMCD")), #' selected = "ARM" #' ), #' add_total = FALSE, #' by_vars = choices_selected( -#' choices = variable_choices(data[["ADLB"]], subset = c("LBCAT", "PARAM", "AVISIT")), +#' choices = variable_choices(ADLB, subset = c("LBCAT", "PARAM", "AVISIT")), #' selected = c("LBCAT", "PARAM"), #' keep_order = TRUE #' ), #' baseline_var = choices_selected( -#' variable_choices(data[["ADLB"]], subset = "BNRIND"), +#' variable_choices(ADLB, subset = "BNRIND"), #' selected = "BNRIND", fixed = TRUE #' ), #' grade = choices_selected( -#' choices = variable_choices(data[["ADLB"]], subset = "ANRIND"), +#' choices = variable_choices(ADLB, subset = "ANRIND"), #' selected = "ANRIND", #' fixed = TRUE #' ), diff --git a/R/tm_t_abnormality_by_worst_grade.R b/R/tm_t_abnormality_by_worst_grade.R index daa74ca72..e81adcf54 100644 --- a/R/tm_t_abnormality_by_worst_grade.R +++ b/R/tm_t_abnormality_by_worst_grade.R @@ -251,23 +251,28 @@ template_abnormality_by_worst_grade <- function(parentname, # nolint: object_len #' #' @export #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(dplyr) #' -#' ADSL <- tmc_ex_adsl -#' ADLB <- tmc_ex_adlb %>% -#' filter(!AVISIT %in% c("SCREENING", "BASELINE")) +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADLB <- tmc_ex_adlb %>% +#' filter(!AVISIT %in% c("SCREENING", "BASELINE")) +#' }) +#' datanames(data) <- c("ADSL", "ADLB") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADLB <- data[["ADLB"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADLB = ADLB, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADLB <- tmc_ex_adlb %>% -#' filter(!AVISIT %in% c(\"SCREENING\", \"BASELINE\")) -#' " -#' ), +#' data = data, #' modules = modules( #' tm_t_abnormality_by_worst_grade( #' label = "Laboratory Test Results with Highest Grade Post-Baseline", diff --git a/R/tm_t_ancova.R b/R/tm_t_ancova.R index c31d19c5b..81116675c 100644 --- a/R/tm_t_ancova.R +++ b/R/tm_t_ancova.R @@ -435,9 +435,22 @@ template_ancova <- function(dataname = "ANL", #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples -#' ADSL <- tmc_ex_adsl -#' ADQS <- tmc_ex_adqs +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADQS <- tmc_ex_adqs +#' }) +#' datanames(data) <- c("ADSL", "ADQS") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADQS <- data[["ADQS"]] #' #' arm_ref_comp <- list( #' ARM = list( @@ -451,14 +464,7 @@ template_ancova <- function(dataname = "ANL", #' ) #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADQS = ADQS, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADQS <- tmc_ex_adqs -#' " -#' ), +#' data = data, #' modules = modules( #' tm_t_ancova( #' label = "ANCOVA Table", diff --git a/R/tm_t_binary_outcome.R b/R/tm_t_binary_outcome.R index b75bd1aa9..5d3b51113 100644 --- a/R/tm_t_binary_outcome.R +++ b/R/tm_t_binary_outcome.R @@ -351,35 +351,36 @@ template_binary_outcome <- function(dataname, #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(dplyr) #' -#' ADSL <- tmc_ex_adsl -#' ADRS <- tmc_ex_adrs %>% -#' mutate( -#' AVALC = d_onco_rsp_label(AVALC) %>% -#' with_label("Character Result/Finding") -#' ) %>% -#' filter(PARAMCD != "OVRINV" | AVISIT == "FOLLOW UP") +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADRS <- tmc_ex_adrs %>% +#' mutate( +#' AVALC = d_onco_rsp_label(AVALC) %>% +#' with_label("Character Result/Finding") +#' ) %>% +#' filter(PARAMCD != "OVRINV" | AVISIT == "FOLLOW UP") +#' }) +#' datanames(data) <- c("ADSL", "ADRS") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADRS <- data[["ADRS"]] #' #' arm_ref_comp <- list( #' ARMCD = list(ref = "ARM B", comp = c("ARM A", "ARM C")), #' ARM = list(ref = "B: Placebo", comp = c("A: Drug X", "C: Combination")) #' ) #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADRS = ADRS, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADRS <- tmc_ex_adrs %>% -#' mutate( -#' AVALC = d_onco_rsp_label(AVALC) %>% -#' with_label(\"Character Result/Finding\") -#' ) %>% -#' filter(PARAMCD != \"OVRINV\" | AVISIT == \"FOLLOW UP\") -#' " -#' ), +#' data = data, #' modules = modules( #' tm_t_binary_outcome( #' label = "Responders", diff --git a/R/tm_t_coxreg.R b/R/tm_t_coxreg.R index aaa91455b..66039f34e 100644 --- a/R/tm_t_coxreg.R +++ b/R/tm_t_coxreg.R @@ -361,6 +361,11 @@ template_coxreg_m <- function(dataname, #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' ## First example #' ## ============= @@ -383,9 +388,11 @@ template_coxreg_m <- function(dataname, #' ADSL <- tmc_ex_adsl #' ADTTE <- tmc_ex_adtte #' }) -#' datanames <- c("ADSL", "ADTTE") -#' datanames(data) <- datanames -#' join_keys(data) <- default_cdisc_join_keys[datanames] +#' datanames(data) <- c("ADSL", "ADTTE") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADTTE <- data[["ADTTE"]] #' #' app <- init( #' data = data, @@ -396,7 +403,7 @@ template_coxreg_m <- function(dataname, #' arm_var = choices_selected(c("ARM", "ARMCD", "ACTARMCD"), "ARM"), #' arm_ref_comp = arm_ref_comp, #' paramcd = choices_selected( -#' value_choices(data[["ADTTE"]], "PARAMCD", "PARAM"), "OS" +#' value_choices(ADTTE, "PARAMCD", "PARAM"), "OS" #' ), #' strata_var = choices_selected( #' c("COUNTRY", "STRATA1", "STRATA2"), "STRATA1" @@ -412,17 +419,20 @@ template_coxreg_m <- function(dataname, #' shinyApp(app$ui, app$server) #' } #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' +#' @examples #' ## Second example #' ## ============== #' ## This time, a synthetic pair of ADTTE/ADSL data is fabricated for Cox regression #' ## where ties and pval_method matter. -#' -#' ## Dataset fabrication -#' ## ------------------- +#' library(dplyr) #' #' data <- teal_data() #' data <- within(data, { -#' library(dplyr) #' ADTTE <- data.frame( #' STUDYID = "LUNG", #' AVAL = c(4, 3, 1, 1, 2, 2, 3, 1, 2), @@ -451,9 +461,11 @@ template_coxreg_m <- function(dataname, #' ) #' }) #' -#' datanames <- c("ADSL", "ADTTE") -#' datanames(data) <- datanames -#' join_keys(data) <- default_cdisc_join_keys[datanames] +#' datanames(data) <- c("ADSL", "ADTTE") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADTTE <- data[["ADTTE"]] #' #' ## `teal` application #' ## ---------------- @@ -462,6 +474,7 @@ template_coxreg_m <- function(dataname, #' ## running the exported R code. #' #' arm_ref_comp <- list(ARMCD = list(ref = "ARM A", comp = c("ARM B"))) +#' #' app <- init( #' data = data, #' modules = modules( @@ -471,7 +484,7 @@ template_coxreg_m <- function(dataname, #' arm_var = choices_selected(c("ARMCD"), "ARMCD"), #' arm_ref_comp = arm_ref_comp, #' paramcd = choices_selected( -#' value_choices(data[["ADTTE"]], "PARAMCD", "PARAM"), "OS" +#' value_choices(ADTTE, "PARAMCD", "PARAM"), "OS" #' ), #' strata_var = choices_selected(c("INST"), NULL), #' cov_var = choices_selected(c("SEX", "AGE"), "SEX"), diff --git a/R/tm_t_events.R b/R/tm_t_events.R index 32cf48f96..8f1650c51 100644 --- a/R/tm_t_events.R +++ b/R/tm_t_events.R @@ -461,19 +461,25 @@ template_events <- function(dataname, #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples -#' ADSL <- tmc_ex_adsl -#' ADAE <- tmc_ex_adae +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADAE <- tmc_ex_adae +#' }) +#' datanames(data) <- c("ADSL", "ADAE") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADAE <- data[["ADAE"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADAE = ADAE, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADAE <- tmc_ex_adae -#' " -#' ), +#' data = data, #' modules = modules( #' tm_t_events( #' label = "Adverse Event Table", diff --git a/R/tm_t_events_by_grade.R b/R/tm_t_events_by_grade.R index 9791c5851..702914517 100644 --- a/R/tm_t_events_by_grade.R +++ b/R/tm_t_events_by_grade.R @@ -792,21 +792,27 @@ template_events_col_by_grade <- function(dataname, #' @inherit module_arguments return seealso #' #' @export +#' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples +#' library(dplyr) #' data <- teal_data() #' data <- within(data, { -#' library(dplyr) -#' #' ADSL <- tmc_ex_adsl #' lbls_adae <- col_labels(tmc_ex_adae) #' ADAE <- tmc_ex_adae %>% #' mutate_if(is.character, as.factor) #' be certain of having factors #' col_labels(ADAE) <- lbls_adae #' }) +#' datanames(data) <- c("ADSL", "ADAE") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] #' -#' datanames <- c("ADSL", "ADAE") -#' datanames(data) <- datanames -#' join_keys(data) <- default_cdisc_join_keys[datanames] +#' ADSL <- data[["ADSL"]] +#' ADAE <- data[["ADAE"]] #' #' app <- init( #' data = data, @@ -816,15 +822,15 @@ template_events_col_by_grade <- function(dataname, #' dataname = "ADAE", #' arm_var = choices_selected(c("ARM", "ARMCD"), "ARM"), #' llt = choices_selected( -#' choices = variable_choices(data[["ADAE"]], c("AETERM", "AEDECOD")), +#' choices = variable_choices(ADAE, c("AETERM", "AEDECOD")), #' selected = c("AEDECOD") #' ), #' hlt = choices_selected( -#' choices = variable_choices(data[["ADAE"]], c("AEBODSYS", "AESOC")), +#' choices = variable_choices(ADAE, c("AEBODSYS", "AESOC")), #' selected = "AEBODSYS" #' ), #' grade = choices_selected( -#' choices = variable_choices(data[["ADAE"]], c("AETOXGR", "AESEV")), +#' choices = variable_choices(ADAE, c("AETOXGR", "AESEV")), #' selected = "AETOXGR" #' ) #' ) diff --git a/R/tm_t_events_patyear.R b/R/tm_t_events_patyear.R index 3beb065a9..028196209 100644 --- a/R/tm_t_events_patyear.R +++ b/R/tm_t_events_patyear.R @@ -196,26 +196,31 @@ template_events_patyear <- function(dataname, #' @examples #' library(dplyr) #' -#' ADSL <- tmc_ex_adsl -#' ADAETTE <- tmc_ex_adaette %>% -#' filter(PARAMCD %in% c("AETTE1", "AETTE2", "AETTE3")) %>% -#' mutate(is_event = CNSR == 0) %>% -#' mutate(n_events = as.integer(is_event)) +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADAETTE <- tmc_ex_adaette %>% +#' filter(PARAMCD %in% c("AETTE1", "AETTE2", "AETTE3")) %>% +#' mutate(is_event = CNSR == 0) %>% +#' mutate(n_events = as.integer(is_event)) +#' }) +#' datanames(data) <- c("ADSL", "ADAETTE") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] #' +#' ADSL <- data[["ADSL"]] +#' ADAETTE <- data[["ADAETTE"]] +#' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ examples[[1]] }} +#' {{ next_example }} +#' +#' @examples #' # 1. Basic Example #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADAETTE = ADAETTE, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADAETTE <- tmc_ex_adaette %>% -#' filter(PARAMCD %in% c(\"AETTE1\", \"AETTE2\", \"AETTE3\")) %>% -#' mutate(is_event = CNSR == 0) %>% -#' mutate(n_events = as.integer(is_event)) -#' " -#' ), +#' data = data, #' modules = modules( #' tm_t_events_patyear( #' label = "AE Rate Adjusted for Patient-Years At Risk Table", @@ -241,20 +246,17 @@ template_events_patyear <- function(dataname, #' shinyApp(app$ui, app$server) #' } #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ examples[[1]] }} +#' {{ next_example }} +#' +#' @examples #' # 2. Example with table split on 2 arm_var variables #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADAETTE = ADAETTE, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADAETTE <- tmc_ex_adaette %>% -#' filter(PARAMCD %in% c(\"AETTE1\", \"AETTE2\", \"AETTE3\")) %>% -#' mutate(is_event = CNSR == 0) %>% -#' mutate(n_events = as.integer(is_event)) -#' " -#' ), +#' data = data, #' modules = modules( #' tm_t_events_patyear( #' label = "AE Rate Adjusted for Patient-Years At Risk Table", diff --git a/R/tm_t_events_summary.R b/R/tm_t_events_summary.R index 815792289..ed3230fbd 100644 --- a/R/tm_t_events_summary.R +++ b/R/tm_t_events_summary.R @@ -522,6 +522,11 @@ template_events_summary <- function(anl_name, #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(dplyr) #' @@ -564,10 +569,8 @@ template_events_summary <- function(anl_name, #' ae_anl_vars <- names(ADAE)[startsWith(names(ADAE), "TMPFL_")] #' aesi_vars <- names(ADAE)[startsWith(names(ADAE), "TMP_")] #' }) -#' -#' datanames <- c("ADSL", "ADAE") -#' datanames(data) <- datanames -#' join_keys(data) <- default_cdisc_join_keys[datanames] +#' datanames(data) <- c("ADSL", "ADAE") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] #' #' app <- init( #' data = data, diff --git a/R/tm_t_exposure.R b/R/tm_t_exposure.R index 717cba536..8854324bd 100644 --- a/R/tm_t_exposure.R +++ b/R/tm_t_exposure.R @@ -227,6 +227,11 @@ template_exposure <- function(parentname, #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(dplyr) #' @@ -248,10 +253,8 @@ template_exposure <- function(parentname, #' bind_rows(ADEX) #' col_labels(ADEX) <- labels #' }) -#' -#' datanames <- c("ADSL", "ADEX") -#' datanames(data) <- datanames -#' join_keys(data) <- default_cdisc_join_keys[datanames] +#' datanames(data) <- c("ADSL", "ADEX") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] #' #' app <- init( #' data = data, diff --git a/R/tm_t_logistic.R b/R/tm_t_logistic.R index 52099ce26..24768943e 100644 --- a/R/tm_t_logistic.R +++ b/R/tm_t_logistic.R @@ -222,12 +222,25 @@ template_logistic <- function(dataname, #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(dplyr) #' -#' ADSL <- tmc_ex_adsl -#' ADRS <- tmc_ex_adrs %>% -#' filter(PARAMCD %in% c("BESRSPI", "INVET")) +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADRS <- tmc_ex_adrs %>% +#' filter(PARAMCD %in% c("BESRSPI", "INVET")) +#' }) +#' datanames(data) <- c("ADSL", "ADRS") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADRS <- data[["ADRS"]] #' #' arm_ref_comp <- list( #' ACTARMCD = list( @@ -241,15 +254,7 @@ template_logistic <- function(dataname, #' ) #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADRS = ADRS, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADRS <- tmc_ex_adrs %>% -#' filter(PARAMCD %in% c(\"BESRSPI\", \"INVET\")) -#' " -#' ), +#' data = data, #' modules = modules( #' tm_t_logistic( #' label = "Logistic Regression", diff --git a/R/tm_t_mult_events.R b/R/tm_t_mult_events.R index 4fdca56cd..40f70f173 100644 --- a/R/tm_t_mult_events.R +++ b/R/tm_t_mult_events.R @@ -283,24 +283,27 @@ template_mult_events <- function(dataname, #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples -#' ADSL <- tmc_ex_adsl -#' ADCM <- tmc_ex_adcm +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADCM <- tmc_ex_adcm +#' }) +#' datanames(data) <- c("ADSL", "ADCM") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] #' adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") +#' join_keys(data)["ADCM", "ADCM"] <- adcm_keys #' -#' join_keys <- default_cdisc_join_keys[c("ADSL", "ADCM")] -#' join_keys["ADCM", "ADCM"] <- adcm_keys +#' ADSL <- data[["ADSL"]] +#' ADCM <- data[["ADCM"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADCM = ADCM, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADCM <- tmc_ex_adcm -#' ", -#' join_keys = join_keys -#' ), +#' data = data, #' modules = modules( #' tm_t_mult_events( #' label = "Concomitant Medications by Medication Class and Preferred Name", diff --git a/R/tm_t_pp_basic_info.R b/R/tm_t_pp_basic_info.R index 0fe809c4d..7f99c1917 100644 --- a/R/tm_t_pp_basic_info.R +++ b/R/tm_t_pp_basic_info.R @@ -66,14 +66,23 @@ template_basic_info <- function(dataname = "ANL", #' #' @inherit module_arguments return #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples -#' ADSL <- tmc_ex_adsl +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' }) +#' datanames(data) <- c("ADSL") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' code = "ADSL <- tmc_ex_adsl" -#' ), +#' data = data, #' modules = modules( #' tm_t_pp_basic_info( #' label = "Basic Info", diff --git a/R/tm_t_pp_laboratory.R b/R/tm_t_pp_laboratory.R index f476d6968..66294e1e9 100644 --- a/R/tm_t_pp_laboratory.R +++ b/R/tm_t_pp_laboratory.R @@ -147,19 +147,25 @@ template_laboratory <- function(dataname = "ANL", #' #' @inherit module_arguments return #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples -#' ADSL <- tmc_ex_adsl -#' ADLB <- tmc_ex_adlb +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADLB <- tmc_ex_adlb +#' }) +#' datanames(data) <- c("ADSL", "ADLB") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADLB <- data[["ADLB"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADLB = ADLB, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADLB <- tmc_ex_adlb -#' " -#' ), +#' data = data, #' modules = modules( #' tm_t_pp_laboratory( #' label = "Vitals", diff --git a/R/tm_t_pp_medical_history.R b/R/tm_t_pp_medical_history.R index f7ae2ecc2..597be0fab 100644 --- a/R/tm_t_pp_medical_history.R +++ b/R/tm_t_pp_medical_history.R @@ -89,19 +89,25 @@ template_medical_history <- function(dataname = "ANL", #' #' @inherit module_arguments return #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples -#' ADSL <- tmc_ex_adsl -#' ADMH <- tmc_ex_admh +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADMH <- tmc_ex_admh +#' }) +#' datanames(data) <- c("ADSL", "ADMH") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADMH <- data[["ADMH"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADMH = ADMH, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADMH <- tmc_ex_admh -#' " -#' ), +#' data = data, #' modules = modules( #' tm_t_pp_medical_history( #' label = "Medical History", diff --git a/R/tm_t_pp_prior_medication.R b/R/tm_t_pp_prior_medication.R index 992427ba1..41c92fdf1 100644 --- a/R/tm_t_pp_prior_medication.R +++ b/R/tm_t_pp_prior_medication.R @@ -61,30 +61,30 @@ template_prior_medication <- function(dataname = "ANL", #' #' @inherit module_arguments return #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' library(dplyr) -#' -#' ADCM <- tmc_ex_adcm -#' ADSL <- tmc_ex_adsl %>% filter(USUBJID %in% ADCM$USUBJID) -#' ADCM$CMASTDTM <- ADCM$ASTDTM -#' ADCM$CMAENDTM <- ADCM$AENDTM +#' data <- teal_data() +#' data <- within(data, { +#' ADCM <- tmc_ex_adcm +#' ADSL <- tmc_ex_adsl %>% filter(USUBJID %in% ADCM$USUBJID) +#' ADCM$CMASTDTM <- ADCM$ASTDTM +#' ADCM$CMAENDTM <- ADCM$AENDTM +#' }) +#' datanames(data) <- c("ADSL", "ADCM") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] #' adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") +#' join_keys(data)["ADCM", "ADCM"] <- adcm_keys #' -#' join_keys <- default_cdisc_join_keys[c("ADSL", "ADCM")] -#' join_keys["ADCM", "ADCM"] <- adcm_keys +#' ADSL <- data[["ADSL"]] +#' ADCM <- data[["ADCM"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADCM = ADCM, -#' code = " -#' ADCM <- tmc_ex_adcm -#' ADSL <- tmc_ex_adsl %>% filter(USUBJID %in% ADCM$USUBJID) -#' ADCM$CMASTDTM <- ADCM$ASTDTM -#' ADCM$CMAENDTM <- ADCM$AENDTM -#' ", -#' join_keys = join_keys -#' ), +#' data = data, #' modules = modules( #' tm_t_pp_prior_medication( #' label = "Prior Medication", diff --git a/R/tm_t_shift_by_arm.R b/R/tm_t_shift_by_arm.R index 236d09da3..277bb8e40 100644 --- a/R/tm_t_shift_by_arm.R +++ b/R/tm_t_shift_by_arm.R @@ -191,19 +191,25 @@ template_shift_by_arm <- function(dataname, #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples -#' ADSL <- tmc_ex_adsl -#' ADEG <- tmc_ex_adeg +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADEG <- tmc_ex_adeg +#' }) +#' datanames(data) <- c("ADSL", "ADEG") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADEG <- data[["ADEG"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADEG = ADEG, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADEG <- tmc_ex_adeg -#' " -#' ), +#' data = data, #' modules = modules( #' tm_t_shift_by_arm( #' label = "Shift by Arm Table", @@ -222,11 +228,13 @@ template_shift_by_arm <- function(dataname, #' ), #' aval_var = choices_selected( #' variable_choices(ADEG, subset = "ANRIND"), -#' selected = "ANRIND", fixed = TRUE +#' selected = "ANRIND", +#' fixed = TRUE #' ), #' baseline_var = choices_selected( #' variable_choices(ADEG, subset = "BNRIND"), -#' selected = "BNRIND", fixed = TRUE +#' selected = "BNRIND", +#' fixed = TRUE #' ), #' useNA = "ifany" #' ) diff --git a/R/tm_t_shift_by_arm_by_worst.R b/R/tm_t_shift_by_arm_by_worst.R index db2d07cc5..826473663 100644 --- a/R/tm_t_shift_by_arm_by_worst.R +++ b/R/tm_t_shift_by_arm_by_worst.R @@ -197,19 +197,25 @@ template_shift_by_arm_by_worst <- function(dataname, #' #' @inherit module_arguments return #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples -#' ADSL <- tmc_ex_adsl -#' ADEG <- tmc_ex_adeg +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADEG <- tmc_ex_adeg +#' }) +#' datanames(data) <- c("ADSL", "ADEG") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADEG <- data[["ADEG"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADEG = ADEG, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADEG <- tmc_ex_adeg -#' " -#' ), +#' data = data, #' modules = modules( #' tm_t_shift_by_arm_by_worst( #' label = "Shift by Arm Table", @@ -228,7 +234,8 @@ template_shift_by_arm_by_worst <- function(dataname, #' ), #' worst_flag = choices_selected( #' value_choices(ADEG, "WORS02FL"), -#' selected = "Y", fixed = TRUE +#' selected = "Y", +#' fixed = TRUE #' ), #' aval_var = choices_selected( #' variable_choices(ADEG, c("AVALC", "ANRIND")), diff --git a/R/tm_t_shift_by_grade.R b/R/tm_t_shift_by_grade.R index 79230f1f1..6d7e44799 100644 --- a/R/tm_t_shift_by_grade.R +++ b/R/tm_t_shift_by_grade.R @@ -472,19 +472,25 @@ template_shift_by_grade <- function(parentname, #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples -#' ADSL <- tmc_ex_adsl -#' ADLB <- tmc_ex_adlb +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADLB <- tmc_ex_adlb +#' }) +#' datanames(data) <- c("ADSL", "ADLB") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADLB <- data[["ADLB"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADLB = ADLB, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADLB <- tmc_ex_adlb -#' " -#' ), +#' data = data, #' modules = modules( #' tm_t_shift_by_grade( #' label = "Grade Laboratory Abnormality Table", diff --git a/R/tm_t_smq.R b/R/tm_t_smq.R index 106cbac5c..5dc1c5310 100644 --- a/R/tm_t_smq.R +++ b/R/tm_t_smq.R @@ -316,6 +316,11 @@ template_smq <- function(dataname, #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' data <- teal_data() #' data <- within(data, { @@ -336,10 +341,8 @@ template_smq <- function(dataname, #' fixed = TRUE #' ) #' }) -#' -#' datanames <- c("ADSL", "ADAE") -#' datanames(data) <- datanames -#' join_keys(data) <- default_cdisc_join_keys[datanames] +#' datanames(data) <- c("ADSL", "ADAE") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] #' #' app <- init( #' data = data, diff --git a/R/tm_t_summary.R b/R/tm_t_summary.R index 26cea7a4b..c963ddc74 100644 --- a/R/tm_t_summary.R +++ b/R/tm_t_summary.R @@ -223,19 +223,25 @@ template_summary <- function(dataname, #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples #' # Preparation of the test case - use `EOSDY` and `DCSREAS` variables to demonstrate missing data. -#' ADSL <- tmc_ex_adsl -#' ADSL$EOSDY[1] <- NA_integer_ +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADSL$EOSDY[1] <- NA_integer_ +#' }) +#' datanames(data) <- c("ADSL") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADSL$EOSDY[1] <- NA_integer_ -#' " -#' ), +#' data = data, #' modules = modules( #' tm_t_summary( #' label = "Demographic Table", diff --git a/R/tm_t_summary_by.R b/R/tm_t_summary_by.R index f9f0d80a6..229731e27 100644 --- a/R/tm_t_summary_by.R +++ b/R/tm_t_summary_by.R @@ -321,19 +321,25 @@ template_summary_by <- function(parentname, #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples -#' ADSL <- tmc_ex_adsl -#' ADLB <- tmc_ex_adlb +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADLB <- tmc_ex_adlb +#' }) +#' datanames(data) <- c("ADSL", "ADLB") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADLB <- data[["ADLB"]] #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADLB = ADLB, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADLB <- tmc_ex_adlb -#' " -#' ), +#' data = data, #' modules = modules( #' tm_t_summary_by( #' label = "Summary by Row Groups Table", diff --git a/R/tm_t_tte.R b/R/tm_t_tte.R index cd056a11f..2834fd29c 100644 --- a/R/tm_t_tte.R +++ b/R/tm_t_tte.R @@ -401,9 +401,22 @@ template_tte <- function(dataname = "ANL", #' #' @inherit module_arguments return seealso #' +#' @examplesShinylive +#' library(teal.modules.clinical) +#' interactive <- function() TRUE +#' {{ next_example }} +#' #' @examples -#' ADSL <- tmc_ex_adsl -#' ADTTE <- tmc_ex_adtte +#' data <- teal_data() +#' data <- within(data, { +#' ADSL <- tmc_ex_adsl +#' ADTTE <- tmc_ex_adtte +#' }) +#' datanames(data) <- c("ADSL", "ADTTE") +#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' +#' ADSL <- data[["ADSL"]] +#' ADTTE <- data[["ADTTE"]] #' #' arm_ref_comp <- list( #' ACTARMCD = list( @@ -417,14 +430,7 @@ template_tte <- function(dataname = "ANL", #' ) #' #' app <- init( -#' data = cdisc_data( -#' ADSL = ADSL, -#' ADTTE = ADTTE, -#' code = " -#' ADSL <- tmc_ex_adsl -#' ADTTE <- tmc_ex_adtte -#' " -#' ), +#' data = data, #' modules = modules( #' tm_t_tte( #' label = "Time To Event Table", diff --git a/README.md b/README.md index ce6ae4390..0d396f854 100644 --- a/README.md +++ b/README.md @@ -71,6 +71,13 @@ pak::pak("insightsengineering/teal.modules.clinical") To understand how to use this package, please refer to the [Getting Started](https://insightsengineering.github.io/teal.modules.clinical/latest-tag/articles/teal-modules-clinical.html) article, which provides multiple examples of code implementation. +## Playground + +You can try out the package without installing it in the Shinylive: + +* [stable](https://shinylive.io/r/editor/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA6EMAF8AukA) +* [development](https://shinylive.io/r/editor/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMI1UgSxIGcAKAdzgCMAnAfVQGsA5jy5xURRgAIAvJILMAOmC4BaAK4Q6ANzhdGcJTMlKAFqVKpGiAPTXUJqFxhQdeuBlUbtu-RgAmcFpKuJKCcKQA8rQMEIpg7Nx8QiJiEkoAlJkKEAA2dNyOAJ7M5FA5GDBEfmo5cIwYBHmaBGXp2WAAvgC6QA) + ## Getting help If you encounter a bug or have a feature request, please file an issue. For questions, discussions, and staying up to date, please use the `teal` channel in the [`pharmaverse` slack workspace](https://pharmaverse.slack.com). diff --git a/inst/WORDLIST b/inst/WORDLIST index e9d7e9fb1..8dd5973dd 100644 --- a/inst/WORDLIST +++ b/inst/WORDLIST @@ -12,6 +12,7 @@ MedDRA NSE Rua SMQ +Shinylive TLG UI Univariable diff --git a/man/tm_a_gee.Rd b/man/tm_a_gee.Rd index 48d1c1136..e9333ea22 100644 --- a/man/tm_a_gee.Rd +++ b/man/tm_a_gee.Rd @@ -78,6 +78,7 @@ This module produces an analysis table using Generalized Estimating Equations (G } \examples{ library(dplyr) + data <- teal_data() data <- within(data, { ADSL <- tmc_ex_adsl @@ -93,9 +94,8 @@ data <- within(data, { ) \%>\% droplevels() }) -datanames <- c("ADSL", "ADQS") -datanames(data) <- datanames -join_keys(data) <- default_cdisc_join_keys[datanames] +datanames(data) <- c("ADSL", "ADQS") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] app <- init( data = data, @@ -124,3 +124,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeUAipV1DU2t7fwAjqI6AKQAfNM9Jca01OSM7KUAQtUAYrUAhAC8OgpgAJqnOgBkZdt7AEw6RyfnpzZzCxAlJTCCoeTsRbfUoANQAkpUwbYdMcoOJjFB1ER1qCIVC5LggSVUZDbAA5GE6ZgQADWG3BuLx73mWO+cIwCKR62pn2+bJ09IggngjBk1hmNK+7JK9MZpGR1kxQrZoNK1U2YIJx1ltT0OgArAAGHQAYh0AClBKJSByplAvq1YD5dOKdABzOAmsL0bKeHQUbxEbKkDBAllA-iMIjW7TUUTxCAAXwCeWg8HDeRsyQIgLAFRqpwKpwqAzeSgAVl6IFESXBWAnEkmjPw4AjhKQogR+LRRE1C9kS2XRMBY7AxLlKwBdVzQdB1bLpQFCvKEvJSn4CYRiQl8IQicNAhrtKIOuBT4XUKD0ODUQmnADiThceFpvfgZ7T-UqmdpUE03Ci78YhIIGS9BDEKJRBPOB1DgfhUxVBU8UzExaBacDCXsZwMVpWh+E-Fgfz-GRAOAkQwIglNTgcSoHE2fUwXKWDTjIiiqLeLMwFI8jKOosBUOlOlGBgTDv2OX9-zwkDCPYYi0ywABZGiJMkgBhdiMReUopMY2lNBbdI+OwoTRCAkTyCIyCKShGScShGCOKY8zbDUriSlQFhYCbHTcL0-DQMM-dhR0QS3MJd9qEEOBGxwgCK1CYBgGzJ9TkHQcmIABRU0p5PYpKUukqzaRKDzCIfHYAGlIQMHYAHVNlOWlOOFYhNG0gSwuEgivPEzZSkqa9rMvGTOoADRk9rOsQGzGJ0PEHGqaoAjZGadACAJaGMHR2G9VREQ0bRrBsIohVELIIFYUp0HYNBUAAEkEWgCjO87gMYbR-CUSMlDASNByAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_a_mmrm.Rd b/man/tm_a_mmrm.Rd index 852408d3f..66cb4881e 100644 --- a/man/tm_a_mmrm.Rd +++ b/man/tm_a_mmrm.Rd @@ -109,6 +109,7 @@ numerical precision. } \examples{ library(dplyr) + arm_ref_comp <- list( ARMCD = list( ref = "ARM B", @@ -130,10 +131,9 @@ data <- within(data, { as.factor() #' making consecutive numeric factor ) }) +datanames(data) <- c("ADSL", "ADQS") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] -datanames <- c("ADSL", "ADQS") -datanames(data) <- datanames -join_keys(data) <- default_cdisc_join_keys[datanames] app <- init( data = data, modules = modules( @@ -162,3 +162,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEosMAD6jHDGIcQwqPpGdKKk7Eo6OgCCWACyAMIAIjoAvDoJSSmpOuHGhToKYBmZOgBCtbhlqdGxRQTJdVnpLTW9Ddm1AakBAUr8UKRQcTpc1CHTs9ZTM3OGOgDutKQAFrQQ7CtQuDogZWm5AMoAMvOkMAQhcAAeIVD8otRXuQCKN0ez1eHy+AEdRDoAKQAPmhbRMtGo5EY7DSjTuADEHgBCIq1ACatR0ADJ0picQAmHT4wbEsA2OEIiDlJEo1TogBqAEkbjzbDCjtCdN1agB1JxOADSOgAjDpcmlCToABwDCVS2U0pUquUAVg1YElMp0AGZFcqdFSqaMmfDETBBLNyMlWWz0rz+YKilBxMYoOoiGi0l6BXJWu62aG+QKAHLVZgQADW3Njtjj9pZHvKfowAaDaKziLZeYggngjBk1hhDqjHrzBdIwZrAGIAOQ6GBQZNHADmopIojgBGdWl05crMhMgebjERAQAvgFTtB4KIThsbFsxXVbncjddAaMlAArIhHELJuCsDenbdGfgRKDCUhRfi0UQvc+X6+34CrrAYibrMcgALquNA6DzEcexuqkpzVKckapHwQgiFCRRocIwGIk8nwhDAMCMDA8EetQUD0HA1DVLUmSZFkLQljogHwLRe7HngzFQJo3AhLxjDVAQ+wXgQYghMOIjqHA-DsLuoZpAeeCDNkAASADioznLUClKRGzG0Pw-EsEJIkyOJkkjuQsm7g4NwOI0ABSPK5Ea9lOS5WmDHZDnOa5jIoQ2JHGYJXRmWJogSdRVkyXJPT1IeWR5F5OmMQFzGaJ+ewhaZokWdF0k2fFYa2IeJVxildQlVp3HBZUUREDE1TBGEEQNTEgVsqgLCwAQ-C5eZkWWYVZE5sJeWYTovHUIIcBROFwGnMAwA6QCNy1GBYHaWAAAKGRpDk-nbXtWAHTV9ZssN1nsVi0r8gYWLis0YDMfpF2DpoOVhRNUVSdZcW1I0aQ3C4yk6epoPbSDAAaRpAyDiAxt6Xlxg4dx3GM5SYxMSi0FU7BHKis7jtYNiXO6oiHBArBpOg7BoKgAAkgi0OcDOM8OjDaP4SiLkoYCLmBQA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_g_barchart_simple.Rd b/man/tm_g_barchart_simple.Rd index f73cb44cc..e30f4a501 100644 --- a/man/tm_g_barchart_simple.Rd +++ b/man/tm_g_barchart_simple.Rd @@ -62,22 +62,22 @@ Categories can be defined up to four levels deep and are defined through the \co library(nestcolor) library(dplyr) -ADSL <- tmc_ex_adsl \%>\% - mutate(ITTFL = factor("Y") \%>\% - with_label("Intent-To-Treat Population Flag")) -ADAE <- tmc_ex_adae \%>\% - filter(!((AETOXGR == 1) & (AESEV == "MILD") & (ARM == "A: Drug X"))) +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl \%>\% + mutate(ITTFL = factor("Y") \%>\% + with_label("Intent-To-Treat Population Flag")) + ADAE <- tmc_ex_adae \%>\% + filter(!((AETOXGR == 1) & (AESEV == "MILD") & (ARM == "A: Drug X"))) +}) +datanames(data) <- c("ADSL", "ADAE") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADAE <- data[["ADAE"]] app <- init( - data = cdisc_data( - ADSL = ADSL, - ADAE = ADAE, - code = "ADSL <- tmc_ex_adsl \%>\% - mutate(ITTFL = factor(\"Y\") \%>\% - with_label(\"Intent-To-Treat Population Flag\")) - ADAE <- tmc_ex_adae \%>\% - filter(!((AETOXGR == 1) & (AESEV == \"MILD\") & (ARM == \"A: Drug X\")))" - ), + data = data, modules = modules( tm_g_barchart_simple( label = "ADAE Analysis", @@ -179,3 +179,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAygAyyTqkMARpcAAeaVD8otQ6AKQAfBP1DTowgonk7ACStrYAYp0AvCZQ6gHsCmAAmic207MQ8-NFpWnUUPRw1MdgqypkBrZEP4xwBI6AAKRFQwgSlhumyeAHMLkEGi1Gk4uj0+oNhvFdFc5g1jLRqORGOwAITsdgo2wAeQAGgBxLA6HZ7ACMNgAZDpKU5Wk4AGrMvYnACyq3azQuOi5lKwIqFOhOjUQOmajEEsJ0tIRQQAvkFctB4KJKokbPkCO8Wh0TjUlc0URclAArIjlNIAazgrBNuXNRn4cGMUGEpDSBH4tFEfVd7q9PuAhtgYlNUDkAF1YtbOvlcsBgPabWB05mIMjUbmqvn7Y7i6WlGhUF1ysVjjcdLlmR2qrg5nwhCJRF3+8IU3jujA0rC0vQWAQSiww6JaDBInA27cGk8XuNhWBy01oFFl6JbeOGgMu7l+gNSGol6g4Jbz-Mk-Au4X2mf25udKJXk+pBdv+IjqGkoiPs+P6-jo85ugQYhdpoLC0M8IjhiU8FjtBMFNG07S9jhMFQbhv5KnKtqKvuADCtiNBReBUXy2p4C+uEnFgjTUS4jEnOsWxfrxYCtI0mzbJRJytPYjR0QATCcbGboipFyIRpF-gB6hwPwH40XRDFqaRixErQa5dpsjTtHyinKbcqkvgS1C7jodCiKQG4wdegx3gcD5Ph5uFvroe7Zt+6kgYBwGaX5JHqbBmEyIhezIYwqH0OhcGJSaim-tmhlxbBAUFVR9EihJemleVzFhcVDQcVxPF2h8GziUJIliYJTVSZxckKURuG2Sp+WkRFWk6Xu1Wsf1m7GRoZl7BZVkuNNDSDXZw23F5t73uBkFFb+QW6eWNW4aNQF7Gdu3+Tl8yZQhQ7JShaFwBhWEmuWNTPvuTg0gyWDlSifL8gDvJOP9YByPZK3zGd2ldgAcg47QETdDSzaZIjmZZ1nQ2t8x41Dv5DMGCHnS5UbuYpW0+WBEHXdDh0hQ6jU3WdUWgTF+3EQl91IU96UvXdKYfYVSo-XSjIg0DUtgwiG0wbD40leLf0nUZoYY8FOiLTj6l46t8sNNTO107FgVVEaWufmrv5sxd0VXWbpFCw9OgpWlGU89htV5ajt1c+p5FlUJXH6cHXVOCxhukfV3HlfxrVdaJidMdJvVgH7q1+4TcWKwjSMo9DaMa-N2vY8tes2S+Oe3KwaQk3AZOuZT03G75jsB6+FvJkdzM25udsaRzHd+y7fOpc9r1ZZSzOfVaKuSyHoPA0vfLg5D0e3HnIXL-3v7o6XOsVypNnR23tN7TdjMlfhe8w9F7OASPRfxW948e4LXvZS-SL4Zvm5OwKkHAGtFKptUjnfdiYBOJxyEgnTqTFk4IMkmnRo8kM4-x0PrJS-8Gjbx0IjZGuCFgl0xgtcuN1sEE3HMpIIQRaDGG5OUYkvktDrkhrUOYogygQFYI0dA7BGwABJBC0BqMI-8jBtAxAgLqJQYBdTpiAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_g_ci.Rd b/man/tm_g_ci.Rd index c08afa351..d43f5cfb8 100644 --- a/man/tm_g_ci.Rd +++ b/man/tm_g_ci.Rd @@ -60,18 +60,19 @@ This module produces a \code{\link[ggplot2:ggplot]{ggplot2::ggplot()}} type conf \examples{ library(nestcolor) -ADSL <- tmc_ex_adsl -ADLB <- tmc_ex_adlb +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADLB <- tmc_ex_adlb +}) +datanames(data) <- c("ADSL", "ADLB") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADLB <- data[["ADLB"]] app <- init( - data = cdisc_data( - ADSL = ADSL, - ADLB = ADLB, - code = " - ADSL <- tmc_ex_adsl - ADLB <- tmc_ex_adlb - " - ), + data = data, modules = modules( tm_g_ci( label = "Confidence Interval Plot", @@ -121,10 +122,6 @@ app <- init( ) ) ) - ), - header = "Example of Confidence Interval Plot", - footer = tags$p( - class = "text-muted", "Source: `teal.modules.clinical::tm_g_ci`" ) ) if (interactive()) { @@ -136,3 +133,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQSvxQpFD6RlzUAPqh4dYhYRGGOgDutKQAFrQQ7PFQuDogSjo6AIIAIgDKADKROqQwBDFwAB4xUPyi1KUVlbUAQg1NLe2d-NT0SgC+QQXQ8KL5yTapBOwKYFV1W0VbVUNbQQBWRLkxANZwrMsFa0b8cMZQwqQxBPy0oi1nF9e3YALWBiFbhOQAXVcEB29VSBWAwAONVqWwhUJhA2G8OSiORRzA6OhaFQDVymU2EDKBR0AF4dAVcH0+EIRKI6ToWcJQX0yk0YgBzD60SllMU6ahQehwagcrYAYRIxloT3MugAkipGJpuDoAAr+Uh7Xlijo6xgcgqtNqkNTvUSoOAbE3i4HwOXbFHGqnisWiGVO0gc-0idQxB1O0W+8UELLnAhiDnO7ZYACy8sqex0W0GqawAGksAAmY5Mn3RsohwNwfhJzYp9OZsByMsVsUwN60VAiDkAMXKtWqTlbbZMtDaNb7A6HLrFQWjLdnrBi5styWttqgYYjzvLvrdunp+MG3rbyuo5At9LoolIUbPtAvqnDjt3o7F5vZR7AevKWHKjanu+OixvGibXnA2jUMshyDAAJL+-6Noue5tlW6iThBUEwViCF-gBGZyMAACMEIju+HYXl2Pb0v2g7DrO0aStKsrftUAbqBKUqIFsjFzuRFbnpeL6Rnx4qfh65QAGrqtU6q2EB76gTI4ESpBMo4UMcHSbJ8kocBOjoeQtZYRp7CwdpMlybYRGkQJbaURo3aHjodFDvZFbMTKHrsaGQaaN8mQ8WAYk6POFb6RWRnBhx9qvvenlSt537lNA1CsAAXpOUncIIcCKRWykJl+IH1tJA5ZgqAASADipahUZmHZtsUkVXgoWOdRLluQxqG+sqE4ma504uH1ZTheKkUxkQ-hXgy67tJu27xXxB6SV67VjYZsUxX5IlvqOXmsc1iqzTo9CsDo5q0FKIgFdGRWqcmQ4ABqVWA1T2OUtjlMR72ff+P0ls2Hnio1Q3PV9P1-SDHWds5U70aDYoDU1PV8RNc4muFQRBLQxg6OwuSXluGjaNYNglD6og5BArDlOg7AknBgi0EUzP+tqqhBDMShgDMEJAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_g_forest_rsp.Rd b/man/tm_g_forest_rsp.Rd index 5af8de8f4..124270038 100644 --- a/man/tm_g_forest_rsp.Rd +++ b/man/tm_g_forest_rsp.Rd @@ -124,11 +124,19 @@ This module produces a grid-style forest plot for response data with ADaM struct library(nestcolor) library(dplyr) -ADSL <- tmc_ex_adsl -ADRS <- tmc_ex_adrs \%>\% - mutate(AVALC = d_onco_rsp_label(AVALC) \%>\% - with_label("Character Result/Finding")) \%>\% - filter(PARAMCD != "OVRINV" | AVISIT == "FOLLOW UP") +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADRS <- tmc_ex_adrs \%>\% + mutate(AVALC = d_onco_rsp_label(AVALC) \%>\% + with_label("Character Result/Finding")) \%>\% + filter(PARAMCD != "OVRINV" | AVISIT == "FOLLOW UP") +}) +datanames(data) <- c("ADSL", "ADRS") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADRS <- data[["ADRS"]] arm_ref_comp <- list( ARM = list( @@ -142,17 +150,7 @@ arm_ref_comp <- list( ) app <- init( - data = cdisc_data( - ADSL = ADSL, - ADRS = ADRS, - code = " - ADSL <- tmc_ex_adsl - ADRS <- tmc_ex_adrs \%>\% - mutate(AVALC = d_onco_rsp_label(AVALC) \%>\% - with_label(\"Character Result/Finding\")) \%>\% - filter(PARAMCD != \"OVRINV\" | AVISIT == \"FOLLOW UP\") - " - ), + data = data, modules = modules( tm_g_forest_rsp( label = "Forest Response", @@ -207,3 +205,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAygAyyTqkMARpcAAeaVD8otT1Tc1YrV09fYPD-IyiOgCkAHyrEw0wgonk7I0Aao3tAMI6ALw6-GkkxGnLqGnUUPRw1Icn5zYbWxANQGFYolF5vD7sBRgM4lFhQdSqHRYMTCUgAegAYuV+OUAOZQuS-TbbEy0ajkRjsAAKjSwjQAsmdmjoAITXKEAeSOWAAkgA5I5QnQAHyaRx5rR5tiu7LAGI57XaHIA6joHFSCUoAL5BXLQeCiSqJGz5AiQsAtDpQmpQlrTTUQABWRHKaQA1nBWIbciajPw4MYoKi0gQcaI+s7XR6vcA9bAxEaoHIALqxS2dfK5YDAW1tdpQ5OpiB2maZqrZ3P2sCF2IsGCPAMhogwVBdOiiUiQgFNLD0q46dudkmMAP9qEAIUQOiprwIcHoRGtJOILf7ZttU+ajEEuJ0AA1rTooWcp2dm-RyglLBAHQ05LgJrTGczroOu0CR8Yxxbezpx0vuwaFdW2udcfz7RpD1tX8zlvHQgiCJQ0FbfJymKd8biqftcgfbs+CEEQVmufDhATEkejSXE0mMAIfEeURUAwoFXneahvwxWiOyRMRUBIUQ4AAoEGjjeBvxLQShLrNJNBYNcShdOdRDSfiRARfgmKEmTGFoN4RBDeSZATdMajAp8oPApkCXvEkgWg58oRs+DcKEnQpM-JtV2uNzG2A5yhNQOFen4OSFLEZSPjgNSNKBGTqEEOB9NCw0SxtMAaTpey8CPNLaQZAk-JcqF+SOJxbAcwDAWsiqGlEQR6FxRgiEEZ4tJCwylJUyLyHUxyGi0nT6D0ggDMUw48xqfUjLzQkCqEsDx3pLAAGksAAJnM1onAPMAghcqqXI7ZhEmk2TQJGsLOqi3qdH63SEuGpKxo6EzzVaexGlsRoAEYNvez71p2-aXOyt66X+8q9tmhpIiIUg0hKOBaFxEpSDXdgADYAAZMfaGpVux3GdHxgmgaBf1A2DEcGL4sR+zfa7xycVppipHk6doDtoqEp40ahVpEkG3Rmg5uAoH4nR2FaZpFCyqE+VhnQnFiwQ7olvknBl0ngZEbRqCInR12q4Hj2bSI4HIbjqYgcX2DOLAZdSqkWA0bhLd463dGpe2NoFkQdGF-ixc9qWHeu2y0sahqxFELQhZFoOJapaXzPl1Gle4FXBbVjWIeBu9rq1oFitK9nObDnQedA80zxbEQLeRK2bbth3sqdxgXbYhv3ZtqlvZ2qGhJ1j59cNvPw5rs3654mmJeblOFfTuLVfYdWW6hNuO7dmevdDo3Cojogo9EGPtH9+Oe+T2WwH51WA9Fm2Q9zvPduBwvAS5XkBVLoc98BSuDfNFSSOVMT5x0DhfNe19fZgPvsHS+b9mJwF1iPQBwDo6xzPuAz2SdIE3yznfBOktL6pVTorZWy9V5wT2o5F++duwISULQL87BygUnhBobQ1gbB1G7KIMoEBWCNHQOwZCAASQQtAahiP4owbQMQIBaiUGALUyYgA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_g_forest_tte.Rd b/man/tm_g_forest_tte.Rd index 7006fb376..b5430e246 100644 --- a/man/tm_g_forest_tte.Rd +++ b/man/tm_g_forest_tte.Rd @@ -123,10 +123,19 @@ This module produces a grid-style forest plot for time-to-event data with ADaM s } \examples{ library(nestcolor) +library(dplyr) -ADSL <- tmc_ex_adsl -ADTTE <- tmc_ex_adtte -ADSL$RACE <- droplevels(ADSL$RACE) \%>\% with_label("Race") +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADTTE <- tmc_ex_adtte + ADSL$RACE <- droplevels(ADSL$RACE) \%>\% with_label("Race") +}) +datanames(data) <- c("ADSL", "ADTTE") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADTTE <- data[["ADTTE"]] arm_ref_comp <- list( ARM = list( @@ -140,15 +149,7 @@ arm_ref_comp <- list( ) app <- init( - data = cdisc_data( - ADSL = ADSL, - ADTTE = ADTTE, - code = " - ADSL <- tmc_ex_adsl - ADTTE <- tmc_ex_adtte - ADSL$RACE <- droplevels(ADSL$RACE) \%>\% with_label(\"Race\") - " - ), + data = data, modules = modules( tm_g_forest_tte( label = "Forest Survival", @@ -182,3 +183,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAygAyyTqkMARpcAAeaVD8otT1Tc22tk5dPX2Dw-yk5BMtHQAkWI0AwrP5-IxEkXDa1KLs6+1bu042AKQAfPeFxSVp1FD0cNTsCmBYKAEOD-IIAXyCuWg8AuuRs+QIfzAV3+NX+LWmLjAQQAVkRymkANZwViwqrwoz8ODGKDCUhpAj8WiiPp4gnE0nAKGwMSVRJyAC6sSuXVywGA6La7X+AqFEAxM1FVXFksxMrlShYMDSjGpDKIMFQXToolIfwgDUaWAAsjoALw6E1miYNXXGe06f4AIUQOgACp9gfQiKiXTpiIaPYj0b7moxBABzHQADVRnrAO19OwN9HKCUsEFBEzkuDWNp2zQ9TvNDVd1I96JtOi9oYttYjRod0eRTcaacbtp2RbbQSCmvQXXKxRrOlyHtypbbfCEIlEHuXwl5YZ6aQTaWMAR8aRWcBntcdXx+DbAADFD6adK1BIxNFpuK3zw1ufBrwqsYvPx0LU0k0FgoxKfFgVENJRB+OB1Dgfgz0-UDGFoL4RAZCCZF5K4am7K1rX7HtrQrUESzDc8BzIsBKJ0Ci23PYC3X1SMHWYvUOwAz9UBYWBGXAyCxBguCEKQuiGlA6hBDgLChIuP80TAP0rUaUjmmIlTtiI7FuMA-4AHlWn+OiGMA0RBHoBMjkEVAQLArtsKgkSRDE5Dz1Q9D6EwggnNwqUamhfyOjkMzAPDJEvWtLAAGksAAJmI1onFTbFTL02tTWYRJ7MYQScOg2DXPIcTGJQlgvJ8vyFICiL-laexGlsRoAEYksa5rEuxML9LABrtk6kyyoaIJz1G+ilCCWh3XYcpyDUDRtGsGw6jbUQyggVhGnQdg0FQDZBFoGo9o2WCX1UcElDAMEBSAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_g_ipp.Rd b/man/tm_g_ipp.Rd index 915a60c31..7c70ab6c5 100644 --- a/man/tm_g_ipp.Rd +++ b/man/tm_g_ipp.Rd @@ -104,24 +104,24 @@ values over time for each patient, using data with ADaM structure. library(nestcolor) library(dplyr) -ADSL <- tmc_ex_adsl \%>\% - slice(1:20) \%>\% - df_explicit_na() -ADLB <- tmc_ex_adlb \%>\% - filter(USUBJID \%in\% ADSL$USUBJID) \%>\% - df_explicit_na() \%>\% - filter(AVISIT != "SCREENING") +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl \%>\% + slice(1:20) \%>\% + df_explicit_na() + ADLB <- tmc_ex_adlb \%>\% + filter(USUBJID \%in\% ADSL$USUBJID) \%>\% + df_explicit_na() \%>\% + filter(AVISIT != "SCREENING") +}) +datanames(data) <- c("ADSL", "ADLB") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADLB <- data[["ADLB"]] app <- init( - data = cdisc_data( - ADSL = ADSL, - ADLB = ADLB, - code = " - ADSL <- tmc_ex_adsl \%>\% slice(1:20) \%>\% df_explicit_na() - ADLB <- tmc_ex_adlb \%>\% filter(USUBJID \%in\% ADSL$USUBJID) \%>\% - df_explicit_na() \%>\% filter(AVISIT != \"SCREENING\") - " - ), + data = data, modules = modules( tm_g_ipp( label = "Individual Patient Plot", @@ -171,3 +171,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAygAyyTqkMARpcAAeaVD8otQ6AKQAfBP1DTpjMnDsAIyIAEwADDbTsxDzOvzG-QORMsVp0Nn7Tc3tAEJdPX2Dw-zU9JMzcw3GtNTkRjsBytBz3ABSAElmpNyhNbh0ACQgsFQ5o7b43BpHE5nAgXK4YvYHP4A1TsRoANUhrUhth0AEIALw6BRgVoAYSwTicADlIbyAOJsoIAXyCuWg8FElUSNnyBHYbJaHTZNWVd3uIqUACsiOU0gBrOCsGW5eVGfhwYxQYSkNIEfi0UR9PUG42m4CS2BiWVQOQAXViKs6+VywGAGtVYADQYgLQeXXDkbACa1MbjSjQqC65WKSpuuR0LNyuDmfCEIlExZ0FeEvp+3RgaQA5mlaOgCwcGtQoPQ4OMWWzIXEtLQhNwdAAFBK0Cikaf+UhqxvYqpS3RD1OaldY+YsZuaFg1gglfUEMRpUQDuDqOD8LvdhpH6iCOAOs9LGVp9WprAAWQ5ZoRTLPcDmVACmjZVcdDkUCn1QFhYEdE9PwvUQrxvO8Hxg59uDfD9z19H9WTAKdGiwRpAOAsA4Nw0jGnaWxoLA2D4O7KAXzSI9GFQoiMOvERsMfJ8eNoPsREIr8KU1GpFWVSlGLVUiOQACWFWi6NYhoFKUsAYK0p9OPw7jjxZU9+MwoTyBw7SdDEiT3ws6SSPk1NFPaBwRUMp8GI8ry8Hov4BnvGt7GcAz2IOcdTN48y0MvQTbxskTuwc+hJOc9CZIeOSlTAFEIWhbyou7NlCrRXdfJMWgQv4MLHBcVifIOTRnQuHi+K-KzkvvVLWpYcSMqchLv1knQ3KpGk6RK+iFOm5j9Oa0qGnoKBBPKd9OviyykuE+j0sy0acvuPK2XuRpWhcTSVvmc7Luu27flq0KWXCpqnxa-d+H4NI1o27w0hKKRNx0AAxRirtu69EOYcg-tYNIiHoasWQh9orsbIIGiCIJaGMHR2HKQEoAsbRrBsOoblEMoIFYRpO2zRFBFoGomevRhtBiCBRSUMBRQDIA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_g_km.Rd b/man/tm_g_km.Rd index 864a4b0be..0e29def52 100644 --- a/man/tm_g_km.Rd +++ b/man/tm_g_km.Rd @@ -111,8 +111,16 @@ This module produces a \code{ggplot}-style Kaplan-Meier plot for data with ADaM \examples{ library(nestcolor) -ADSL <- tmc_ex_adsl -ADTTE <- tmc_ex_adtte +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADTTE <- tmc_ex_adtte +}) +datanames(data) <- c("ADSL", "ADTTE") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADTTE <- data[["ADTTE"]] arm_ref_comp <- list( ACTARMCD = list( @@ -126,14 +134,7 @@ arm_ref_comp <- list( ) app <- init( - data = cdisc_data( - ADSL = ADSL, - ADTTE = ADTTE, - code = " - ADSL <- tmc_ex_adsl - ADTTE <- tmc_ex_adtte - " - ), + data = data, modules = modules( tm_g_km( label = "Kaplan-Meier Plot", @@ -167,3 +168,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQSvxQpFD6RlzUAPqh4dYhYRGGOgDutKQAFrQQ7PFQuDogSjo6AIIAIgDKADKROqQwBDFwAB4xUPyi1KUVlba2Tg1NLe2d-KTkSgC+QQXQ8KL5yTapBOwKYFV1W0VbVYMuYEEAVkS5MQDWcKzLBWtG-HDGUMKkMQT8tKIt55c3O7ABawMQrcJyAC6rggO3qqQKwGABxqtS2kOhsIGQwaiOR22xxwxMJYMBijBenyIMFQDToolImwgZXKAGFbOUsABZVmVHQAXh09MZfTKFOMAp0B25OgAQntRTpiDTJRtpVyKnspdsZaytkEynJcH1ORrBcKmWUxS9JVtZYgdAAFahQAhwehEBXMq3K2mCtXbB2VRiCADmOgAGlqtqyHazqfRcmFLMETn0gkElGhaalcplLToCpKCsbvXwhCJRJLy8IwYqmjFQ9cYAWrUKoPQ4NRbWAANJoF0QAxcuC0VRO-ykL1tsog+A9w5Dacz0kxTQsVVZC5u0QxURduDqOD8Vsz9eMWgdkSfLcyMFwooB03RnU8yovtkc7m8-VGxVt9Utn-HQ-29NtUBYWAvk3bcxD3A8jxPYCynXahBDgG9YOWRcnH2MBHU5co3xfAisCI-VSxnK0tgAeWqICwKtUCqNXcUqRVQVWMpX1KJnBlmHCNcN39W8d3gkRENPNtz0vehrwIUT71RR9NjAaonCjPBtVlLksF7LAACZf14qitnUzTgOYmdXjdD5zxgu9d33CTyCQxjpJYWT5MU7DlKVVTzJfHS9MM4zkJ0AA5BxajRdyQMVA14ogIJaAldhcnINQNG0awbBKb1RByCBWHKdB2GzAASQRaCKSr90YbRAlmJQwBmSEgA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_g_lineplot.Rd b/man/tm_g_lineplot.Rd index 5831b28a5..1ad25a410 100644 --- a/man/tm_g_lineplot.Rd +++ b/man/tm_g_lineplot.Rd @@ -115,18 +115,20 @@ library(nestcolor) library(dplyr) library(forcats) -ADSL <- tmc_ex_adsl -ADLB <- tmc_ex_adlb \%>\% mutate(AVISIT == fct_reorder(AVISIT, AVISITN, min)) +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADLB <- tmc_ex_adlb \%>\% + mutate(AVISIT == fct_reorder(AVISIT, AVISITN, min)) +}) +datanames(data) <- c("ADSL", "ADLB") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADLB <- data[["ADLB"]] app <- init( - data = cdisc_data( - ADSL = ADSL, - ADLB = ADLB, - code = " - ADSL <- tmc_ex_adsl - ADLB <- tmc_ex_adlb \%>\% mutate(AVISIT == fct_reorder(AVISIT, AVISITN, min)) - " - ), + data = data, modules = modules( tm_g_lineplot( label = "Line Plot", @@ -155,3 +157,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBbgyhHMYBsqSiQUr8UKRQ+kZc1AD6GVnW6ZnZhjoA7rSkABa0EOFluDogSjo6AIIAIgDKADI5OqQwBPlwAB75UPyi1O1d3f0AQkMjY5PT-NT0OgCkAHx7Cx0wglnk7J0AagCSvbe2OgC8zybq+YxwAfyqV3cPWwtG73R4AORaMAaciCAF8gkUoNB4KImlkbBUCOwFGAegMcS0cT0VjiggArIgNfIAazgrFRiIxRl+xigwlI+QI-FoojGFKptPpwERyLEaKgcgAuq4IHjBhVEcBgES+v0cZLpbKlqsFWUlSqSWANTK0Kghg0atiIB1ES8dIjcAs+EIRKI7c7hGKTsMYPkAOb5KRwSJEUhWjoRnTUKD0ODUO04-oNXQABX8pAJ3ptZVFCdx2sz1sjOlEpGYWTtBFqlIIYnyojjcHUcH44eLHU0LFoMZEnOrMjFcpaWKJWAAsgSdKOxwBhbqTokz2ydcdz0lyR1F9vTnFZnQbvesSv92uieuN5utvcdrs9uB9muD7XD7G466dNV4KdgZadXouL8cRnAAJABxBcwBTEDwLAGFN3bDoiXfT89wPLcI1QFhYGPR8zwbERLzbdtO2oQR7yrXCrmfb8UxXTpZ3nQDILoidYPghCiX6Wxd3Qjogkjfj9yUIJaGMHR2Aacg1A0bRrBsNoi1EeoIFYTp0HYU0ABJBFoFotIbRhtBiCBYSUMBYUlIA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_g_pp_adverse_events.Rd b/man/tm_g_pp_adverse_events.Rd index e9a4e458e..8c1390b7c 100644 --- a/man/tm_g_pp_adverse_events.Rd +++ b/man/tm_g_pp_adverse_events.Rd @@ -83,18 +83,20 @@ This module produces an adverse events table and \code{\link[ggplot2:ggplot]{ggp library(nestcolor) library(dplyr) -ADAE <- tmc_ex_adae -ADSL <- tmc_ex_adsl \%>\% filter(USUBJID \%in\% ADAE$USUBJID) +data <- teal_data() +data <- within(data, { + ADAE <- tmc_ex_adae + ADSL <- tmc_ex_adsl \%>\% + filter(USUBJID \%in\% ADAE$USUBJID) +}) +datanames(data) <- c("ADSL", "ADAE") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADAE <- data[["ADAE"]] app <- init( - data = cdisc_data( - ADSL = ADSL, - ADAE = ADAE, - code = " - ADAE <- tmc_ex_adae - ADSL <- tmc_ex_adsl \%>\% filter(USUBJID \%in\% ADAE$USUBJID) - " - ), + data = data, modules = modules( tm_g_pp_adverse_events( label = "Adverse Events", @@ -135,3 +137,13 @@ if (interactive()) { } } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACKNTsk6pDAEaXAAHmlQ8XD1Tc0AygAyHV09-YP8otQ6AKQAfCujDca01OSM7A7jDgBCAFIAks2r5StjbQAkR6eXzUEAvkG50PCilYk2fIEdgKMAtKagmqglptUFBABWRHKaQA1nBWH9coCjPw4MYoMJSGkCPxaKIeojkWiMcBvrAxP8oHIALqxcHTfK5YDAaETSag5msiAw9qcqrc3mwsCC2JoVAdcrFEEQBq5HQAXh0uVwoz4QhEog1Oj1wgZW06MDSAHM0ugFtpGKI4L1tGQ-uaGtQoPQ4MtNdD+A6nTonK7SKJIR6tVUfrp-WDWi48FHUCwKKRY0beRDkyqGvnUxp08SiH6dKDnucrpG8-mdJEiESSnBaFaSqQjcCAGwABh7kxqACY+wOdMOR3IdbX81A4PsYJ2SkiCGI0k6ROo4PxlXW6wQlzIxEbNCxaN6RMSDyu-iKoWCnLYnFgALJwqe7-PruCb-hZ++Pl9QSjSco1IIgBitZhcUXZdVy-H8dw-HR91gw1NRPRgz3oC8UMPG9EzvNpbAAeQADQAcSwN8owaeDyF-eMiLIyigOnBoQLY5CCVEbhilYGC8LXX1v3oxCP1w69j1Pc9nQkhlb3Le8sCcfkwA4pCdDorc-zaZTVOA99dyIQRfCIeABOvISN1EmjkKvI90Ok7DZPs-C2kIpxiIcWxqM42jhJ-HTPO81iP3U3coAsEgLLggKbL8uzUKkzCZMvVD2AU6EnEaABhAA5XyNK0hjFLaXKCrAAzQNoczNTk0QrJErcxN3erkqwnDXIygjSvGWxmgATUKpDip0vrBtC3dwrrXFiBKvKHEmflpyCdilCCWhjB0dhyn2SKNG0awbDqPNRDKCBWEadB2DlB5BFoGpbqdRgHQ+JQwHeZkgA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_g_pp_patient_timeline.Rd b/man/tm_g_pp_patient_timeline.Rd index 736f62ae5..2b73f085f 100644 --- a/man/tm_g_pp_patient_timeline.Rd +++ b/man/tm_g_pp_patient_timeline.Rd @@ -101,26 +101,28 @@ library(dplyr) data <- teal_data() data <- within(data, { ADAE <- tmc_ex_adae - ADSL <- tmc_ex_adsl \%>\% filter(USUBJID \%in\% ADAE$USUBJID) - ADCM <- tmc_ex_adcm \%>\% mutate( - CMSTDY = case_when( - CMCAT == "medcl B" ~ 20, - CMCAT == "medcl C" ~ 150, - TRUE ~ 1 - ) \%>\% with_label("Study Day of Start of Medication"), - CMENDY = case_when( - CMCAT == "medcl B" ~ 700, - CMCAT == "medcl C" ~ 1000, - TRUE ~ 500 - ) \%>\% with_label("Study Day of End of Medication"), - CMASTDTM = ASTDTM, - CMAENDTM = AENDTM - ) + ADSL <- tmc_ex_adsl \%>\% + filter(USUBJID \%in\% ADAE$USUBJID) + ADCM <- tmc_ex_adcm \%>\% + mutate( + CMSTDY = case_when( + CMCAT == "medcl B" ~ 20, + CMCAT == "medcl C" ~ 150, + TRUE ~ 1 + ) \%>\% with_label("Study Day of Start of Medication"), + CMENDY = case_when( + CMCAT == "medcl B" ~ 700, + CMCAT == "medcl C" ~ 1000, + TRUE ~ 500 + ) \%>\% with_label("Study Day of End of Medication"), + CMASTDTM = ASTDTM, + CMAENDTM = AENDTM + ) }) -adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") datanames(data) <- c("ADSL", "ADAE", "ADCM") join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADAE", "ADCM")] +adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") join_keys(data)["ADCM", "ADCM"] <- adcm_keys join_keys(data)["ADAE", "ADCM"] <- c("STUDYID", "USUBJID") @@ -182,3 +184,13 @@ if (interactive()) { } } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACKNTsk6pDAEaXAAHmlQ8XD1Tc0AygAyHV09-YP8otQ6AKQAfCujDca01OSM7A7jDgBCAFIAks2r5StjbQAkR6eXzUENLQDCALIz3b0DIYEGCrDZbHQwQSJcjscENH7jWzNACaOgAvDpZKI4GkCiUKLCIA1icSfp9GrZ0RiFGB4PxJDoTjSdAA-HQAJgADLg4aTvuTKWjqbS4PTlp9mWyAIwAVm5vIa9mcrJ0Ut5NnWdyKpTS1Cg9Dg1FhYHGpEE-FYOmaUEtRGMOlNLFIOjtOm+opkCUsEBpch5RJJOh+TgAcij0ZioNjcfiKgqg-yKVSdDS6QymWAVQB2TnygOBhMC5Op0UMiWZ6W5vMFxWOdpsuWc9WgrXFEq6-WG42m82W622+1OOIu+3u-iejQkX3+gs-RqI5q2X4Y+dIpczwNz0OL5dNbdL8FBAC+QRyVWg8FElUSNnyBGNLSmNJqNJabWfKbAX2+vqUACsiHKNIAGs4FYK9clvIx+DgYwoGEUg0gIcdRB6ACgNA8DgHvV8JkmD9cPfPBP2-X0AF0lCBGAQLA0QOhwk1bAcFErgIsBnnOVjiNfBcD24sAEScABFNiKU+NV+LE9lRNsT4AGYZM+AAWX8IHQiAaPA68oDkYBcJ+UTmgMsAyI6KjNNEf9AI0zCIKqXTCJcSSjJ-Ez6O7JiWOaNiONeVTKPQDpymKQkGlyCNcg3PghBEOiMWi4QxFC4kujSABzNJ0Eyr0KEQjR4CkOBkpJPUDWWYUAAUcrIOxaAK8oRjwXlcgvHEhigXRhTfJyNxJFrYDa+kQS6lzn15VAWFy1qI1wp8mvzYkJo0XKkKIcrP18rjesW-xEPxWg0pKZ0MXvAA2XNJhqLlOUujkq0mP1eWBGDiH4CMCBKQCCDENJsREdRRWKwMPq+sQI00FhaH1EQkM+mQktyYA9K-UaTLIl8BO+ZonE+AB5bywEehaST+uAAbe4UfmxvGCe2hoiYLDr9mGzE4e+0RfsNMnyH4IGSRB+G4p0CHGCh+gYYF9ntKRxyaTI9GSKcWwnCwVyGZrUnyfeh8lZVtX1TpnQmbqnFRESRhjtZ0GOc1nm+eJSWwYxEWxYltmEaqGWUaI+WMdXHdp3jW3RW1ni1314mdHVkljfgXphxO92ba58n7YaR2hZd6GcQz6Xke6uWFdffc1cNhpg4pzEdbDPj3kDaPiUWfLTfNy2M85-67fjDPwch7PYetvP9Nc33PznXjS6DlOedDzH-drg3mrNk348r9uK7Tq3Bd70X+9zxH89R0eaS3GvJ8j8vp5Dk7jVPgPCcXyOOsYQ14lYX7W-epOO+5wHu6Tnersc5JyHt7Jyx8vwLmRIHC+OgK6z39tAh+kcG4NGfq-G0q8v7Wx-qnf+1tAF7xAQfWWaM-bbiQag4k8Cb7FzDJQx+BZFgv2oG-D+TpsGC1wV3WBPdnZ93FsAweJCUbGQgYgmBNY4FXzXg+KBqkCxUOYRg9+FA17fw3vg7e-Dd6CIHoLUBpEyGK3oZIjWMiEEUIUfXQ8owghBFoPadg5R9hQAsNoawNg6gBlEGUCArBGjoHYGgVADxBC0BqCEh42JGDaBiBAI8SgwBHjIkAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_g_pp_therapy.Rd b/man/tm_g_pp_therapy.Rd index cdbb7f202..d92f3e688 100644 --- a/man/tm_g_pp_therapy.Rd +++ b/man/tm_g_pp_therapy.Rd @@ -95,27 +95,22 @@ This module produces a patient profile therapy table and \code{\link[ggplot2:ggp library(nestcolor) library(dplyr) -ADCM <- tmc_ex_adcm -ADSL <- tmc_ex_adsl \%>\% filter(USUBJID \%in\% ADCM$USUBJID) -ADCM$CMASTDTM <- ADCM$ASTDTM -ADCM$CMAENDTM <- ADCM$AENDTM -adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") +data <- teal_data() +data <- within(data, { + ADCM <- tmc_ex_adcm + ADSL <- tmc_ex_adsl \%>\% filter(USUBJID \%in\% ADCM$USUBJID) + ADCM$CMASTDTM <- ADCM$ASTDTM + ADCM$CMAENDTM <- ADCM$AENDTM +}) + +datanames(data) <- c("ADSL", "ADCM") -join_keys <- default_cdisc_join_keys[c("ADSL", "ADCM")] -join_keys["ADCM", "ADCM"] <- adcm_keys +join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADCM")] +adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") +join_keys(data)["ADCM", "ADCM"] <- adcm_keys app <- init( - data = cdisc_data( - ADSL = ADSL, - ADCM = ADCM, - code = " - ADCM <- tmc_ex_adcm - ADSL <- tmc_ex_adsl \%>\% filter(USUBJID \%in\% ADCM$USUBJID) - ADCM$CMASTDTM <- ADCM$ASTDTM - ADCM$CMAENDTM <- ADCM$AENDTM - ", - join_keys = join_keys - ), + data = data, modules = modules( tm_g_pp_therapy( label = "Therapy", @@ -171,3 +166,13 @@ if (interactive()) { } } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAwgCyyTqkMARpcAAeaVD8BDD1Tc0AygAyXT19g8P8otQ6AKQAfOsmtNTkjOwOUw4AQgBSAJLNG+U7LR0AJMdnV81BDQ-tjx2NU7bNWydfJfR5-AFAiag35OABygOBRlBjThCKUAF8gjkqtB4KJKokbPkCOwFGAWrMyTUyV8yViIAArIjlNIAazgrHxuSJRn4cGMUGEpDSBH4tFEfSZLPZnOAJJp0xmVJ0Co6dIAukoRmM2RzRF15WB-g5mgBNa7KskvC4WvAq8n-NF2skdKZOACKlvJtlaAEYvY0fQAmAM+gDModaABY6UopRBdZyCVA5MBVe0A20M2B1V1tTBE6JYmhUF1ysVSRAGrkdABeHS5XATPhCET6+st4RiSsNBo9NIAczS6DSpVUaA4E17OmoUHocDW9bJthK49QrCpU97uVxuiX5Kzm6r050qBYFFIu7r9opSrwW4aZ40F5FREX9utbyPJ9P-mFq9oAcSlIa8SQANgABggmYaiDKCYJ0OD4LkJtj2nBJaEYBdQJKZkCDENJRAXOB1Dgfgex-HQCFwmQxGvTQWFoOcRBFGj8PxL5qW9S4sCcO8UIfXsiJEUj+FA0luN4-jBIEtDezGPliDE+tqLwgjhJI8hyMEhpVNo9sdAYxgmPoFi9PY9hOPtDpmicVoAHlmjpVDKJ0DTROvF12lshynLAGSXJPMZylGHC1NEQjiNEiif3Muj6yMkyzLY7srK8y54VaZydLcqKtM8sAOgytoyQCwSFKIIiwv0yKRK0mKgpSgzEuYuBWPCyysy4mz7LdbK5Ondz8v3Hq+v8gadFk2KYFIRgQJUpras0siGunOLmsY1r2v0zqOm69p7FsfrXKGsiCo6Q7SomqagpgfhKsEar2KW6KcvW+jNtMtr1t29p9uaXqHGOyjTuUqiJNGoGwA+E8brWmBGCIQRyCe9S8pWt6mo+4ytp+tLCvaLB7IcWwXGhwKf1B87CeJ0mrp-OH5LuyrjEYABHVGItB1b5KxhLPuSjr8dGgAxLBPXJnKqZG7zerFiWyomsZRFIfhWE5l76sx8LsaS76mt+rjwTNYHKfRsGaUdU16dhimmYoNWNe57X9N13GDfxlF4WtyWJoaaWb1RH2ZK3GGgiCWhjB0dhygOKALG0awbDqY9RDKCBWEadB2BLR5BFoGpc6IxhtBiCB0SUMB0XVIA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_g_pp_vitals.Rd b/man/tm_g_pp_vitals.Rd index ccca7aeb0..1fa694d70 100644 --- a/man/tm_g_pp_vitals.Rd +++ b/man/tm_g_pp_vitals.Rd @@ -73,18 +73,19 @@ This plot supports horizontal lines for the following 6 \code{PARAMCD} levels wh \examples{ library(nestcolor) -ADSL <- tmc_ex_adsl -ADVS <- tmc_ex_advs +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADVS <- tmc_ex_advs +}) +datanames(data) <- c("ADSL", "ADVS") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADVS <- data[["ADVS"]] app <- init( - data = cdisc_data( - ADSL = ADSL, - ADVS = ADVS, - code = " - ADSL <- tmc_ex_adsl - ADVS <- tmc_ex_advs - " - ), + data = data, modules = modules( tm_g_pp_vitals( label = "Vitals", @@ -112,3 +113,13 @@ if (interactive()) { } } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQSvxQpFD6RlzUAPqh4dYhYRGGOgDutKQAFrQQ7PFQuDogSjo6AIIAIgDKADKROqQwBDFwAB4xUPyi1KUVlQBq1Q1NLe2d-JqiSgC+QQXQ8KL5yTapBOwKYFV1W0VbVUNbQQBWRLkxANZwrMsFa0b8cMZQwqQxBPy0oi1nF9e3YALWBiFbhOQAXVcEB29VSBWAwAONVqWwhUJhg2G8OSiORRzA6OhaFQDVymU2EDKBR0AF4dAVcH0+EIRKI6ToWcJQX0yk0YgBzGLoGKaTLcZa8so6ahQehwagcrYDcXUaZ4KXU5KLXT0-HVPaanSoFgUUg6pXbFGGqnSsomjRmj5ERV6sAOaoOABCACkAJKVG12+3+d5ZOC0AVZUgcjYANgADAnakUAExJlM6dMZuRM212k3MZr8WNZc4EMQxUQKuDqOD8SnB6UEMsyMQczQsWhykQfVsV5aHar7MAABXKWHKAFkAMKBsC5o1lasiOslt3jyez+dGxf56VtKBtb6l8uVle18gNpc6Ftn9n0zuMbv0Xt3tuDrEjqoATWOeabZcazXS1fy2XcAODKBO1iJ9Tw-KtgKvRtAPfAcOy7Hs4D7e92CHb8BnKVEF0gpsLxAt1ykI4jdylIIyiCIJaGMHR2Fycg1A0bRrBsEpbVEHIIFYcp0HYEkABJBFoIoJOrRhtECWYlDAGYISAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_abnormality.Rd b/man/tm_t_abnormality.Rd index 708d8df1b..5cfb9d15b 100644 --- a/man/tm_t_abnormality.Rd +++ b/man/tm_t_abnormality.Rd @@ -101,11 +101,10 @@ Patients with the same abnormality at baseline as on the treatment visit can be excluded in accordance with GDSR specifications by using \code{exclude_base_abn}. } \examples{ +library(dplyr) data <- teal_data() data <- within(data, { - library(dplyr) - ADSL <- tmc_ex_adsl ADLB <- tmc_ex_adlb \%>\% mutate( @@ -115,9 +114,11 @@ data <- within(data, { ) \%>\% with_label("On Treatment Record Flag") ) }) -datanames <- c("ADSL", "ADLB") -datanames(data) <- datanames -join_keys(data) <- default_cdisc_join_keys[datanames] +datanames(data) <- c("ADSL", "ADLB") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADLB <- data[["ADLB"]] app <- init( data = data, @@ -126,21 +127,21 @@ app <- init( label = "Abnormality Table", dataname = "ADLB", arm_var = choices_selected( - choices = variable_choices(data[["ADSL"]], subset = c("ARM", "ARMCD")), + choices = variable_choices(ADSL, subset = c("ARM", "ARMCD")), selected = "ARM" ), add_total = FALSE, by_vars = choices_selected( - choices = variable_choices(data[["ADLB"]], subset = c("LBCAT", "PARAM", "AVISIT")), + choices = variable_choices(ADLB, subset = c("LBCAT", "PARAM", "AVISIT")), selected = c("LBCAT", "PARAM"), keep_order = TRUE ), baseline_var = choices_selected( - variable_choices(data[["ADLB"]], subset = "BNRIND"), + variable_choices(ADLB, subset = "BNRIND"), selected = "BNRIND", fixed = TRUE ), grade = choices_selected( - choices = variable_choices(data[["ADLB"]], subset = "ANRIND"), + choices = variable_choices(ADLB, subset = "ANRIND"), selected = "ANRIND", fixed = TRUE ), @@ -158,3 +159,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeXVAEJ1DU2t7fzU9DoApAB8Uz0lMIKh5OwLJToA8gBy9rYAYrUAvDqyonBRKRkUaxAb92UAagCSlc+209lTp2tglQDCWCcTm2z22AHEFHgdFD+qVKk5qmCXGAbAA-GFgKG4db3ezOHQYqEATShuJ0Nlm3zSmSi1Cg9Dg1F+mzutkYcBC8DIOiwcGIjH4On29IA5lCAvcAgBfAJ5aDwUS5RI2ZIEX4VGrYzEVAYSpQAKyI2SiAGs4KwlXlVUZ+HBjFBhKQogR+LRRE0jSbzZbgPLYGJlaE5ABdVwQTW1ZJ5YDAKGRqEhsMRvqDaOJWPx1OJ5NKNCoOrZdK3Ep5HQnPI4u46PhCESics1gTCQPrBpRZ0MiBERgwbjpDjk+mM6iN+P0bu9-ukVh2BkibHk-3wMdgXX9RfV+4sGBRTQsRsEDLGghiKLnETqOD8EsPEpHk9iRv7xi0ecXB8yQORgqiQT0c5SEPDUsAAWW1eMwP+coJTkKs7xKC9+XIIUTkg8CsS3DY4PJDp+A7IhQlHE59lKaoEXgh56FYPcWAbE5P1PURzyZZDr1vO9GKfE4XzfegRBdY8vyVddf3-QDgKhAZ-lKWwILAAAFUosFKDCCnjF43jk1EcKw+4kKvVCfik-oZO09TFOU1SJUou9zTgVAoh7O1GEbfEXD0ilbI2egoAvbILhfQ8hKYljLxQjiHl499BMfETUzEgC4CAtCwH6bYsDBGDUW8-TWMM1d0sy7ZsoKYxaBaa83McDy710u9RWYO1grisK2Jvcl7xC7idGi-iP26+KBkSiTUtKDKspszqdAMlDV3G4rSum8rKqM9zyXqh4ux7PtiJ0OhRFIdhqCIFJV2qTYAHVtSyUUMlXAAJZ5wQeqbPNaSRBDtKJfPOdoJ0bUjyNq7CegCAJaGMHR2Gycg1A0bRrBsIpq1ELIIFYUp0HYfMABJBFoAo8fORhtH8JRpSUMBpRDIA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_abnormality_by_worst_grade.Rd b/man/tm_t_abnormality_by_worst_grade.Rd index 6e7efa104..6dc65ab4d 100644 --- a/man/tm_t_abnormality_by_worst_grade.Rd +++ b/man/tm_t_abnormality_by_worst_grade.Rd @@ -93,20 +93,20 @@ This module produces a table to summarize laboratory test results with highest g \examples{ library(dplyr) -ADSL <- tmc_ex_adsl -ADLB <- tmc_ex_adlb \%>\% - filter(!AVISIT \%in\% c("SCREENING", "BASELINE")) +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADLB <- tmc_ex_adlb \%>\% + filter(!AVISIT \%in\% c("SCREENING", "BASELINE")) +}) +datanames(data) <- c("ADSL", "ADLB") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADLB <- data[["ADLB"]] app <- init( - data = cdisc_data( - ADSL = ADSL, - ADLB = ADLB, - code = " - ADSL <- tmc_ex_adsl - ADLB <- tmc_ex_adlb \%>\% - filter(!AVISIT \%in\% c(\"SCREENING\", \"BASELINE\")) - " - ), + data = data, modules = modules( tm_t_abnormality_by_worst_grade( label = "Laboratory Test Results with Highest Grade Post-Baseline", @@ -136,3 +136,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeXVAEJ1DU2t7fzU9DoApAB8Uz0lxrTU5IzsAISlAGoAkpU7ttPZUzoE7ApglQDCWE5OAHI79wDiFwUX-aWVTtVPLmByAIAXwCeWg8FEuUSNmSZwuFRqbx08L6-QuAQAVkRslEANZwViQvIwoz8ODGKDCUhRAj8WiiJpYnH4wnAMGwMRQ0JyAC6rggCNqyTywGAKMRYB5fIFqLqIrFYAqAwuUv5aFQdWy6XOEBKeR0AF4dHlcD0+EIRKJDTpzcJOQt6jAotSoPQIERGDBuOlWFF6L6Uh7RNSAObMMk6kpRnTUV1wajWi7VV0ekIe1h2MSkHRYMRUq1pTI6AAStBDGSzOme4d0AAUiMGDP0oKJ49k4G8HXrEuDdEaUcq8F2dCwnZoWNaCBlsQQxFFWyJ1HB+JHo1GpzOxNbx4xaK6RDTpzJOYKCqJBPRW9mjXDFVgALJI+EPq7ldFyU26tclBdwJf8RM70fMBhw-YdUBYWBaUnI9Z1Eed4z-cgV2HEoN2PK0jXHahBDgQ9N0hJV+neMBa1KLBSnvV8n1I8jKPRT9vx-RD-0nc5FWqWwaJuWsaJ2Z5SnRUDGLXDp+GdIhQgTI0ADFSmqb4HQCEowK-JYVlUa1InnOg4NXEptK6Y92MFGjKlKGSZOqJFf1Y-swAATQYh1DN0uATNRGiAHl7nsWwrJsljkMApyAR6AIAloYwdHYbJVigCxtGsGwii-UQsggVhSnQdh1QAEkEWgCny1tGG0fwlCBJQwCBHkgA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_ancova.Rd b/man/tm_t_ancova.Rd index c55af226d..4ae3312b6 100644 --- a/man/tm_t_ancova.Rd +++ b/man/tm_t_ancova.Rd @@ -95,8 +95,16 @@ observation per patient is expected for the analysis to be meaningful. } } \examples{ -ADSL <- tmc_ex_adsl -ADQS <- tmc_ex_adqs +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADQS <- tmc_ex_adqs +}) +datanames(data) <- c("ADSL", "ADQS") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADQS <- data[["ADQS"]] arm_ref_comp <- list( ARM = list( @@ -110,14 +118,7 @@ arm_ref_comp <- list( ) app <- init( - data = cdisc_data( - ADSL = ADSL, - ADQS = ADQS, - code = " - ADSL <- tmc_ex_adsl - ADQS <- tmc_ex_adqs - " - ), + data = data, modules = modules( tm_t_ancova( label = "ANCOVA Table", @@ -159,3 +160,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOyARVyikrLK6v4AR1ElAF9FCCToeFFE0JtwgnYFMByCuZS5nJa5oYArIni-AGs4VnGkqaN+OGMoYVI-An5aUTKtnf3D4BHYMQnPOQBdVwgFoVwklgMAVnl8nMfn8Ac1WsDQqDwWswND-iwYH5GOcbkQYKginRRKRZhAMpksABZHQAXh0RJJDQy2OMtJ0cwAQogdAAFahQAhwehEJZMnTEfFsmYrbnZRiCADmOgAGkt2WAAMLcjV4+jxDyWCDrBpyXANTIa2wUyka7JshmkjLM85slZUnQc0Vkp0Sgl06Xzd2ZNVu6ka43eoZDJRoAnheLRR06JJspJm718IQiURszPCT5ikp+a5QcxETRQJNO+lQehwaiu+YAOQ1AHkAGqZOy1kRe6sZd7wRurXJ9-tQTT3aJSmLbQWiPyietwdRwfhV-sEWcyMRsivUQRwG7b+fsEfLebtgCSuSvtnW6f7TqXIlX-EbAHUnE4ANI6ACMOjZJkACaOgABxzGKGSmtBOgYn4FaMDOc5iIuy5vhu1ZbqhOZ0khtA9keOE7uMgIpAG1ohvMlrWra1F0dk6ywd6T4viu5DvnSob0WAcEsU+CEsrikp0kJOK+o+477ohLAoaR6GvpxWE+ieu74SwhH0CIx64WecIUbMmoABIAOIMZ2kJgHIAlPjo7Fvo2GpmVBrFOrZ2HlrJyH+mpC4OcpcEZCR857ppRG6aR+ktIZnKZLkLh4OquT2JkVr-tRCWqtZHn9gFa6NilWBpZkGV8W5MFSdWqAsLAtzyfOikcWuKnBX5YUHsRfnRbkF48hSmQ2kxSVzP1xWUg+QX2RhnGNgAYj+t4GHNH6euVT65Rk8TkGo1xIQ1aH5euU0hepOgERFp1kQZ4pGRy8WJReRUlWVT1ONlNlVXlM0FdxYDPelrkbWKQwwUoQy0Ky7DbaoAoaNo1g2Gk3qiHEECsJk6DsLGAAkgi0CkuNLow2iMEM-RKGA-Q-EAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_binary_outcome.Rd b/man/tm_t_binary_outcome.Rd index e267c72e4..f10ab5bc7 100644 --- a/man/tm_t_binary_outcome.Rd +++ b/man/tm_t_binary_outcome.Rd @@ -123,32 +123,28 @@ or re-categorize response categories and arrange the display order. If response \examples{ library(dplyr) -ADSL <- tmc_ex_adsl -ADRS <- tmc_ex_adrs \%>\% - mutate( - AVALC = d_onco_rsp_label(AVALC) \%>\% - with_label("Character Result/Finding") - ) \%>\% - filter(PARAMCD != "OVRINV" | AVISIT == "FOLLOW UP") +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADRS <- tmc_ex_adrs \%>\% + mutate( + AVALC = d_onco_rsp_label(AVALC) \%>\% + with_label("Character Result/Finding") + ) \%>\% + filter(PARAMCD != "OVRINV" | AVISIT == "FOLLOW UP") +}) +datanames(data) <- c("ADSL", "ADRS") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADRS <- data[["ADRS"]] arm_ref_comp <- list( ARMCD = list(ref = "ARM B", comp = c("ARM A", "ARM C")), ARM = list(ref = "B: Placebo", comp = c("A: Drug X", "C: Combination")) ) app <- init( - data = cdisc_data( - ADSL = ADSL, - ADRS = ADRS, - code = " - ADSL <- tmc_ex_adsl - ADRS <- tmc_ex_adrs \%>\% - mutate( - AVALC = d_onco_rsp_label(AVALC) \%>\% - with_label(\"Character Result/Finding\") - ) \%>\% - filter(PARAMCD != \"OVRINV\" | AVISIT == \"FOLLOW UP\") - " - ), + data = data, modules = modules( tm_t_binary_outcome( label = "Responders", @@ -198,3 +194,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeVYlXUNTa3t-IyiOgCkAHyTPSUwgqHk7PMlZQBqpdUAwjoAvDr8USTEUeOoUdRQ9HDU7KVbuzYzcxDrH6npGVc3d6tgHYZFhQdSqHRYMTCUgAegAYtl+NkAOYKMABD4vWZrYy0ajkRjsAAKpSwpQAsjtyjoAISHNEAeQ2WAAkgA5DZonQAH02LMqLNsB3pYDhDOq1QZAHUdA4iWiAgBfAJ5aDwUS5RI2ZIEAEVGpogpoir9BVKABWRGyUQA1nBWBq8tqjPw4MYoNCogQkaImpbrXaHcBVbAxJrQnIALquCD62rJPLAYDGqrVNGR6OxvoDBOJJMp01gDMxlgwc5ur1EGCoOp0USkVbvMpYSnUw51huMN0HHTGls6ABChp0xGrPd1ffJZWHk50OwVclwPVJU-btHr7C7xh7aIHiB0ROuBDg9CIw9HNcOE7ApX35UYgmROgAGjPAfudlX6NkQpZAuiAgCNAa2SbJ0kbEo8h7PIlybPghBECZDng4QwzWBoolIKJv2gNgTiWUc4Agz5rluagdzASFRFQEhXXGQ01kgxI1V0EUTUqBimw+VAQUafhxwyK1j1EKJRDuOAwX4YjPhHQSZDEHtNG4QQ4C9OThIebMjTAEkyVbN9dIpBVYJkkoxJESSKIHJxKn6IkWTRRidEXJzSyiJTGAEoSxFE8TJOkz4CHUhTDg82gbhENTvI1diCmvFc3xXKlEp2WwkvKBcTNM8yJPIfi2JbRyuPWFzipKNyt0rMdDgqisLyyj562YUJ3JYLz5JEnL-KckoguixSWHC+hIr6jrNP6OKAUqJxXzwXswAHcksAAaSwAAmN8yR2FwAIaz4uryiitp2pzSpk113U9LtqJIMSkJ0DsAo+azbMqeye0enr1guccAU-asRHICExBoiAxJ0dgdiwRQ5rRIkWA0bhgZusHdGJaHjK+koRG0ah7onMrTLRf6fDgIGqNB8HIYx2GdIR8LyIp260aJGm9tM+bKlCYbdHKdc4CgKnKnKGHtKJRgiGRa7RC0Xn+cFlmRaKjmSgxUyztM9kNicIU1w3LGdB+q8pu5kQdD5sSFYh4XRfmtkiFIHQnCU6hBAitG2ScGGNY5nG7nxp6icBKtSfJkHmYhqHbbRe3Hed5T3Yhz3o7pxhEcZ8PUYh1nRYNko4YlqWxBl7RzflqmiSV2mucTi2BaFquDbVmSfc+JlWQ5D71wbA2jZHAFxcl6XZbLy2K6r7Sa550f67Rm3McJj4-bx36C6H4uR7rq3iQnznTblse593mOHadl23en9hk7NRfnNOtY1cApRaG3dhsgJUENG0awbCKJtRCyBAVgpR0DsGAgAEkELQAoECxKMG0P4JQiolBgEVJGIAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_coxreg.Rd b/man/tm_t_coxreg.Rd index e28f467c2..7915e7152 100644 --- a/man/tm_t_coxreg.Rd +++ b/man/tm_t_coxreg.Rd @@ -135,9 +135,11 @@ data <- within(data, { ADSL <- tmc_ex_adsl ADTTE <- tmc_ex_adtte }) -datanames <- c("ADSL", "ADTTE") -datanames(data) <- datanames -join_keys(data) <- default_cdisc_join_keys[datanames] +datanames(data) <- c("ADSL", "ADTTE") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADTTE <- data[["ADTTE"]] app <- init( data = data, @@ -148,7 +150,7 @@ app <- init( arm_var = choices_selected(c("ARM", "ARMCD", "ACTARMCD"), "ARM"), arm_ref_comp = arm_ref_comp, paramcd = choices_selected( - value_choices(data[["ADTTE"]], "PARAMCD", "PARAM"), "OS" + value_choices(ADTTE, "PARAMCD", "PARAM"), "OS" ), strata_var = choices_selected( c("COUNTRY", "STRATA1", "STRATA2"), "STRATA1" @@ -168,13 +170,10 @@ if (interactive()) { ## ============== ## This time, a synthetic pair of ADTTE/ADSL data is fabricated for Cox regression ## where ties and pval_method matter. - -## Dataset fabrication -## ------------------- +library(dplyr) data <- teal_data() data <- within(data, { - library(dplyr) ADTTE <- data.frame( STUDYID = "LUNG", AVAL = c(4, 3, 1, 1, 2, 2, 3, 1, 2), @@ -203,9 +202,11 @@ data <- within(data, { ) }) -datanames <- c("ADSL", "ADTTE") -datanames(data) <- datanames -join_keys(data) <- default_cdisc_join_keys[datanames] +datanames(data) <- c("ADSL", "ADTTE") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADTTE <- data[["ADTTE"]] ## `teal` application ## ---------------- @@ -214,6 +215,7 @@ join_keys(data) <- default_cdisc_join_keys[datanames] ## running the exported R code. arm_ref_comp <- list(ARMCD = list(ref = "ARM A", comp = c("ARM B"))) + app <- init( data = data, modules = modules( @@ -223,7 +225,7 @@ app <- init( arm_var = choices_selected(c("ARMCD"), "ARMCD"), arm_ref_comp = arm_ref_comp, paramcd = choices_selected( - value_choices(data[["ADTTE"]], "PARAMCD", "PARAM"), "OS" + value_choices(ADTTE, "PARAMCD", "PARAM"), "OS" ), strata_var = choices_selected(c("INST"), NULL), cov_var = choices_selected(c("SEX", "AGE"), "SEX"), @@ -240,3 +242,18 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpQGI3OgGK1Go0jpwAB6wqCLungC80TGxMRF2ABa6waEiOvRw1EQA7jq0ohlQonD8OiQ6pMk6gqKC3DpoqIxEUASJ+RCaRNSatBAA5joEjHBQGhVExglQOswQ-EQwOgDCACIAkgDKKzr848VwAVALlckQc2bKQ1W6TXSyExAYrtCMMAD6o8YfxDCo+iMdH87CUOh0AEEVrYIVgALLrHSRHTA0igi7guZwYxInQKMCwuE6ABC+NwYMxfwByIIoIJ8MhZLx9KJK3xigxcnJGMJuNR6MxWJxyPxxMQOgACtQ2nB6EQyRTwVTcbT8RDxWtGIIhgANJn4lbilZLej9caWCDsikcjlKfakWaGSpjagfe1Qax2g6AnQ5WhVfrsd24HQgCkQtZbAAyPtIMAIH2CHyg-FE1HDa1sticsfjiaCyf4pHISgAvhz3dB4KIgwcbE7VQTI1H9U2sy4wByAFZEfofADWcFYNfd9aM-GxUGEpF+-AKCZ7fcHw+AldgYlrDrkAF1XhHoz73cBgGrm-jt7uIBH24eDsfT+3z5elE0ff1-QK9t7kcGKXwhCIhTIv+wgboqlSfDOxBBKMAyfoK0qZNQuIGkQQQ6FgcADC8eDgeCa7wChbbZgqGKCiwnyaCwKqJL2BBiB8JQiOopTsI2hKtoS6ycdCXFrOyIZqvCAl4Y07xfNivxLNSYmfN8Un-NygrgqgLCwAQZQ0rRMgMUxcAsfw8HKVR1CCHAvzafRNbXtmglgBKsIQgi-F4MyDlYE5AnMgA8ls+KiVyon+MwDofFRjA0XRulZPp5CGaJSp0is3kOAAcvYACarZbPYEIwgAjNluUwgATF5+I5R5BX+WRmKBbVSpEJoYXUVpUWiIxMUGUZgrsQA4h2dnEnCWAANJYIVrmiiN41lVNYBYE4fUbN5qWTVyzIQgNNXKTo9W7TA05aCwtDjLoyL2M44EcuCNpKLQOLsP05BqBo2jWDYYYYqIiT9KwELoOwTQACSCLQIYgyUjDaIwHKlkoYCltuQA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } + \item{example-2}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpQGI3OgMpxiEfjpwAB6wqCLungC80TGxsRF2ABa0ojoa8Lg6UDqirGSJcBoEOqhQtIw6RMY6AIIAIra2TgD09V4AMjr8UKTZKSZQTDI9cAHGRBUAwkRBOoxwAObzoqKWEAkA7gXzabRiWf4lmtwA+vCkiQI6MD3kjBhKdEwsHPxhrIyK6-492YZpcFO3V61iUwL+Rg2tAutAg7HBmRASh0tQaTX0RnBGGMzHg7GRKO8tgcdQAmgBJOo6SI6BRgdoOAByAHE6bgCSiagA1GqdGkEdgAFkyAGZMgBGCWZABMMtFUp00rk7IghJ0k0ZXiw1J0AslOn1+oADArjZkTTojcqObUsABZSZUmnGKDqCb41Vq3XsC2G03mgOW83Wz1q6iDODUVL8-FgGr22ps2lxhMAITpXzVIbVXicAA0dS63YwPV7vRaK4G-QbTdmveH6JHo966QAxJN0u0Zm11lHkzW2Quu0jugV0moduOT9N4ZMzzLj6eTiezunz5MruS9nKkRiwhaiGqiVvDibN1u83MEzOoxpODFzeiw-jsep3zJvpoftFOb93m+fve-xQKIJwaPQ9AiK+P43qIhQYHBozsOKAE-gAJP2XiDv8oihFBgEYQOqF3mhNTMkBRi4TAYRwOwcEAI7sAArJkADsLE6Exyo5LQABeug0hAjBEBs0H-pk8xhK6Al2I4TjEU0aEOF4DipgAUpSD6lKI5CxqIgj0Em4qIEJIliU03EEZhtiZHBqA6nSBjdp6BEAArxjUdoPm5HkOlS-x0gA8l4dIEm0nQ4QZcGkKWhKASqapwSI6g6mOYDKapGl1JOWEkhS2Wrimfk5fmk7Wcu5HOSiXwAL5fGCvzQPAojwr8Nj-Gl4XLj+zkAFZELCJwANZwKwLXgu1mJwC6wikCcBD8CkBAnP1g0jWNwDgk1Yitb0cgALquBA4UPuCwDAOOdQdHS+2HcdP6nb852XXeN13QkAAGXDUB9WToHQsgaCQCQGKDYPgxDTkQB4OiMkQ5BpIkPSI7o2rEPwujBKgEzkAE9CsDoH1eJcGw6Nq0wY79-BEPsEDwzosKSIIGMo10vwJKg8wGJzRAEGIqwQAsGA6KSRCCDoULUNQOgQHAoxpEQurzCMrPgtFWSpIMRDaDojbjPMCSMGYygLKzWM4-LaMCHADzfCwMAnPMxjzUQ1EPnQOmvvajo6h7MVOw5RWJrOxBuzG45phmW5HWg9n-LC0KxeCOoIgSfBCCIzbp8IO02qQDtzcQQTzAssVhhG0s0nS0yzFgiwPHgNooltsAyS9TRsk3WSMA7xwVPylwyGIJxJb4uPsJ13sFdxEfFWA24ovbjvTS7Yfdw7Tur6gCVeqUuILalg986Bo-qEhXcosc1CCHA81Hzt8XJu5WCeY6k7P55GYLmAwWhaGhILx3MwXoJw+6HwGsfEekYx5ITSuVeemRGQOHaO0QBxBNCgJYOAoeJ9oFnxfGlXMeYKouAQcmIhX8u4wFmloFgtAVY0nsM4Hs14lBfFoNUdgsI7jDi0LRLcOgkSelEMkCArAajoHYLHNCghaCZGkXBRg2hPhKBqkoMANV9pAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_events.Rd b/man/tm_t_events.Rd index 21ca829ce..17c6c97b2 100644 --- a/man/tm_t_events.Rd +++ b/man/tm_t_events.Rd @@ -96,18 +96,19 @@ a \code{teal_module} object. This module produces a table of events by term. } \examples{ -ADSL <- tmc_ex_adsl -ADAE <- tmc_ex_adae +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADAE <- tmc_ex_adae +}) +datanames(data) <- c("ADSL", "ADAE") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADAE <- data[["ADAE"]] app <- init( - data = cdisc_data( - ADSL = ADSL, - ADAE = ADAE, - code = " - ADSL <- tmc_ex_adsl - ADAE <- tmc_ex_adae - " - ), + data = data, modules = modules( tm_t_events( label = "Adverse Event Table", @@ -135,3 +136,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOzMpyKSssrq9zglAF9FCCToeFFE0JtwgnYFMByC6ZTpnObp-oArIni-AGs4VhGk8aN+OGMoYVI-An5aUTL1zZ294EHYMVHPOQBdVwhZwvCksBgIs8vlpp9vr8mi0AaEgSDlmAIT80KgivFolMIBkkjoALw6JK4Bp8IQiUT4nSk4RvBoZEp+C5wbRkEZ0jI6ahQehwaiUxb8bSMUS6Jws0h2bkiebsnGhIa6AkIlx4WU6FgwPyaFiUggxDYEMR+EUidRwfjsSaLLAAWXmOmtNoAwtkVgsZra3WrqNQJQS9QajSa4GaLWqMgGZGJKdrGLQpXBLvqoyMlk4UlaZk5bE5PXgHVnsk4nQB5V1gORyYnYjm14Oh3VTQvFssrNVVtUxX265OG0TG3kh8hhmu1iO96ME2Px+giJOB1PQjNN5oAITLuQAmrl7YsnLkS06Vh3R2P68P+Vn13lt9N29Wx+r+PxGURPHyCfZnA+x8yKBdSFYVBFQLGohRFHQ-zIO9T36DJ+n6WhjB0dh4nINQNG0awbDSGtRDiCBWEydB2FRAASQRaBSciRUYIV+h6JQwB6T4gA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_events_by_grade.Rd b/man/tm_t_events_by_grade.Rd index c2e9bf25c..492febf7a 100644 --- a/man/tm_t_events_by_grade.Rd +++ b/man/tm_t_events_by_grade.Rd @@ -88,20 +88,20 @@ a \code{teal_module} object. This module produces a table to summarize events by grade. } \examples{ +library(dplyr) data <- teal_data() data <- within(data, { - library(dplyr) - ADSL <- tmc_ex_adsl lbls_adae <- col_labels(tmc_ex_adae) ADAE <- tmc_ex_adae \%>\% mutate_if(is.character, as.factor) #' be certain of having factors col_labels(ADAE) <- lbls_adae }) +datanames(data) <- c("ADSL", "ADAE") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] -datanames <- c("ADSL", "ADAE") -datanames(data) <- datanames -join_keys(data) <- default_cdisc_join_keys[datanames] +ADSL <- data[["ADSL"]] +ADAE <- data[["ADAE"]] app <- init( data = data, @@ -111,15 +111,15 @@ app <- init( dataname = "ADAE", arm_var = choices_selected(c("ARM", "ARMCD"), "ARM"), llt = choices_selected( - choices = variable_choices(data[["ADAE"]], c("AETERM", "AEDECOD")), + choices = variable_choices(ADAE, c("AETERM", "AEDECOD")), selected = c("AEDECOD") ), hlt = choices_selected( - choices = variable_choices(data[["ADAE"]], c("AEBODSYS", "AESOC")), + choices = variable_choices(ADAE, c("AEBODSYS", "AESOC")), selected = "AEBODSYS" ), grade = choices_selected( - choices = variable_choices(data[["ADAE"]], c("AETOXGR", "AESEV")), + choices = variable_choices(ADAE, c("AETOXGR", "AESEV")), selected = "AETOXGR" ) ) @@ -134,3 +134,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEPxQpFD6RlzUAPpBIdZKMaGGOgDutKQAFrQQ7Am4OiBKOjoAggAiAMoAMmE6pDAEkXAAHpFQ-KLUhTrU9NSirUG6ScRR1FD0cH2c9Y0tbVBwAUVlxU41dQ3NAws6AKQAfLtdRTCCIeSRtMbstOIE6SxQ6qp5UOLGT6RE-joAxADkOgmOgIqhCWR0RGMOgemiyAHMTJ9vqIuiNImMJlMVk4bEken1tnAlABfAIJaDwUQ5YJQPFGAjsBRgMpVZl5Zk45kBABWRCykQA1nBWNSEvSdPw4B9hKRIgR+LcGnyBcLRcAKbAxDSQnIALquCCs6pJBLAYCciqVZl6g1G0qrGpmi0sh0uMC2w1oVA1LJpJkQIoJHQAXkltNwXT4QhEolDOmjwm1x1qMEicrg2jI-XorEi8OYUoDRRL3XGk3jnP42kYol0TizpDjuZ0AHFC7pbOMROyU0HaZTdGHLate4HSzoWGnNCx4-d+aD+nWRM9+OxGZysABZdk6TdbgDCpW5HJZ25Pfe61FIc-SC7EkWXcFXxYnRXnMjE8ZnjFo3bg8p3p+1I4nkG4sk4thOOeeB7hBpROAeADyx5gHIciRuOb5Pquc5MvBiEodyl4YZe6TXre95LpMz7kGul7vkBi7fiwf69ABH6LuwoEgvhqwAEIoeUACa5S7pyTjlEhB7cqRWETjhdGVhBgkVKJzIkZhb4Fm0Q4gkxD6KXA9HyaWnFfmGP5sSIgFUdxbpgXxkFIQAGq2WDiRB5ROAAarJWlvjoRn8Mpqy2K57kaaZOhLCWsUBAEVw6DcKhqBo2jWDYBTjqImQQKwxToOw3oACSCLQrzoCVdaMDWAQkkoYAknqQA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_events_patyear.Rd b/man/tm_t_events_patyear.Rd index 5fe61d029..31d84b6cd 100644 --- a/man/tm_t_events_patyear.Rd +++ b/man/tm_t_events_patyear.Rd @@ -90,26 +90,24 @@ This module produces a table of event rates adjusted for patient-years. \examples{ library(dplyr) -ADSL <- tmc_ex_adsl -ADAETTE <- tmc_ex_adaette \%>\% - filter(PARAMCD \%in\% c("AETTE1", "AETTE2", "AETTE3")) \%>\% - mutate(is_event = CNSR == 0) \%>\% - mutate(n_events = as.integer(is_event)) +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADAETTE <- tmc_ex_adaette \%>\% + filter(PARAMCD \%in\% c("AETTE1", "AETTE2", "AETTE3")) \%>\% + mutate(is_event = CNSR == 0) \%>\% + mutate(n_events = as.integer(is_event)) +}) +datanames(data) <- c("ADSL", "ADAETTE") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADAETTE <- data[["ADAETTE"]] # 1. Basic Example app <- init( - data = cdisc_data( - ADSL = ADSL, - ADAETTE = ADAETTE, - code = " - ADSL <- tmc_ex_adsl - ADAETTE <- tmc_ex_adaette \%>\% - filter(PARAMCD \%in\% c(\"AETTE1\", \"AETTE2\", \"AETTE3\")) \%>\% - mutate(is_event = CNSR == 0) \%>\% - mutate(n_events = as.integer(is_event)) - " - ), + data = data, modules = modules( tm_t_events_patyear( label = "AE Rate Adjusted for Patient-Years At Risk Table", @@ -138,17 +136,7 @@ if (interactive()) { # 2. Example with table split on 2 arm_var variables app <- init( - data = cdisc_data( - ADSL = ADSL, - ADAETTE = ADAETTE, - code = " - ADSL <- tmc_ex_adsl - ADAETTE <- tmc_ex_adaette \%>\% - filter(PARAMCD \%in\% c(\"AETTE1\", \"AETTE2\", \"AETTE3\")) \%>\% - mutate(is_event = CNSR == 0) \%>\% - mutate(n_events = as.integer(is_event)) - " - ), + data = data, modules = modules( tm_t_events_patyear( label = "AE Rate Adjusted for Patient-Years At Risk Table", @@ -179,3 +167,18 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeWlTra2TnUNTa3twXCk5DoApAB8sz0lxrTU5IzsAAqlWKUAsgDC5XPZszoE7Apg-YNOAIzXBde3QwBMTzovA0MAzNdyGwLJYQEolGCCULkdi0UTNbRkHQAXh0hwAcpUsMiUQAGIGLZY6CFQuDsCDwiikUTInRQcTZcgAc1UMLhcARpEBSgAvgE8tB4KJcokbMlLi8qtVPhLXi4wAEAFZEbJRADWcFYQryoqM-DgxigwlIUQI-FhTSVKvVmuA-NgYmFoTkAF1XBAKjU6nlgMAJTVrs7Xe6+j9hslvb6biG7gGg26AMQ6e4YHQAITpMh0ThasB8cDdaFQdWy6SuoJ0eRpeVwPT4QhE1JRdeEDsJDSixvZlLhqBCrDgLDLYLB1Cg9Dg1Bp3x0WBCulK-AVglE5H4JiIjB0WxCtEpBgAmgPGNTSqQZ7DVXYxyInoSSnb4FOo7Lb+XhywYFFNCwaQQMsqCDEKJRAnOB1Dgfgh2HME-wAsQaW-RhaGvOATX-GQHQ9aoCnFG4sH2aU8KOcoATkGs32gkCRHAtcURefDjmuO8dDI5iOn4DsiFCScUXsZxyOgnQuzIOFEN-dDALhKiwNXKDBNgjDGx0RDkPoEQ0LgoUKllZ5IApESAQEwSdGkmin3JYSqVfYyTFoFoIJpPiXAokpWJcnRe2YRpaIuCSgNM2TmJKBTJIQ7hBFQkLMOjIZdJ2PZiMI+KDkMoKTNAsy6JuUNHjAZiAmHAqWKUAJaGMHQYRUNQNG0awbCKctRCyCBWFKdB2ELAASQRaAKLqQMYbR-B5JQwG5Z0gA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } + \item{example-2}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeWlTra2TnUNTa3twXCk5DoApAB8sz0lxrTU5IzsAAqlWKUAsgDC5XPZszoE7Apg-YNOAIzXBde3QwBMTzovA0MAzNdyGwLJYQEolGCCULkdi0UTNbRkHQAXh0hwAcpUsMiUQAGIGLZY6CFQuDsCDwiikUTInRQcTZcgAc1UMLhcARpEBSgAvgE8tB4KJcokbMlLi8qtVPhLXi4wAEAFZEbJRADWcFYQryoqM-DgxigwlIUQI-FhTSVKvVmuA-NgYmFoTkAF1XBAKjU6nlgMAJTVrs7Xe6+j9hslvb6biG7gGg26AMQ6N4YHROFqwHy6NKZepQegiHSiHzpHQkJO0xgwKKaFg6GuMWh5kSiN1oVB1bLpK6gnR5Gl5XA9PhCZs04fCB2EhpRY3sylw1AhVhwFjdsFg6h5uDUGnfHRYEK6Ur8BWCUTkfgmIiMHRbEK0SkGACaK8Y1NKpH3sNVdibcCehIlHa8C7lGsoAT264sFW9Y0gQGTKgQYhRKI25wOocD8Gu65gvBiFiDS9aNvmcAmghMgOh61QFOKNxYPs0p0Uc5SMZUTgABoAnIg6QThqEiBhl4orRuwMXgXxgGxnHyoBOjcbJHT8DORChDuKL2M4PE4Toc5kHCsHCeRSFwvx6EXth2l4RR1IokRf5kfhQoVLKzyQBSekAlp2mFmhgmgeSulUhB3kmLQLSYTSGkuLxJTyTFOiLswjRCRcRnIaZgkWThVnGYR3CCKROWUdGQyuTsezMYx5UHJ5sklBlF6gbKjxgLJATru1clKAEtDGDoMIqGoGjaNYNhFD2ohZBArClOg7BtgAJIItAFItqGMNo-g8koYDcs6QA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_events_summary.Rd b/man/tm_t_events_summary.Rd index 44f2080e5..04b868d34 100644 --- a/man/tm_t_events_summary.Rd +++ b/man/tm_t_events_summary.Rd @@ -154,10 +154,8 @@ data <- within(data, { ae_anl_vars <- names(ADAE)[startsWith(names(ADAE), "TMPFL_")] aesi_vars <- names(ADAE)[startsWith(names(ADAE), "TMP_")] }) - -datanames <- c("ADSL", "ADAE") -datanames(data) <- datanames -join_keys(data) <- default_cdisc_join_keys[datanames] +datanames(data) <- c("ADSL", "ADAE") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] app <- init( data = data, @@ -194,3 +192,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otQ6AKQAfD3FJTowgqHk7EPDOuW2ABIAYrUAvDqyonBRKRkUkxDT0wCEtOLQ7LNzszYAfjoKYACa97hTB-bOOrf33-sHNv09VLpDJRahQehwaiTMCVQT0ABWcHUMzgIQyOgWYIA5vcAtM8WVyqUnHUGk1Wu1gnBXL8OvxmtoyFFjNjRHVTOYNFZYjYir8SrE6oKAa8SqNxnA9gdhrYALIABSWUUqTiwOlWxJVauWq3uTzwoplCqVWCcKzKqrN6t1j2ehpKcsV1SiAHEsABWdUW2wAeQAGm7rXcwO67fy3grlbKAIoABgAjF7jqcoOxKjGEwA5UqyuQvcPTR1RuMAJiTJwwZ3Tpezufz0odkYAwnHE6tk5XUy2szmCfjXsRqIIYBBQeDIWzknRRKQpRGncrVV77pVVJZBGziWHpY6TVabVhISE4PwLdv50q3Z6bS7mPxdJ6twaC3ZI9WE16oGJaGOIVDYsAwArhm8a1vcAC64EFABQEwiBlRNhB4F5oaRbvmWqxfqIP5gn+0IPBgACcREkYRAD0ABapGkRalQAJK4vW85RN2bY6FhOHjv+ISAfcrFgWAkF9jowmDr+E65CEcjANA8CiOwg7DqOuETnI4F1FA4gEBkLBQOoqgKUQQ4juJ1CiMJsRDAAvjSJQAMQAOQ6C6FCqCE2RYjoG6qAY97GNkJ46HAjKkCYrIYEMFTEnUUUkgC7H8PSwUUKQzKsvEgS0psUAQNEmgsJORiyWI7CxdJM4sKQogAOrAuwxXyWVBT3Luzq4uBQwcVE+WMIVOgNaVRJOOVoSMFVtWZPVsAlU1wZFu1ShWQEeQDXkNjJAQ0IVDUzzBrFuJKPCRDZFEADWcCsPJa1CnAxhQMIqUEPwJxNEdJ3nZdwArdNV2JGpNJoKgdTZOkc55F6eRMXwQgiGyqzQ8IJWvA0USpclZCiFEojDjAnhztMKndDapT8NovW6E4IVsrCMC42w57TN98DLmA+3PtKLAwN1LBetpx0EGIWOQki5D8PjBx8zIYhej1tDgiIUSSwL8n3Nt1S7ZtqtYLKu1a7KTblLiKEviUGwiPpp7E9rPzSsb0oslAWLc4w7S5bzGT84LZsiye4vTEr0urLL8ubAHKus0Nu15LxKDZblzuiEhdsNt7FsQ4kMdfq7eUFUhwDxlB9o6OdcCoFERCMPejBeu8ThMfbtAtIFqwLKU1QqoayfTA7Ts9e037u57mOp6LfvDGHMssHL9AK2HW2R3gOjR7BXU9YngnIfXBwj83S8Zyv34J3nBdb9MJdlxXVc144ddF-5TeWxibcdy+XfDHSqNEKERN2DfrwEgEAItBjA6HYNkcgagNDaGsLyIYogsgQFYKUdA7BAYABJBC0AKOgjYjAyYBBshAMAVlwJAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_exposure.Rd b/man/tm_t_exposure.Rd index 1deed0be4..666ce48ba 100644 --- a/man/tm_t_exposure.Rd +++ b/man/tm_t_exposure.Rd @@ -119,10 +119,8 @@ data <- within(data, { bind_rows(ADEX) col_labels(ADEX) <- labels }) - -datanames <- c("ADSL", "ADEX") -datanames(data) <- datanames -join_keys(data) <- default_cdisc_join_keys[datanames] +datanames(data) <- c("ADSL", "ADEX") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] app <- init( data = data, @@ -160,3 +158,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeVOABp1DU2t7fytrhAlonCkGDNw-OwAjAUA1tn8OgC8OgpgALKqMxAQcAa2aaLkjPsBJdRQ9HDUonXE0Y-Pr+wVAwXGWjUag7HQAMVK1UqTnuvQGdT+gwApAA+JE9Er8WjXbLqdgOSoOABCACkAJLlAoYNZwOCodrA0H2Zw2VHoqYlHQwQShcjsDGcgAKpSwpQOAGFyqD9rZyg4sOV9rgBSVhaKDtKwAB5bTMRlCZgaEg6XJQViiRR4FVlABqkNBolgPjg7BaDrgAEcVgUAEwABj9cgKoloAC9dLsckGdIw6Y8CBG7I4YcqOZzbZCHJrymbRPsBay0QL6JsoowiClRL8+v1YR8ol8XlXETZko3XkoAL4BPLQeBVvKtowEflgCo1JV7Mc1u5KABWRGyURp5tNoSHOnGxigwlIUQIWNETQXS5XomAvdgYjXUDkAF1JmhUHVsul+Ry8qC8qmSnwhCI3l2P9hGvAUGiiPdWlQIhREEWN33TB4nhebM4JCSwpiIYwdCcFpoNg2M7CeEQlWtS94E1RFSLTTlUBYWAD1BAgMkXBNRCiGYRHURYEMQkpmNYsRQU0bhBDgfcWJka88mAYB9iosA7zvAp9jVMVJUnVSRTFO4fz4nROLgbitl2GU5QVfMaJKINrXrehWCiETGCYyS2I4l4jPIJZrX41yhN2JzaGI8SBKkgdElk+SZ0U5SDMEegZlIJjR2hfpNLHLADjuGyrM5QzjM1VLLL4nK+PLFIonsxyWBcwT2PyrzeL40K2OElggvoEQJLqm9IunAZ9iU4N4sS5L9lFcUXDwKcsCcABxMktQAOWWdLKnsUpbFKVbpv2IqwDkUr9IaxZNQmqbrSO9M6MYWQkt2FqxHcrjGp8nRHsAnQROoMTurC3q5P6tKYpUsA1XFTafV0t6TpMqdykYQQAHMymKxCrs5Dp+AgohQhBXYIShFwaNhI7AWoG5QUiDi6DYzg4G4GmpNHcdqjW0owTBNnpthzUAE1sqUAJaGw9hshuKALG0awbCKDlRCyCBWFKdB2CfAASQRaAKDWZkYXUAk7JQwE7O8gA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_logistic.Rd b/man/tm_t_logistic.Rd index d6f35ba36..cf2d024f8 100644 --- a/man/tm_t_logistic.Rd +++ b/man/tm_t_logistic.Rd @@ -74,9 +74,17 @@ This module produces a multi-variable logistic regression table consistent with \examples{ library(dplyr) -ADSL <- tmc_ex_adsl -ADRS <- tmc_ex_adrs \%>\% - filter(PARAMCD \%in\% c("BESRSPI", "INVET")) +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADRS <- tmc_ex_adrs \%>\% + filter(PARAMCD \%in\% c("BESRSPI", "INVET")) +}) +datanames(data) <- c("ADSL", "ADRS") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADRS <- data[["ADRS"]] arm_ref_comp <- list( ACTARMCD = list( @@ -90,15 +98,7 @@ arm_ref_comp <- list( ) app <- init( - data = cdisc_data( - ADSL = ADSL, - ADRS = ADRS, - code = " - ADSL <- tmc_ex_adsl - ADRS <- tmc_ex_adrs \%>\% - filter(PARAMCD \%in\% c(\"BESRSPI\", \"INVET\")) - " - ), + data = data, modules = modules( tm_t_logistic( label = "Logistic Regression", @@ -128,3 +128,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeVYlXUNTa3t-IyiOgCkAHyTPSXGtNTkjOwACqVYpQCyAMLlU9mTOgTsCmAAQk6V-WsAkucF53cAcgBqTrbncgEAvgF5aDwUS5RI2ZKnc4VGqPHRQvqVb5KABWRGyUQA1nBWCC8uCjPw4MYoMJSFECPxaKImqj0ViccBAbAxKDQnIALquCDQ2rJPLAYDwmFgdmc7kIur8wVgCr9c6irksGBRRhE8lEGCoOp0USkM4QEqlXa2TZ7A4AXh0Or18x0quMOktUKw2x0F0etuImsdJzOMpdZVhztduyRBp0clwPVNPut+pKJXtPvOF0QOjW1CgBDg9CIHvDJS9WstkJlafKjEEAHMdAANINgXZp3Ya+jZEKWQJgAIlAIBJRoLXJbLpeM6PI+vJR8N8IQiCaW2fCFm2hpRMnUIhVqkaSEFhOZ+hwajJsDVLc7mQ6LBwKuq0SiTv5hMJpnwU+yxF4W0lJVRTQsD6BAZGi2aiFEojHnA6hwPwY4voWIEyGIPoAYwtBQPQIjkkhYHsJ+BSlqaDamvs3yRj+CaQSIMH8B+LrnJRFH7r+jDKva6repaf4cUW04IToqAsLAFJAbhYgQVBtHwQhwGgShloAdQghwDh8kggRcJgBsWxmg2Ok7N8-ECTo1HQeQdFOpc1y3A8YBMcZL7EJo-6ASW4ngWZ0mUYh6lAX6lROPWeBaaUADiLghSm2xYAA0lgACMDYXDF8UAExGT5plSRZp6BcFTG2j2EZKAEtAOuw2QrFmGjaNYNhFOGohZBArClOg7CDgAJIItAFN1kGMNo-hKL8ShgL87JAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_mult_events.Rd b/man/tm_t_mult_events.Rd index b9d2143f3..b58875549 100644 --- a/man/tm_t_mult_events.Rd +++ b/man/tm_t_mult_events.Rd @@ -80,23 +80,18 @@ a \code{teal_module} object. This module produces a table of multiple events by term. } \examples{ -ADSL <- tmc_ex_adsl -ADCM <- tmc_ex_adcm +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADCM <- tmc_ex_adcm +}) +datanames(data) <- c("ADSL", "ADCM") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") - -join_keys <- default_cdisc_join_keys[c("ADSL", "ADCM")] -join_keys["ADCM", "ADCM"] <- adcm_keys +join_keys(data)["ADCM", "ADCM"] <- adcm_keys app <- init( - data = cdisc_data( - ADSL = ADSL, - ADCM = ADCM, - code = " - ADSL <- tmc_ex_adsl - ADCM <- tmc_ex_adcm - ", - join_keys = join_keys - ), + data = data, modules = modules( tm_t_mult_events( label = "Concomitant Medications by Medication Class and Preferred Name", @@ -125,3 +120,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOyAYQBZIpKyyur+AhglAF9FCCToeFFE0JtwgnYFMByCuZS5nNa5oYArIni-AGs4VnGkqaN+OGMoYVI-An5aUTKtnf3D4BHYMQnPOQBdJRrensDqIijM5rlbA5sgBNACS2SWOjmDlyDgAQgApeGIlYQ7K2Fo4sCtXJOACKRMytiaAEZKdSAEz0poAZmZABZ1konhAgYcvlA5MAVs1CXgkfNRXMfkUATA+aJXNB0EV4tFZhAMkkdABeHRJXANPhCEQgvXG4SfBoZEp+a4wK7lbRkcbWjI6ahQehwai6iVNEjEGDRKBkHQtOB3WQaEgg+iscORmQeSyapqe0Qg0P8HQABUY51UBZzADkPks3VrQqNdHqRWs8JWdCx5ZoWH6CDFtgQxH5RD64OpI+wwfMsGLlmOWk0EWA5JPMuP1obNe6Mv2AI5+NuMDtdmS9-siIf8WbElqkinio+D8g5uvny+I4y0CqRv32ZzzpsxaikPfdoeA4nhqa5rp2gFmjoO60F6Ig3PuPbjKsLQpKOVK0syTLiis1Jsjh8zUpyc7fquYE6DeJ4dmeGF0gRGHYQueEclyZHuqR5HUH+AEHqIfbAXeoHkToEG8X6MFwXACGQewKFoWerTZE4TQAPKznIHHCZRd7UXMinKWprHkZpa41PwdpEJ4vp6p+TgruRcDOtcpCsKgtYSqQBYePAZBzG6QwZEMQy0MYOjsPE5BqBo2jWDYaSrqIcQQKwmToOwaCoAAJIItApBlmX9ow2iMEM-RKGA-Q-EAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_pp_basic_info.Rd b/man/tm_t_pp_basic_info.Rd index d7cfa3251..35ddc5679 100644 --- a/man/tm_t_pp_basic_info.Rd +++ b/man/tm_t_pp_basic_info.Rd @@ -36,13 +36,17 @@ a \code{teal_module} object. This module produces a patient profile basic info report using ADaM datasets. } \examples{ -ADSL <- tmc_ex_adsl +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl +}) +datanames(data) <- c("ADSL") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] app <- init( - data = cdisc_data( - ADSL = ADSL, - code = "ADSL <- tmc_ex_adsl" - ), + data = data, modules = modules( tm_t_pp_basic_info( label = "Basic Info", @@ -60,3 +64,13 @@ if (interactive()) { } } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWolAF9FCCToeFFE0JtwgnYFMByC-uaAKyJ4vwBrOFYOpO6jfjhjKGFSPwJ+WlEysYnp2eBW2DFOzzkAXVcIQcLwpOBgftv+i6uIJTRUIvjovogMkkdABeHRJXDpHR8IQiUQgqECYSnSEZEp+dboPz0KCiGR+eLGIj-DIknTUKD0ODUeH9ABCOJkOgAkhBCf0IQDSWDQm1dKDnnl8uyUSTUB5aBR1sRqfywA5cg5aQApJnZYWc0maFhw0EEGLjAhiPyiKlwdRwfjErkZPUGsTwrWMWgUkQbfUyU63OQc60ZE0ic38eG9Z5YACy7J0zwA4i48FGwLknAANSP9ADCAHkHAA5ewATTTYCwmXTcZS-ScmdyuVstmGIoyzVJzZ0zWatGMOnY8XIag02msNjSnNEcQgrEy6HYXwAJIJaCk5ybGNpGM0GkowA0LkA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_pp_laboratory.Rd b/man/tm_t_pp_laboratory.Rd index 49cdf5df3..527289156 100644 --- a/man/tm_t_pp_laboratory.Rd +++ b/man/tm_t_pp_laboratory.Rd @@ -66,18 +66,19 @@ a \code{teal_module} object. This module produces a patient profile laboratory table using ADaM datasets. } \examples{ -ADSL <- tmc_ex_adsl -ADLB <- tmc_ex_adlb +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADLB <- tmc_ex_adlb +}) +datanames(data) <- c("ADSL", "ADLB") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADLB <- data[["ADLB"]] app <- init( - data = cdisc_data( - ADSL = ADSL, - ADLB = ADLB, - code = " - ADSL <- tmc_ex_adsl - ADLB <- tmc_ex_adlb - " - ), + data = data, modules = modules( tm_t_pp_laboratory( label = "Vitals", @@ -115,3 +116,13 @@ if (interactive()) { } } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOz8gCEikrLK6v5qeiUAX0UIJOh4UUTQm3CCdgUwHILZlNmcltnBgCsieL8AazhWMaTJo344YyhhUj8CflpRMs3tvYPgYdgxcc85AF1XCHnCuEksBgMs8vlZt9fv8mq0gaEQWDVmAoX80KgivFojMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K7oPzUKD0IjMUhcjgMjI6dn0ODUamzABq0W4okW-LxoRGuiJSOastxAoyqA8tAoV2IouVYAcuQczQAUgBJbJqjWaliwG7UggxLYEMR+UQiuDqOD8HG2gXO11iamaFi0Dkia4umQfFbNJZgAAKmSwmQAsgBha1gOSk9UBz0iH38MXJ1MZ7OzOU6PM1rXMGBOmNu0Qer0l-0BnRB2NUolhxgR+hR3ut9jxxMptPptb57s6Ive8ilw3TjPVgsCutbxm0eCoLZkfs9lvupedmsZMchgfhyNwaPBsaTnRggCac6vi47K7LOU-MAax3AMoAgIchmbZ922LFcuwDG8T0HYdRzPF9YUTTIADksAtLCcxA7sLz-Q1sNw-DNwDQiNSgMN-EHKC+xg5dfXg21ENDe8R0fRCJwwt85nFTIIVzeciN-X1-yEkTgLEmi6MEPwGKJRDmMvXdAzQzihwfJ8+z4lpMOkhwvw0jJiMk0jjMo21Bg1OzayUQZaGMHR2Hicg1A0bRrBsNJ1VEOIIFYTJ0HYdEABJBFoFJIs9RhtEYQY+iUMA+m+IA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_pp_medical_history.Rd b/man/tm_t_pp_medical_history.Rd index 5bac57e68..cebbb255b 100644 --- a/man/tm_t_pp_medical_history.Rd +++ b/man/tm_t_pp_medical_history.Rd @@ -47,18 +47,19 @@ a \code{teal_module} object. This module produces a patient profile medical history report using ADaM datasets. } \examples{ -ADSL <- tmc_ex_adsl -ADMH <- tmc_ex_admh +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADMH <- tmc_ex_admh +}) +datanames(data) <- c("ADSL", "ADMH") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADMH <- data[["ADMH"]] app <- init( - data = cdisc_data( - ADSL = ADSL, - ADMH = ADMH, - code = " - ADSL <- tmc_ex_adsl - ADMH <- tmc_ex_admh - " - ), + data = data, modules = modules( tm_t_pp_medical_history( label = "Medical History", @@ -85,3 +86,13 @@ if (interactive()) { } } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOyAWQAJIpKyyur+GBilAF9FCCToeFFE0JtwgnYFMByCuZS5nNa5oYArIni-AGs4VnGkqaN+OGMoYVI-An5aUTKtnf3D4BHYMQnPOQBdVwgFoVwklgMAVnl8nMfn8Ac02sDQqDwWswND-mhUEV4tFZhAMkkdABeHRJXANPhCESiIk6CnCT4NDIlPzXdB+eB3WT+OKiUhENi4jJCnTUKD0ODUGlzJpwTncHQte58thLRlC97wKXzOGqvHCnSoFgUUijXTE8GLPBqjKGjTGm5ESXmsAOXIOABCACkAJLZXX62kxciMGA0ggxbYEMR+UQSuDqWWCgM6cORsQ0zQsWhikQ3CMyT6rFopGbSlq2JxYJrrORkvUB2MiBP8LWtCtVubWnS1ru9egCUSHMP5qOiGNx5tJgOpgvU4mZxjZ+i5mej9hF5ZgVrugDyeQAmrl1nXkzpG-HyC3ndu97lD5360Ke4+Mr07ryPMO02Pz5OuxlV3TecsxzOA82-dc4U3Vpsm9XJbEyWxj3-M8J0vVsWlg+DEIfAMhmFfDuyUIZaGMHR2HiYMoAsbRrBsNI9VEOIIFYTJ0HYDEABJBFoFIuNjRhtEYIZ+iUMB+h+IA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_pp_prior_medication.Rd b/man/tm_t_pp_prior_medication.Rd index 5cdeea5d0..9a523d3b3 100644 --- a/man/tm_t_pp_prior_medication.Rd +++ b/man/tm_t_pp_prior_medication.Rd @@ -52,28 +52,23 @@ This module produces a patient profile prior medication report using ADaM datase } \examples{ library(dplyr) - -ADCM <- tmc_ex_adcm -ADSL <- tmc_ex_adsl \%>\% filter(USUBJID \%in\% ADCM$USUBJID) -ADCM$CMASTDTM <- ADCM$ASTDTM -ADCM$CMAENDTM <- ADCM$AENDTM +data <- teal_data() +data <- within(data, { + ADCM <- tmc_ex_adcm + ADSL <- tmc_ex_adsl \%>\% filter(USUBJID \%in\% ADCM$USUBJID) + ADCM$CMASTDTM <- ADCM$ASTDTM + ADCM$CMAENDTM <- ADCM$AENDTM +}) +datanames(data) <- c("ADSL", "ADCM") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") +join_keys(data)["ADCM", "ADCM"] <- adcm_keys -join_keys <- default_cdisc_join_keys[c("ADSL", "ADCM")] -join_keys["ADCM", "ADCM"] <- adcm_keys +ADSL <- data[["ADSL"]] +ADCM <- data[["ADCM"]] app <- init( - data = cdisc_data( - ADSL = ADSL, - ADCM = ADCM, - code = " - ADCM <- tmc_ex_adcm - ADSL <- tmc_ex_adsl \%>\% filter(USUBJID \%in\% ADCM$USUBJID) - ADCM$CMASTDTM <- ADCM$ASTDTM - ADCM$CMAENDTM <- ADCM$AENDTM - ", - join_keys = join_keys - ), + data = data, modules = modules( tm_t_pp_prior_medication( label = "Prior Medication", @@ -104,3 +99,13 @@ if (interactive()) { } } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEPxQpFD6RlzUAPpBIdZKMaGGOgDutKQAFrQQ7Am4OiBKOjoAggAiAMIAsmE6pDAEkXAAHpFQ-AQwhSWlAMoAMjV1Dc2t-KLUOgCkAHyTJrTU5IzsDj0OAEIAUgCSpVNZc2VVACSrGzulAUVHlcdVxT22pbbVSTfHD08vXe-3TgByz1eRnexQBQKUAF8AgloPBRDlglAbEkCOwFGAyv0MXkMTcMQEAFZELKRADWcFYCISKKM-DgxigwlIkQI-FoogaxNJFKpwFhsDEiJCcgAuko2h1yZTRDU0RjHg5SgBNXY4nQYs5bNV4DWYx4Q3UYqo9JwARXVeNs5QAjJbMdaAEz24rWgDMLutABYCUpuRBpVThcjgHiKpUXeGMaKapKYIHRK4IFiBkkEsBQ5jen1o+Lk+GaunM-iwKK8xL0DUsml0RAigkdABeHS5Lp8IQiWXN9vCIVdIp1SIs9CRVCMSyMSLwdmyDRWftFHTUKD0OATZsYgAK46IjB0lTgM+ClggOIX9aRcN0G6zVTPdcXRVQLAopCvTb1Kfvj6fx9frKIdc9S1C5vx-Y9GDXD8CHSEkCDESJRDXOB1EPWsf0XGC4LED9NBYWgVxEVlYJkIUblxB1tiwJwczAORcHPRckJEVD+A-K0qJojFGPoxiOnpYg2ObLDSNERDkNY9CMJ0ET4K7HQ8PHQi4GI7CEXIvUqlKJxygAeVKAkGIfDDmJQ8ghM0yptL0gywB4oyMI6LJ2mgki5PEljzKkxy3Jw5tFII+giNksjwwoqptkBcpDMYopTNY9iwAiqLuOMxdeLSooOlEUh+FYVy1I8sy0NimTfPkgLlNU0T2A0vEDWVGLMqYiTzMSz4VVSjCrnSroAgCWhjB0dgsiWKALG0awbAKB9REyCBWGKdB2DQVBjkEWg8lW44kMYbR-ChJQwEhUUgA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_shift_by_arm.Rd b/man/tm_t_shift_by_arm.Rd index 501648fb7..2105c4889 100644 --- a/man/tm_t_shift_by_arm.Rd +++ b/man/tm_t_shift_by_arm.Rd @@ -90,18 +90,19 @@ a \code{teal_module} object. This module produces a summary table of analysis indicator levels by arm. } \examples{ -ADSL <- tmc_ex_adsl -ADEG <- tmc_ex_adeg +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADEG <- tmc_ex_adeg +}) +datanames(data) <- c("ADSL", "ADEG") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADEG <- data[["ADEG"]] app <- init( - data = cdisc_data( - ADSL = ADSL, - ADEG = ADEG, - code = " - ADSL <- tmc_ex_adsl - ADEG <- tmc_ex_adeg - " - ), + data = data, modules = modules( tm_t_shift_by_arm( label = "Shift by Arm Table", @@ -120,11 +121,13 @@ app <- init( ), aval_var = choices_selected( variable_choices(ADEG, subset = "ANRIND"), - selected = "ANRIND", fixed = TRUE + selected = "ANRIND", + fixed = TRUE ), baseline_var = choices_selected( variable_choices(ADEG, subset = "BNRIND"), - selected = "BNRIND", fixed = TRUE + selected = "BNRIND", + fixed = TRUE ), useNA = "ifany" ) @@ -139,3 +142,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOynAHEikrLK6v44AHMlAF9FCCToeFFE0JtwgnYFMByCuZS5nJa5oYArIni-AGs4VnGkqaNu4yhhUj8CflpRMq2d-cPgEdgxCc85AF1XCAXCuEksBgCs8vk5t9fv8mq0gaEQWC1mAoX80KgivForMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K6iOLGK70VjVRgwHEZfk6ahQehwajUua5NmkHScrI8uzCkRLBn8t7wcXzWHK3ECnQsGB+TQsakEGLbAhiPyiUVwdRwfh83UZI2MWiKuDXM0yD4AlKiQT0a3SokzFZYACySx0YfDAGFsus5KSdU7rSI7fwNZkI3MVRkk3mdKgWLAbiavRbRFabRnHU6jdRBB7TeafbDlmAAArZzJxhNgAsp3Vp23kTNEuYACSwuaH+eT9bu0UNxpDFctI9rhed3Cbntb41WzQ7mQAagBJXLn2zrBdOnSbscazsAeVytgMACFMrknPlzwAck4OjhoB57hg4kZgIWg5OlADYrow5YHtW6ZjnWuoum69AiPu3qHu2D4BkGWYAVggH9rB96PvapHkQB-Z3k6xi0BUtFEvYzgwUx-L0FAabxB6LrIfhqGjvaGEClh7p4ZW7BHn6xFwMG0ZgJ+ZEUbe24PjWT4TmpGkMdq94mKx7F2I4LhzjoVECoI1oAZkGq0OcECsLOApDPmShDC5OjsPE5BqBo2jWDYaQ6qy8SsJk6DsOiAAkgi0CkiXWow2iMEM-RKGA-TfEAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_shift_by_arm_by_worst.Rd b/man/tm_t_shift_by_arm_by_worst.Rd index d7bfd6f4f..85a7b6517 100644 --- a/man/tm_t_shift_by_arm_by_worst.Rd +++ b/man/tm_t_shift_by_arm_by_worst.Rd @@ -91,18 +91,19 @@ a \code{teal_module} object. This module produces a summary table of worst analysis indicator variable level per subject by arm. } \examples{ -ADSL <- tmc_ex_adsl -ADEG <- tmc_ex_adeg +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADEG <- tmc_ex_adeg +}) +datanames(data) <- c("ADSL", "ADEG") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADEG <- data[["ADEG"]] app <- init( - data = cdisc_data( - ADSL = ADSL, - ADEG = ADEG, - code = " - ADSL <- tmc_ex_adsl - ADEG <- tmc_ex_adeg - " - ), + data = data, modules = modules( tm_t_shift_by_arm_by_worst( label = "Shift by Arm Table", @@ -121,7 +122,8 @@ app <- init( ), worst_flag = choices_selected( value_choices(ADEG, "WORS02FL"), - selected = "Y", fixed = TRUE + selected = "Y", + fixed = TRUE ), aval_var = choices_selected( variable_choices(ADEG, c("AVALC", "ANRIND")), @@ -140,3 +142,13 @@ if (interactive()) { } } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOynAHEikrLK6v44AHMlAF9FCCToeFFE0JtwgnYFMByCuZS5nJa5oYArIni-AGs4VnGkqaNu4yhhUj8CflpRMq2d-cPgEdgxCc85AF1XCAXCuEksBgCs8vk5t9fv8mq0gaEQWC1mAoX80KgivForMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K6iOLGK70VjVRgwPycvwRIiMUSkHEZcU6ahQehwajUua5NmkHScrI8uzSkRLBnit7weXzWHa3ESnQsXmaFjUggxbYEMR+USyuDqOD8MWmjKWxi0TVwa62mQfAEpUSCehO5VEmYrLAAWSWOljcYAwtl1nJSSbPU6RK7+AbMvG5jqMpnSzpUCxYDdrYH7aJHc78x7PZbqIJ-Ta7cHYcswAAFIuZVPpsDl7Om3Mu8gFolzJwp5oASQAcrYByXJ2Ws57BcKrsYpT0-N66z3G9OWxWvSxffQRAGL+xVs0UjGwAB1ADyWFyAAYACYADEITwJMv1-ACAEZQIzXdPR0K9ZwNH8-yAuCwArCc9yFEU-CPKAenPINL2bWdW1NdtOyfUiXz7CC0IAkCwJwxDkLdA0AE1jUQkxaAqTiiXsZxsIQiUoHbU8rWjesHQ490bx0b170fbs6Nfd9ZnmAA1TJ8hTRMVlXLA1zHOQ2JzcihIgzI9IMrdPUs8V6CgXN4n9M9ZIvJs8wopSVL9WiG3olotLmAAhTJckXIywAikyzPgpSFINKKYsMrDtx0ZyMkEJ1V0yA1aHOCBWEc8UhjLJQhhKnR2Hicg1A0bRrBsNITVZeJWEydB2HRAASQRaBSQanUYbRGCGfolDAfpviAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_shift_by_grade.Rd b/man/tm_t_shift_by_grade.Rd index 4189a314f..0b5a04984 100644 --- a/man/tm_t_shift_by_grade.Rd +++ b/man/tm_t_shift_by_grade.Rd @@ -105,18 +105,19 @@ a \code{teal_module} object. This module produces a summary table of worst grades per subject by visit and parameter. } \examples{ -ADSL <- tmc_ex_adsl -ADLB <- tmc_ex_adlb +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADLB <- tmc_ex_adlb +}) +datanames(data) <- c("ADSL", "ADLB") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADLB <- data[["ADLB"]] app <- init( - data = cdisc_data( - ADSL = ADSL, - ADLB = ADLB, - code = " - ADSL <- tmc_ex_adsl - ADLB <- tmc_ex_adlb - " - ), + data = data, modules = modules( tm_t_shift_by_grade( label = "Grade Laboratory Abnormality Table", @@ -161,3 +162,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOz8gCEikrLK6v5qeiUAX0UIJOh4UUTQm3CCdgUwHILZlNmcltnBgCsieL8AazhWMaTJo344YyhhUj8CflpRMs3tvYPgYdgxcc85AF1XCHnCuEksBgMs8vlZt9fv8mq0gaEQWDVmAoX80KgivFojMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K6iOLGK70Vh+ADmzFOOIygp01Cg9Dg1GpswA4nzdPlRURmKRFawsvQIIqYNxoqrbKKRIsGYK3vBJXNYYbcUKdCwYH5NCxqQQYlsCGI-KJxXB1HB+ALrRlna6xNSHYxaPq4NcXTIPgCUqJBPRPaQnTM5lgALKLHTLLMAYWyazkpKtAc9Ih9-DNmSzsyNGRLDZ0qBYsBuTpjbtEHq9Vf9AaDsapRId1EEUaH3fYK2aSzAAAVa5lM4Wc7Ml1gV2tSwGMhXveRq0TlvlbPWy4Km5eMhFFaIrsYRdz7Y6iVP3Qf+83A12Q6OWAjegRGjYMxlnBMkxTNNZgAdSlLB8gAeQANQAMQhPBczAeDEKQjD1xwhCAAkAEl0Mw+dcLIgiwDka89x0L8jxgoi8IotZmwY6070YB8-CfKAX3iW5ZGVRhOzA3tKyPAdrTHCdQOHGdYSohDkI4ujdz3ZjfTNABNHNjFoCo9KJexnC47ShSgCB-GVCpeRqKMw0k4dpMPX05KFD8Rx0MMgJA3yVJaSDkzgVN33TTJbCQgANBDi2s61dOPHRpmWWKEqwHcfxMEyzLsRwXBvHRuKFegoE9ZkiEc2VXwk98-x7VLvMFXzQ0AyMlOnCCmKgiLWOaLLEro8qUr7FiotmYb4tG8ahWM0y0oskqAwWm1+H4GrPAlIk0MyfJcjWq8Gm44zqHIRrijgbgPToadfHu2NovBQjckyNDaITSbCtmQyxqUQZaGMHR2HiK6oAsbRrBsNIrVZeJWEydB2HRAASQRaBSDHPUYbRGEGPolDAPpviAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_smq.Rd b/man/tm_t_smq.Rd index 3f6462ee5..30ee27e5f 100644 --- a/man/tm_t_smq.Rd +++ b/man/tm_t_smq.Rd @@ -109,10 +109,8 @@ data <- within(data, { fixed = TRUE ) }) - -datanames <- c("ADSL", "ADAE") -datanames(data) <- datanames -join_keys(data) <- default_cdisc_join_keys[datanames] +datanames(data) <- c("ADSL", "ADAE") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] app <- init( data = data, @@ -143,3 +141,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOzMpyKSssrq9zhXCAzoeFE-eihRAGs4UlEigHNGOFR2BTAAPXZcgFkARQAfAGFNuQwAKgA5TPWAEiWU-rF2HOa5FM1uQV0AXjtHJ0VenVvBqJiKgxDM5gslssNptjrldlc8P9YHcHj9nq8Pl9nL8GgRBsMxhMpuECDEiDIxH5RHAROo4PxFn8MqTyQRQZ8XoxaFB6CI-CyKaJ7k0nClRIJ6NTSDpPgChiNxpMng0MtTaeR+DKkQN5YTJg0cX88VTgaCSWTBVSaXA6QyVToBWyphyWNzeXB+RancLmmKJVKtXKgUQQaJlUydGqbRrA8jAabRLh7cZaBV6Vr7M4DUoAL6-JIAxKhGwkxZgHIFa46Jaopa-ABW5IgfnGrCFSRLRn4cGMUGEpH5-FoQL8jfiLbgbeABbjRc8cgAuj00KgivFooyMkktUkk38+EIRM6dAfhHd7SU-APRDAAI6bjKP6g8mlamv8bSMak6JzaMhTehWB0aE7B5ERrntLdQluN9yxFCCIwyFgYD8TktUdSko1tB9H0fDDj05N0+XwucoGAYAazyfIlgXBc-UlCZ0LLTIsHWKsllyJwAA063DXDcKwmNPhrVilkgnQ+P4mp+CvIhPGoLUADFMnyTi934nQCUVY8knIpZjS0okaLo8Tg1DHdQj0wh4xDMRjPU-jqGoaVPnwq11XpHD+PwrVCLAj0SN0ii4OaezI39RjXOYpxsicXYAHlsl4hyNME9NhPLGK4sSsTEIk+1fgyX5floYwdHYeJyDUDRtGsGw0j+UQ4ggVhMnQdgVwuQRaBSTrqUYT9fhzJQwBzBcgA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_summary.Rd b/man/tm_t_summary.Rd index 3c20c13bd..89fda84b5 100644 --- a/man/tm_t_summary.Rd +++ b/man/tm_t_summary.Rd @@ -87,17 +87,18 @@ This module produces a table to summarize variables. } \examples{ # Preparation of the test case - use `EOSDY` and `DCSREAS` variables to demonstrate missing data. -ADSL <- tmc_ex_adsl -ADSL$EOSDY[1] <- NA_integer_ +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADSL$EOSDY[1] <- NA_integer_ +}) +datanames(data) <- c("ADSL") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] app <- init( - data = cdisc_data( - ADSL = ADSL, - code = " - ADSL <- tmc_ex_adsl - ADSL$EOSDY[1] <- NA_integer_ - " - ), + data = data, modules = modules( tm_t_summary( label = "Demographic Table", @@ -121,3 +122,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpQGIdABUZxULKBokOkTGOqQAFrrkoqQ6sqK6RoIJOgAGTgDyAMoAIgCaqTpQEPxpOQDCWVhOAIJZhZostFD0IqJhRDr8cHwQMczkOjC0oqK0EADmXQFQGEr8M-pGXNQA+gukUNbzi4Y6AO60EePsG1C4OiBKOjo1OVkAMkthMASrcAAeq1D8otTXt3uDwAJJlcnlgABGAC6zwAcjVVuNyBNVKslABfRQlGbQeCiU4zGx7AjsBRgO6PcnYgBWRHGqwA1nBWASzsSjN1jFBhKRVgR+CM3nSGczWcAznixITNnJoa4IJSnnszsBgOSleTofKIEo0KhnuMjmSIDczjoALzTTa4AF8IRtS1DATCaUAm6kGCrPmiQQwGAsDjum46agtODUJ3knI9IgTZiocIyOwtETk22mkNm3GwXRWjVA9PBm4sL2NRhOgjhekEMSrBIidRwfjsUkarAAWXTOnbHfKOWpF17g+LRX4-G9RE2kat9mcGazN19-qaAC84Kty+0rVWa3WG3Amy3Rzc22Ask4ABrd8lYGrlFx4HtgABCHawAGksAAmG9gMH5H+FRVLUWR-jUADij5yAui6nmS55Xn+d4PtSo4waOyRwAiUZgLQ3IQKw5LBtiNzYti+E6OwyKqFAFjaNYNhXJmohJoRNToOw+rAoItAXNxCSMNojDYhiShgBi0JAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_summary_by.Rd b/man/tm_t_summary_by.Rd index 32c5e02d1..b0a3a68b8 100644 --- a/man/tm_t_summary_by.Rd +++ b/man/tm_t_summary_by.Rd @@ -106,18 +106,19 @@ a \code{teal_module} object. This module produces a table to summarize variables by row groups. } \examples{ -ADSL <- tmc_ex_adsl -ADLB <- tmc_ex_adlb +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADLB <- tmc_ex_adlb +}) +datanames(data) <- c("ADSL", "ADLB") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADLB <- data[["ADLB"]] app <- init( - data = cdisc_data( - ADSL = ADSL, - ADLB = ADLB, - code = " - ADSL <- tmc_ex_adsl - ADLB <- tmc_ex_adlb - " - ), + data = data, modules = modules( tm_t_summary_by( label = "Summary by Row Groups Table", @@ -152,3 +153,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOz8gCEikrLK6v5qeiUAX0UIJOh4UUTQm3CCdgUwHILZlNmcltnBgCsieL8AazhWMaTJo344YyhhUj8CflpRMs3tvYPgYdgxcc85AF1XCHnCuEksBgMs8vlZt9fv8mq0gaEQWDVmAoX80KgivFojMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K6iQQwGAsVh+egcBkZHTUKD0ODUamzXJsjlsHQ8nRYIgRHQAcUYREEqCptiFIkWfLxoRGuiJSOautx-IyLBgfk0LGpBBiWwIYj8ohFcHUcH4OItFodTrE1NtjFo2rg10dMg+AJS02WWAAsosdPGEwBhbJrOSk82+nRukSe-hiuaJ2Z6nTZis1fjMoieUVE+zOHN5nk2lhUon+qOiV3uos+vM6HvOrs6YOh+giCMBsYrZqxmZgAAKmSwmSTeBTcwAagBJXL72xZ1vDgse8jF7vLzIHo8nsCDPNV3P81nsli0ABe4eD49HF0L0HCsMkA8dJzDWde3YBcl2WXdMghbdZjTAAJJVT1A-MByve1b0Q5Dn19V880EN0ADlMhLWhzggVgzTzVAWFgG57UjMd+0LK8hzzcCg24QRw3A2DYSWVd103DNk1mNcNy3Ujz1wr0SyQx8K2IjJiMGQZaJ0dh4nINQNG0awbDSc1RDiejMnQdh0QAEkEWgUkct1GG0RhBj6JQwD6b4gA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/man/tm_t_tte.Rd b/man/tm_t_tte.Rd index 8b28bbd78..ddb7b873a 100644 --- a/man/tm_t_tte.Rd +++ b/man/tm_t_tte.Rd @@ -121,8 +121,16 @@ filtering for \code{PARAMCD} one observation per patient is expected } } \examples{ -ADSL <- tmc_ex_adsl -ADTTE <- tmc_ex_adtte +data <- teal_data() +data <- within(data, { + ADSL <- tmc_ex_adsl + ADTTE <- tmc_ex_adtte +}) +datanames(data) <- c("ADSL", "ADTTE") +join_keys(data) <- default_cdisc_join_keys[datanames(data)] + +ADSL <- data[["ADSL"]] +ADTTE <- data[["ADTTE"]] arm_ref_comp <- list( ACTARMCD = list( @@ -136,14 +144,7 @@ arm_ref_comp <- list( ) app <- init( - data = cdisc_data( - ADSL = ADSL, - ADTTE = ADTTE, - code = " - ADSL <- tmc_ex_adsl - ADTTE <- tmc_ex_adtte - " - ), + data = data, modules = modules( tm_t_tte( label = "Time To Event Table", @@ -179,3 +180,13 @@ if (interactive()) { The \href{https://insightsengineering.github.io/tlg-catalog/stable/}{TLG Catalog} where additional example apps implementing this module can be found. } +\section{Examples in Shinylive}{ +\describe{ + \item{example-1}{ + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOzbWycikrLK6v5SciUAX0UIJOh4UUTQm3CCdgUwHILZlNmc5pcwQYArIni-AGs4VjGkyaN+OGMoYVI-An5aUTKtnf3D4GHYMXHPOQBdVwh5oVwklgMBlnl8rMfn8AU0WkUQWC5nC1tD-iwYH5GOcbkQYKginRRKQZhAMpkAMK2TJYACyFOyOgAvDoiSSGhlscZmTplnSdAAhRYcnTEfE86Z82lZRa8ub8imzQYZOS4Bo06UstmkjKc8482YCxA6AAK1CgBDg9CIwrJurFBJZkrmxuyjEEAHMdAANWWzCnGil4+jxDyWCBKhqDQZKNAE8LxaI6nRJHlJNV2vhCESiHlZ4SfEUlPzXHpwZO61lQehwagGsC2WjwOxEHRObRkOzVkS2ysZd7Nlng1a9vsYvyaFgSmLbS2iPyiWtwdRwfgVvuTxi0btwG4zmSfQEpZ0av3y+nZM+U6l0hlK1UiytS2aPnQPu2V8dc3HillfnEOhmfY6KgLCwLc06zmIC5Liua6vhkk7UIIu4EPuc7sCsLRLGAJo0pkF5nnhWAEUqQHAXKADyuQvh+urvsBxLMJ4E5Tk66HQYuIhweulabtu9AiHuUFjEeoozGAuROL6eBygKtJYAA0lgABM97kcBsxSTJr4MX2GjwH4qDbGQubsSJMHceQa7TAAjAAHCpKQqQALAAzKqOgOSpemVnAHbXGcDysYwkEHvOXHLtZvG6vxO7CeFmEojhTgAGoAHK2NkTi5Iq6waX2sxpZl2W5aOwHGLQFSrjy9jOLpIrKm+SiDLQ3LsPE5BqBo2jWDYaR2qIcQQKwmToOwcYACSCLQKRTYujDaIwgx9EoYB9D8QA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} + } +} +} + diff --git a/staged_dependencies.yaml b/staged_dependencies.yaml index 8be7bb08d..967c4e3d0 100644 --- a/staged_dependencies.yaml +++ b/staged_dependencies.yaml @@ -41,4 +41,7 @@ upstream_repos: insightsengineering/nestcolor: repo: insightsengineering/nestcolor host: https://github.com + insightsengineering/roxy.shinylive: + repo: insightsengineering/roxy.shinylive + host: https://github.com downstream_repos: diff --git a/vignettes/teal-modules-clinical.Rmd b/vignettes/teal-modules-clinical.Rmd index 7e20d17ca..4e4503f2e 100644 --- a/vignettes/teal-modules-clinical.Rmd +++ b/vignettes/teal-modules-clinical.Rmd @@ -46,7 +46,7 @@ See the full index of package functions & modules [here](https://insightsenginee A `teal.modules.clinical` module needs to be embedded inside a `shiny`/`teal` application to interact with it. A simple application including a bar chart module could look like this: -```r +```{r app, message = FALSE, results = "hide"} library(teal.modules.clinical) library(nestcolor) @@ -82,9 +82,28 @@ app <- init( ) ) ) +``` -if (interactive()) shinyApp(app$ui, app$server) +```{r shinyapp, eval = FALSE} +shinyApp(app$ui, app$server) +``` + +#### Try it out in Shinylive + +```{r shinylive_url, echo = FALSE, results = 'asis'} +code <- paste0(c( + knitr::knit_code$get("app"), + knitr::knit_code$get("shinyapp") +), collapse = "\n") + +url <- roxy.shinylive::create_shinylive_url(code) +cat(sprintf("[Open in Shinylive](%s)\n\n", url)) ``` + +```{r shinylive_iframe, echo = FALSE, out.width = '150%', out.extra = 'style = "position: relative; z-index:1"', eval = knitr::is_html_output() && identical(Sys.getenv("IN_PKGDOWN"), "true")} +knitr::include_url(url, height = "800px") +``` + Consider consulting the documentation and examples of each module (e.g. `?tm_g_barchart_simple`). In many, you can also find useful links to the [TLG Catalog](https://insightsengineering.github.io/tlg-catalog/stable/) where additional example apps can be found. `teal.modules.clinical` exports modules and needs support from other libraries to run a `teal` app and flesh out its From bd6ebbf1b98d767cfc02c5d468d776d2492a024f Mon Sep 17 00:00:00 2001 From: "27856297+dependabot-preview[bot]@users.noreply.github.com" <27856297+dependabot-preview[bot]@users.noreply.github.com> Date: Mon, 30 Sep 2024 14:51:57 +0000 Subject: [PATCH 2/4] [skip roxygen] [skip vbump] Roxygen Man Pages Auto Update --- man/tm_a_gee.Rd | 2 +- man/tm_a_mmrm.Rd | 2 +- man/tm_g_barchart_simple.Rd | 2 +- man/tm_g_ci.Rd | 2 +- man/tm_g_forest_rsp.Rd | 2 +- man/tm_g_forest_tte.Rd | 2 +- man/tm_g_ipp.Rd | 2 +- man/tm_g_km.Rd | 2 +- man/tm_g_lineplot.Rd | 2 +- man/tm_g_pp_adverse_events.Rd | 2 +- man/tm_g_pp_patient_timeline.Rd | 2 +- man/tm_g_pp_therapy.Rd | 9 ++++++--- man/tm_g_pp_vitals.Rd | 2 +- man/tm_t_abnormality.Rd | 2 +- man/tm_t_abnormality_by_worst_grade.Rd | 2 +- man/tm_t_ancova.Rd | 2 +- man/tm_t_binary_outcome.Rd | 2 +- man/tm_t_coxreg.Rd | 4 ++-- man/tm_t_events.Rd | 2 +- man/tm_t_events_by_grade.Rd | 2 +- man/tm_t_events_patyear.Rd | 4 ++-- man/tm_t_events_summary.Rd | 2 +- man/tm_t_exposure.Rd | 2 +- man/tm_t_logistic.Rd | 2 +- man/tm_t_mult_events.Rd | 9 ++++++--- man/tm_t_pp_basic_info.Rd | 2 +- man/tm_t_pp_laboratory.Rd | 2 +- man/tm_t_pp_medical_history.Rd | 2 +- man/tm_t_pp_prior_medication.Rd | 2 +- man/tm_t_shift_by_arm.Rd | 2 +- man/tm_t_shift_by_arm_by_worst.Rd | 2 +- man/tm_t_shift_by_grade.Rd | 2 +- man/tm_t_smq.Rd | 2 +- man/tm_t_summary.Rd | 2 +- man/tm_t_summary_by.Rd | 2 +- man/tm_t_tte.Rd | 2 +- 36 files changed, 48 insertions(+), 42 deletions(-) diff --git a/man/tm_a_gee.Rd b/man/tm_a_gee.Rd index e9333ea22..89ac198ef 100644 --- a/man/tm_a_gee.Rd +++ b/man/tm_a_gee.Rd @@ -128,7 +128,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeUAipV1DU2t7fwAjqI6AKQAfNM9Jca01OSM7KUAQtUAYrUAhAC8OgpgAJqnOgBkZdt7AEw6RyfnpzZzCxAlJTCCoeTsRbfUoANQAkpUwbYdMcoOJjFB1ER1qCIVC5LggSVUZDbAA5GE6ZgQADWG3BuLx73mWO+cIwCKR62pn2+bJ09IggngjBk1hmNK+7JK9MZpGR1kxQrZoNK1U2YIJx1ltT0OgArAAGHQAYh0AClBKJSByplAvq1YD5dOKdABzOAmsL0bKeHQUbxEbKkDBAllA-iMIjW7TUUTxCAAXwCeWg8HDeRsyQIgLAFRqpwKpwqAzeSgAVl6IFESXBWAnEkmjPw4AjhKQogR+LRRE1C9kS2XRMBY7AxLlKwBdVzQdB1bLpQFCvKEvJSn4CYRiQl8IQicNAhrtKIOuBT4XUKD0ODUQmnADiThceFpvfgZ7T-UqmdpUE03Ci78YhIIGS9BDEKJRBPOB1DgfhUxVBU8UzExaBacDCXsZwMVpWh+E-Fgfz-GRAOAkQwIglNTgcSoHE2fUwXKWDTjIiiqLeLMwFI8jKOosBUOlOlGBgTDv2OX9-zwkDCPYYi0ywABZGiJMkgBhdiMReUopMY2lNBbdI+OwoTRCAkTyCIyCKShGScShGCOKY8zbDUriSlQFhYCbHTcL0-DQMM-dhR0QS3MJd9qEEOBGxwgCK1CYBgGzJ9TkHQcmIABRU0p5PYpKUukqzaRKDzCIfHYAGlIQMHYAHVNlOWlOOFYhNG0gSwuEgivPEzZSkqa9rMvGTOoADRk9rOsQGzGJ0PEHGqaoAjZGadACAJaGMHR2G9VREQ0bRrBsIohVELIIFYUp0HYNBUAAEkEWgCjO87gMYbR-CUSMlDASNByAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_a_mmrm.Rd b/man/tm_a_mmrm.Rd index 66cb4881e..fda55a156 100644 --- a/man/tm_a_mmrm.Rd +++ b/man/tm_a_mmrm.Rd @@ -166,7 +166,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEosMAD6jHDGIcQwqPpGdKKk7Eo6OgCCWACyAMIAIjoAvDoJSSmpOuHGhToKYBmZOgBCtbhlqdGxRQTJdVnpLTW9Ddm1AakBAUr8UKRQcTpc1CHTs9ZTM3OGOgDutKQAFrQQ7CtQuDogZWm5AMoAMvOkMAQhcAAeIVD8otRXuQCKN0ez1eHy+AEdRDoAKQAPmhbRMtGo5EY7DSjTuADEHgBCIq1ACatR0ADJ0picQAmHT4wbEsA2OEIiDlJEo1TogBqAEkbjzbDCjtCdN1agB1JxOADSOgAjDpcmlCToABwDCVS2U0pUquUAVg1YElMp0AGZFcqdFSqaMmfDETBBLNyMlWWz0rz+YKilBxMYoOoiGi0l6BXJWu62aG+QKAHLVZgQADW3Njtjj9pZHvKfowAaDaKziLZeYggngjBk1hhDqjHrzBdIwZrAGIAOQ6GBQZNHADmopIojgBGdWl05crMhMgebjERAQAvgFTtB4KIThsbFsxXVbncjddAaMlAArIhHELJuCsDenbdGfgRKDCUhRfi0UQvc+X6+34CrrAYibrMcgALquNA6DzEcexuqkpzVKckapHwQgiFCRRocIwGIk8nwhDAMCMDA8EetQUD0HA1DVLUmSZFkLQljogHwLRe7HngzFQJo3AhLxjDVAQ+wXgQYghMOIjqHA-DsLuoZpAeeCDNkAASADioznLUClKRGzG0Pw-EsEJIkyOJkkjuQsm7g4NwOI0ABSPK5Ea9lOS5WmDHZDnOa5jIoQ2JHGYJXRmWJogSdRVkyXJPT1IeWR5F5OmMQFzGaJ+ewhaZokWdF0k2fFYa2IeJVxildQlVp3HBZUUREDE1TBGEEQNTEgVsqgLCwAQ-C5eZkWWYVZE5sJeWYTovHUIIcBROFwGnMAwA6QCNy1GBYHaWAAAKGRpDk-nbXtWAHTV9ZssN1nsVi0r8gYWLis0YDMfpF2DpoOVhRNUVSdZcW1I0aQ3C4yk6epoPbSDAAaRpAyDiAxt6Xlxg4dx3GM5SYxMSi0FU7BHKis7jtYNiXO6oiHBArBpOg7BoKgAAkgi0OcDOM8OjDaP4SiLkoYCLmBQA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_barchart_simple.Rd b/man/tm_g_barchart_simple.Rd index e30f4a501..be9c052d3 100644 --- a/man/tm_g_barchart_simple.Rd +++ b/man/tm_g_barchart_simple.Rd @@ -183,7 +183,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAygAyyTqkMARpcAAeaVD8otQ6AKQAfBP1DTowgonk7ACStrYAYp0AvCZQ6gHsCmAAmic207MQ8-NFpWnUUPRw1MdgqypkBrZEP4xwBI6AAKRFQwgSlhumyeAHMLkEGi1Gk4uj0+oNhvFdFc5g1jLRqORGOwAITsdgo2wAeQAGgBxLA6HZ7ACMNgAZDpKU5Wk4AGrMvYnACyq3azQuOi5lKwIqFOhOjUQOmajEEsJ0tIRQQAvkFctB4KJKokbPkCO8Wh0TjUlc0URclAArIjlNIAazgrBNuXNRn4cGMUGEpDSBH4tFEfVd7q9PuAhtgYlNUDkAF1YtbOvlcsBgPabWB05mIMjUbmqvn7Y7i6WlGhUF1ysVjjcdLlmR2qrg5nwhCJRF3+8IU3jujA0rC0vQWAQSiww6JaDBInA27cGk8XuNhWBy01oFFl6JbeOGgMu7l+gNSGol6g4Jbz-Mk-Au4X2mf25udKJXk+pBdv+IjqGkoiPs+P6-jo85ugQYhdpoLC0M8IjhiU8FjtBMFNG07S9jhMFQbhv5KnKtqKvuADCtiNBReBUXy2p4C+uEnFgjTUS4jEnOsWxfrxYCtI0mzbJRJytPYjR0QATCcbGboipFyIRpF-gB6hwPwH40XRDFqaRixErQa5dpsjTtHyinKbcqkvgS1C7jodCiKQG4wdegx3gcD5Ph5uFvroe7Zt+6kgYBwGaX5JHqbBmEyIhezIYwqH0OhcGJSaim-tmhlxbBAUFVR9EihJemleVzFhcVDQcVxPF2h8GziUJIliYJTVSZxckKURuG2Sp+WkRFWk6Xu1Wsf1m7GRoZl7BZVkuNNDSDXZw23F5t73uBkFFb+QW6eWNW4aNQF7Gdu3+Tl8yZQhQ7JShaFwBhWEmuWNTPvuTg0gyWDlSifL8gDvJOP9YByPZK3zGd2ldgAcg47QETdDSzaZIjmZZ1nQ2t8x41Dv5DMGCHnS5UbuYpW0+WBEHXdDh0hQ6jU3WdUWgTF+3EQl91IU96UvXdKYfYVSo-XSjIg0DUtgwiG0wbD40leLf0nUZoYY8FOiLTj6l46t8sNNTO107FgVVEaWufmrv5sxd0VXWbpFCw9OgpWlGU89htV5ajt1c+p5FlUJXH6cHXVOCxhukfV3HlfxrVdaJidMdJvVgH7q1+4TcWKwjSMo9DaMa-N2vY8tes2S+Oe3KwaQk3AZOuZT03G75jsB6+FvJkdzM25udsaRzHd+y7fOpc9r1ZZSzOfVaKuSyHoPA0vfLg5D0e3HnIXL-3v7o6XOsVypNnR23tN7TdjMlfhe8w9F7OASPRfxW948e4LXvZS-SL4Zvm5OwKkHAGtFKptUjnfdiYBOJxyEgnTqTFk4IMkmnRo8kM4-x0PrJS-8Gjbx0IjZGuCFgl0xgtcuN1sEE3HMpIIQRaDGG5OUYkvktDrkhrUOYogygQFYI0dA7BGwABJBC0BqMI-8jBtAxAgLqJQYBdTpiAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_ci.Rd b/man/tm_g_ci.Rd index d43f5cfb8..7c1292513 100644 --- a/man/tm_g_ci.Rd +++ b/man/tm_g_ci.Rd @@ -137,7 +137,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQSvxQpFD6RlzUAPqh4dYhYRGGOgDutKQAFrQQ7PFQuDogSjo6AIIAIgDKADKROqQwBDFwAB4xUPyi1KUVlbUAQg1NLe2d-NT0SgC+QQXQ8KL5yTapBOwKYFV1W0VbVUNbQQBWRLkxANZwrMsFa0b8cMZQwqQxBPy0oi1nF9e3YALWBiFbhOQAXVcEB29VSBWAwAONVqWwhUJhA2G8OSiORRzA6OhaFQDVymU2EDKBR0AF4dAVcH0+EIRKI6ToWcJQX0yk0YgBzD60SllMU6ahQehwagcrYAYRIxloT3MugAkipGJpuDoAAr+Uh7Xlijo6xgcgqtNqkNTvUSoOAbE3i4HwOXbFHGqnisWiGVO0gc-0idQxB1O0W+8UELLnAhiDnO7ZYACy8sqex0W0GqawAGksAAmY5Mn3RsohwNwfhJzYp9OZsByMsVsUwN60VAiDkAMXKtWqTlbbZMtDaNb7A6HLrFQWjLdnrBi5styWttqgYYjzvLvrdunp+MG3rbyuo5At9LoolIUbPtAvqnDjt3o7F5vZR7AevKWHKjanu+OixvGibXnA2jUMshyDAAJL+-6Noue5tlW6iThBUEwViCF-gBGZyMAACMEIju+HYXl2Pb0v2g7DrO0aStKsrftUAbqBKUqIFsjFzuRFbnpeL6Rnx4qfh65QAGrqtU6q2EB76gTI4ESpBMo4UMcHSbJ8kocBOjoeQtZYRp7CwdpMlybYRGkQJbaURo3aHjodFDvZFbMTKHrsaGQaaN8mQ8WAYk6POFb6RWRnBhx9qvvenlSt537lNA1CsAAXpOUncIIcCKRWykJl+IH1tJA5ZgqAASADipahUZmHZtsUkVXgoWOdRLluQxqG+sqE4ma504uH1ZTheKkUxkQ-hXgy67tJu27xXxB6SV67VjYZsUxX5IlvqOXmsc1iqzTo9CsDo5q0FKIgFdGRWqcmQ4ABqVWA1T2OUtjlMR72ff+P0ls2Hnio1Q3PV9P1-SDHWds5U70aDYoDU1PV8RNc4muFQRBLQxg6OwuSXluGjaNYNglD6og5BArDlOg7AknBgi0EUzP+tqqhBDMShgDMEJAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_forest_rsp.Rd b/man/tm_g_forest_rsp.Rd index 124270038..9211fdac6 100644 --- a/man/tm_g_forest_rsp.Rd +++ b/man/tm_g_forest_rsp.Rd @@ -209,7 +209,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAygAyyTqkMARpcAAeaVD8otT1Tc1YrV09fYPD-IyiOgCkAHyrEw0wgonk7I0Aao3tAMI6ALw6-GkkxGnLqGnUUPRw1Icn5zYbWxANQGFYolF5vD7sBRgM4lFhQdSqHRYMTCUgAegAYuV+OUAOZQuS-TbbEy0ajkRjsAAKjSwjQAsmdmjoAITXKEAeSOWAAkgA5I5QnQAHyaRx5rR5tiu7LAGI57XaHIA6joHFSCUoAL5BXLQeCiSqJGz5AiQsAtDpQmpQlrTTUQABWRHKaQA1nBWIbciajPw4MYoKi0gQcaI+s7XR6vcA9bAxEaoHIALqxS2dfK5YDAW1tdpQ5OpiB2maZqrZ3P2sCF2IsGCPAMhogwVBdOiiUiQgFNLD0q46dudkmMAP9qEAIUQOiprwIcHoRGtJOILf7ZttU+ajEEuJ0AA1rTooWcp2dm-RyglLBAHQ05LgJrTGczroOu0CR8Yxxbezpx0vuwaFdW2udcfz7RpD1tX8zlvHQgiCJQ0FbfJymKd8biqftcgfbs+CEEQVmufDhATEkejSXE0mMAIfEeURUAwoFXneahvwxWiOyRMRUBIUQ4AAoEGjjeBvxLQShLrNJNBYNcShdOdRDSfiRARfgmKEmTGFoN4RBDeSZATdMajAp8oPApkCXvEkgWg58oRs+DcKEnQpM-JtV2uNzG2A5yhNQOFen4OSFLEZSPjgNSNKBGTqEEOB9NCw0SxtMAaTpey8CPNLaQZAk-JcqF+SOJxbAcwDAWsiqGlEQR6FxRgiEEZ4tJCwylJUyLyHUxyGi0nT6D0ggDMUw48xqfUjLzQkCqEsDx3pLAAGksAAJnM1onAPMAghcqqXI7ZhEmk2TQJGsLOqi3qdH63SEuGpKxo6EzzVaexGlsRoAEYNvez71p2-aXOyt66X+8q9tmhpIiIUg0hKOBaFxEpSDXdgADYAAZMfaGpVux3GdHxgmgaBf1A2DEcGL4sR+zfa7xycVppipHk6doDtoqEp40ahVpEkG3Rmg5uAoH4nR2FaZpFCyqE+VhnQnFiwQ7olvknBl0ngZEbRqCInR12q4Hj2bSI4HIbjqYgcX2DOLAZdSqkWA0bhLd463dGpe2NoFkQdGF-ixc9qWHeu2y0sahqxFELQhZFoOJapaXzPl1Gle4FXBbVjWIeBu9rq1oFitK9nObDnQedA80zxbEQLeRK2bbth3sqdxgXbYhv3ZtqlvZ2qGhJ1j59cNvPw5rs3654mmJeblOFfTuLVfYdWW6hNuO7dmevdDo3Cojogo9EGPtH9+Oe+T2WwH51WA9Fm2Q9zvPduBwvAS5XkBVLoc98BSuDfNFSSOVMT5x0DhfNe19fZgPvsHS+b9mJwF1iPQBwDo6xzPuAz2SdIE3yznfBOktL6pVTorZWy9V5wT2o5F++duwISULQL87BygUnhBobQ1gbB1G7KIMoEBWCNHQOwZCAASQQtAahiP4owbQMQIBaiUGALUyYgA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_forest_tte.Rd b/man/tm_g_forest_tte.Rd index b5430e246..e0ecc1161 100644 --- a/man/tm_g_forest_tte.Rd +++ b/man/tm_g_forest_tte.Rd @@ -187,7 +187,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAygAyyTqkMARpcAAeaVD8otT1Tc22tk5dPX2Dw-yk5BMtHQAkWI0AwrP5-IxEkXDa1KLs6+1bu042AKQAfPeFxSVp1FD0cNTsCmBYKAEOD-IIAXyCuWg8AuuRs+QIfzAV3+NX+LWmLjAQQAVkRymkANZwViwqrwoz8ODGKDCUhpAj8WiiPp4gnE0nAKGwMSVRJyAC6sSuXVywGA6La7X+AqFEAxM1FVXFksxMrlShYMDSjGpDKIMFQXToolIfwgDUaWAAsjoALw6E1miYNXXGe06f4AIUQOgACp9gfQiKiXTpiIaPYj0b7moxBABzHQADVRnrAO19OwN9HKCUsEFBEzkuDWNp2zQ9TvNDVd1I96JtOi9oYttYjRod0eRTcaacbtp2RbbQSCmvQXXKxRrOlyHtypbbfCEIlEHuXwl5YZ6aQTaWMAR8aRWcBntcdXx+DbAADFD6adK1BIxNFpuK3zw1ufBrwqsYvPx0LU0k0FgoxKfFgVENJRB+OB1Dgfgz0-UDGFoL4RAZCCZF5K4am7K1rX7HtrQrUESzDc8BzIsBKJ0Ci23PYC3X1SMHWYvUOwAz9UBYWBGXAyCxBguCEKQuiGlA6hBDgLChIuP80TAP0rUaUjmmIlTtiI7FuMA-4AHlWn+OiGMA0RBHoBMjkEVAQLArtsKgkSRDE5Dz1Q9D6EwggnNwqUamhfyOjkMzAPDJEvWtLAAGksAAJmI1onFTbFTL02tTWYRJ7MYQScOg2DXPIcTGJQlgvJ8vyFICiL-laexGlsRoAEYksa5rEuxML9LABrtk6kyyoaIJz1G+ilCCWh3XYcpyDUDRtGsGw6jbUQyggVhGnQdg0FQDZBFoGo9o2WCX1UcElDAMEBSAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_ipp.Rd b/man/tm_g_ipp.Rd index 7c70ab6c5..58b6a5d55 100644 --- a/man/tm_g_ipp.Rd +++ b/man/tm_g_ipp.Rd @@ -175,7 +175,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAygAyyTqkMARpcAAeaVD8otQ6AKQAfBP1DTpjMnDsAIyIAEwADDbTsxDzOvzG-QORMsVp0Nn7Tc3tAEJdPX2Dw-zU9JMzcw3GtNTkRjsBytBz3ABSAElmpNyhNbh0ACQgsFQ5o7b43BpHE5nAgXK4YvYHP4A1TsRoANUhrUhth0AEIALw6BRgVoAYSwTicADlIbyAOJsoIAXyCuWg8FElUSNnyBHYbJaHTZNWVd3uIqUACsiOU0gBrOCsGW5eVGfhwYxQYSkNIEfi0UR9PUG42m4CS2BiWVQOQAXViKs6+VywGAGtVYADQYgLQeXXDkbACa1MbjSjQqC65WKSpuuR0LNyuDmfCEIlExZ0FeEvp+3RgaQA5mlaOgCwcGtQoPQ4OMWWzIXEtLQhNwdAAFBK0Cikaf+UhqxvYqpS3RD1OaldY+YsZuaFg1gglfUEMRpUQDuDqOD8LvdhpH6iCOAOs9LGVp9WprAAWQ5ZoRTLPcDmVACmjZVcdDkUCn1QFhYEdE9PwvUQrxvO8Hxg59uDfD9z19H9WTAKdGiwRpAOAsA4Nw0jGnaWxoLA2D4O7KAXzSI9GFQoiMOvERsMfJ8eNoPsREIr8KU1GpFWVSlGLVUiOQACWFWi6NYhoFKUsAYK0p9OPw7jjxZU9+MwoTyBw7SdDEiT3ws6SSPk1NFPaBwRUMp8GI8ry8Hov4BnvGt7GcAz2IOcdTN48y0MvQTbxskTuwc+hJOc9CZIeOSlTAFEIWhbyou7NlCrRXdfJMWgQv4MLHBcVifIOTRnQuHi+K-KzkvvVLWpYcSMqchLv1knQ3KpGk6RK+iFOm5j9Oa0qGnoKBBPKd9OviyykuE+j0sy0acvuPK2XuRpWhcTSVvmc7Luu27flq0KWXCpqnxa-d+H4NI1o27w0hKKRNx0AAxRirtu69EOYcg-tYNIiHoasWQh9orsbIIGiCIJaGMHR2HKQEoAsbRrBsOoblEMoIFYRpO2zRFBFoGomevRhtBiCBRSUMBRQDIA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_km.Rd b/man/tm_g_km.Rd index 0e29def52..1b89b0d35 100644 --- a/man/tm_g_km.Rd +++ b/man/tm_g_km.Rd @@ -172,7 +172,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQSvxQpFD6RlzUAPqh4dYhYRGGOgDutKQAFrQQ7PFQuDogSjo6AIIAIgDKADKROqQwBDFwAB4xUPyi1KUVlba2Tg1NLe2d-KTkSgC+QQXQ8KL5yTapBOwKYFV1W0VbVYMuYEEAVkS5MQDWcKzLBWtG-HDGUMKkMQT8tKIt55c3O7ABawMQrcJyAC6rggO3qqQKwGABxqtS2kOhsIGQwaiOR22xxwxMJYMBijBenyIMFQDToolImwgZXKAGFbOUsABZVmVHQAXh09MZfTKFOMAp0B25OgAQntRTpiDTJRtpVyKnspdsZaytkEynJcH1ORrBcKmWUxS9JVtZYgdAAFahQAhwehEBXMq3K2mCtXbB2VRiCADmOgAGlqtqyHazqfRcmFLMETn0gkElGhaalcplLToCpKCsbvXwhCJRJLy8IwYqmjFQ9cYAWrUKoPQ4NRbWAANJoF0QAxcuC0VRO-ykL1tsog+A9w5Dacz0kxTQsVVZC5u0QxURduDqOD8Vsz9eMWgdkSfLcyMFwooB03RnU8yovtkc7m8-VGxVt9Utn-HQ-29NtUBYWAvk3bcxD3A8jxPYCynXahBDgG9YOWRcnH2MBHU5co3xfAisCI-VSxnK0tgAeWqICwKtUCqNXcUqRVQVWMpX1KJnBlmHCNcN39W8d3gkRENPNtz0vehrwIUT71RR9NjAaonCjPBtVlLksF7LAACZf14qitnUzTgOYmdXjdD5zxgu9d33CTyCQxjpJYWT5MU7DlKVVTzJfHS9MM4zkJ0AA5BxajRdyQMVA14ogIJaAldhcnINQNG0awbBKb1RByCBWHKdB2GzAASQRaCKSr90YbRAlmJQwBmSEgA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_lineplot.Rd b/man/tm_g_lineplot.Rd index 1ad25a410..4f757ebd6 100644 --- a/man/tm_g_lineplot.Rd +++ b/man/tm_g_lineplot.Rd @@ -161,7 +161,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBbgyhHMYBsqSiQUr8UKRQ+kZc1AD6GVnW6ZnZhjoA7rSkABa0EOFluDogSjo6AIIAIgDKADI5OqQwBPlwAB75UPyi1O1d3f0AQkMjY5PT-NT0OgCkAHx7Cx0wglnk7J0AagCSvbe2OgC8zybq+YxwAfyqV3cPWwtG73R4AORaMAaciCAF8gkUoNB4KImlkbBUCOwFGAegMcS0cT0VjiggArIgNfIAazgrFRiIxRl+xigwlI+QI-FoojGFKptPpwERyLEaKgcgAuq4IHjBhVEcBgES+v0cZLpbKlqsFWUlSqSWANTK0Kghg0atiIB1ES8dIjcAs+EIRKI7c7hGKTsMYPkAOb5KRwSJEUhWjoRnTUKD0ODUO04-oNXQABX8pAJ3ptZVFCdx2sz1sjOlEpGYWTtBFqlIIYnyojjcHUcH44eLHU0LFoMZEnOrMjFcpaWKJWAAsgSdKOxwBhbqTokz2ydcdz0lyR1F9vTnFZnQbvesSv92uieuN5utvcdrs9uB9muD7XD7G466dNV4KdgZadXouL8cRnAAJABxBcwBTEDwLAGFN3bDoiXfT89wPLcI1QFhYGPR8zwbERLzbdtO2oQR7yrXCrmfb8UxXTpZ3nQDILoidYPghCiX6Wxd3Qjogkjfj9yUIJaGMHR2Aacg1A0bRrBsNoi1EeoIFYTp0HYU0ABJBFoFotIbRhtBiCBYSUMBYUlIA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_pp_adverse_events.Rd b/man/tm_g_pp_adverse_events.Rd index 8c1390b7c..425b6e5a3 100644 --- a/man/tm_g_pp_adverse_events.Rd +++ b/man/tm_g_pp_adverse_events.Rd @@ -141,7 +141,7 @@ if (interactive()) { \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACKNTsk6pDAEaXAAHmlQ8XD1Tc0AygAyHV09-YP8otQ6AKQAfCujDca01OSM7A7jDgBCAFIAks2r5StjbQAkR6eXzUEAvkG50PCilYk2fIEdgKMAtKagmqglptUFBABWRHKaQA1nBWH9coCjPw4MYoMJSGkCPxaKIeojkWiMcBvrAxP8oHIALqxcHTfK5YDAaETSag5msiAw9qcqrc3mwsCC2JoVAdcrFEEQBq5HQAXh0uVwoz4QhEog1Oj1wgZW06MDSAHM0ugFtpGKI4L1tGQ-uaGtQoPQ4MtNdD+A6nTonK7SKJIR6tVUfrp-WDWi48FHUCwKKRY0beRDkyqGvnUxp08SiH6dKDnucrpG8-mdJEiESSnBaFaSqQjcCAGwABh7kxqACY+wOdMOR3IdbX81A4PsYJ2SkiCGI0k6ROo4PxlXW6wQlzIxEbNCxaN6RMSDyu-iKoWCnLYnFgALJwqe7-PruCb-hZ++Pl9QSjSco1IIgBitZhcUXZdVy-H8dw-HR91gw1NRPRgz3oC8UMPG9EzvNpbAAeQADQAcSwN8owaeDyF-eMiLIyigOnBoQLY5CCVEbhilYGC8LXX1v3oxCP1w69j1Pc9nQkhlb3Le8sCcfkwA4pCdDorc-zaZTVOA99dyIQRfCIeABOvISN1EmjkKvI90Ok7DZPs-C2kIpxiIcWxqM42jhJ-HTPO81iP3U3coAsEgLLggKbL8uzUKkzCZMvVD2AU6EnEaABhAA5XyNK0hjFLaXKCrAAzQNoczNTk0QrJErcxN3erkqwnDXIygjSvGWxmgATUKpDip0vrBtC3dwrrXFiBKvKHEmflpyCdilCCWhjB0dhyn2SKNG0awbDqPNRDKCBWEadB2DlB5BFoGpbqdRgHQ+JQwHeZkgA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_pp_patient_timeline.Rd b/man/tm_g_pp_patient_timeline.Rd index 2b73f085f..0f01ae1b5 100644 --- a/man/tm_g_pp_patient_timeline.Rd +++ b/man/tm_g_pp_patient_timeline.Rd @@ -188,7 +188,7 @@ if (interactive()) { \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACKNTsk6pDAEaXAAHmlQ8XD1Tc0AygAyHV09-YP8otQ6AKQAfCujDca01OSM7A7jDgBCAFIAks2r5StjbQAkR6eXzUENLQDCALIz3b0DIYEGCrDZbHQwQSJcjscENH7jWzNACaOgAvDpZKI4GkCiUKLCIA1icSfp9GrZ0RiFGB4PxJDoTjSdAA-HQAJgADLg4aTvuTKWjqbS4PTlp9mWyAIwAVm5vIa9mcrJ0Ut5NnWdyKpTS1Cg9Dg1FhYHGpEE-FYOmaUEtRGMOlNLFIOjtOm+opkCUsEBpch5RJJOh+TgAcij0ZioNjcfiKgqg-yKVSdDS6QymWAVQB2TnygOBhMC5Op0UMiWZ6W5vMFxWOdpsuWc9WgrXFEq6-WG42m82W622+1OOIu+3u-iejQkX3+gs-RqI5q2X4Y+dIpczwNz0OL5dNbdL8FBAC+QRyVWg8FElUSNnyBGNLSmNJqNJabWfKbAX2+vqUACsiHKNIAGs4FYK9clvIx+DgYwoGEUg0gIcdRB6ACgNA8DgHvV8JkmD9cPfPBP2-X0AF0lCBGAQLA0QOhwk1bAcFErgIsBnnOVjiNfBcD24sAEScABFNiKU+NV+LE9lRNsT4AGYZM+AAWX8IHQiAaPA68oDkYBcJ+UTmgMsAyI6KjNNEf9AI0zCIKqXTCJcSSjJ-Ez6O7JiWOaNiONeVTKPQDpymKQkGlyCNcg3PghBEOiMWi4QxFC4kujSABzNJ0Eyr0KEQjR4CkOBkpJPUDWWYUAAUcrIOxaAK8oRjwXlcgvHEhigXRhTfJyNxJFrYDa+kQS6lzn15VAWFy1qI1wp8mvzYkJo0XKkKIcrP18rjesW-xEPxWg0pKZ0MXvAA2XNJhqLlOUujkq0mP1eWBGDiH4CMCBKQCCDENJsREdRRWKwMPq+sQI00FhaH1EQkM+mQktyYA9K-UaTLIl8BO+ZonE+AB5bywEehaST+uAAbe4UfmxvGCe2hoiYLDr9mGzE4e+0RfsNMnyH4IGSRB+G4p0CHGCh+gYYF9ntKRxyaTI9GSKcWwnCwVyGZrUnyfeh8lZVtX1TpnQmbqnFRESRhjtZ0GOc1nm+eJSWwYxEWxYltmEaqGWUaI+WMdXHdp3jW3RW1ni1314mdHVkljfgXphxO92ba58n7YaR2hZd6GcQz6Xke6uWFdffc1cNhpg4pzEdbDPj3kDaPiUWfLTfNy2M85-67fjDPwch7PYetvP9Nc33PznXjS6DlOedDzH-drg3mrNk348r9uK7Tq3Bd70X+9zxH89R0eaS3GvJ8j8vp5Dk7jVPgPCcXyOOsYQ14lYX7W-epOO+5wHu6Tnersc5JyHt7Jyx8vwLmRIHC+OgK6z39tAh+kcG4NGfq-G0q8v7Wx-qnf+1tAF7xAQfWWaM-bbiQag4k8Cb7FzDJQx+BZFgv2oG-D+TpsGC1wV3WBPdnZ93FsAweJCUbGQgYgmBNY4FXzXg+KBqkCxUOYRg9+FA17fw3vg7e-Dd6CIHoLUBpEyGK3oZIjWMiEEUIUfXQ8owghBFoPadg5R9hQAsNoawNg6gBlEGUCArBGjoHYGgVADxBC0BqCEh42JGDaBiBAI8SgwBHjIkAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_pp_therapy.Rd b/man/tm_g_pp_therapy.Rd index d92f3e688..8da6a2d42 100644 --- a/man/tm_g_pp_therapy.Rd +++ b/man/tm_g_pp_therapy.Rd @@ -109,6 +109,9 @@ join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADCM")] adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") join_keys(data)["ADCM", "ADCM"] <- adcm_keys +ADSL <- data[["ADSL"]] +ADCM <- data[["ADCM"]] + app <- init( data = data, modules = modules( @@ -169,9 +172,9 @@ if (interactive()) { \section{Examples in Shinylive}{ \describe{ \item{example-1}{ - \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAwgCyyTqkMARpcAAeaVD8BDD1Tc0AygAyXT19g8P8otQ6AKQAfOsmtNTkjOwOUw4AQgBSAJLNG+U7LR0AJMdnV81BDQ-tjx2NU7bNWydfJfR5-AFAiag35OABygOBRlBjThCKUAF8gjkqtB4KJKokbPkCOwFGAWrMyTUyV8yViIAArIjlNIAazgrHxuSJRn4cGMUGEpDSBH4tFEfSZLPZnOAJJp0xmVJ0Co6dIAukoRmM2RzRF15WB-g5mgBNa7KskvC4WvAq8n-NF2skdKZOACKlvJtlaAEYvY0fQAmAM+gDModaABY6UopRBdZyCVA5MBVe0A20M2B1V1tTBE6JYmhUF1ysVSRAGrkdABeHS5XATPhCET6+st4RiSsNBo9NIAczS6DSpVUaA4E17OmoUHocDW9bJthK49QrCpU97uVxuiX5Kzm6r050qBYFFIu7r9opSrwW4aZ40F5FREX9utbyPJ9P-mFq9oAcSlIa8SQANgABggmYaiDKCYJ0OD4LkJtj2nBJaEYBdQJKZkCDENJRAXOB1Dgfgex-HQCFwmQxGvTQWFoOcRBFGj8PxL5qW9S4sCcO8UIfXsiJEUj+FA0luN4-jBIEtDezGPliDE+tqLwgjhJI8hyMEhpVNo9sdAYxgmPoFi9PY9hOPtDpmicVoAHlmjpVDKJ0DTROvF12lshynLAGSXJPMZylGHC1NEQjiNEiif3Muj6yMkyzLY7srK8y54VaZydLcqKtM8sAOgytoyQCwSFKIIiwv0yKRK0mKgpSgzEuYuBWPCyysy4mz7LdbK5Ondz8v3Hq+v8gadFk2KYFIRgQJUpras0siGunOLmsY1r2v0zqOm69p7FsfrXKGsiCo6Q7SomqagpgfhKsEar2KW6KcvW+jNtMtr1t29p9uaXqHGOyjTuUqiJNGoGwA+E8brWmBGCIQRyCe9S8pWt6mo+4ytp+tLCvaLB7IcWwXGhwKf1B87CeJ0mrp-OH5LuyrjEYABHVGItB1b5KxhLPuSjr8dGgAxLBPXJnKqZG7zerFiWyomsZRFIfhWE5l76sx8LsaS76mt+rjwTNYHKfRsGaUdU16dhimmYoNWNe57X9N13GDfxlF4WtyWJoaaWb1RH2ZK3GGgiCWhjB0dhygOKALG0awbDqY9RDKCBWEadB2BLR5BFoGpc6IxhtBiCB0SUMB0XVIA}{Open in Shinylive} - \if{html}{\out{}} - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAwgCyyTqkMARpcAAeaVD8BDD1Tc0AygAyXT19g8P8otQ6AKQAfOsmtNTkjOwOUw4AQgBSAJLNG+U7LR0AJMdnV81BDQ-tjx2NU7bNWydfJfR5-AFAiag35OABygOBRlBjThCKUAF8gjkqtB4KJKokbPkCOwFGAWrMyTUyV8yViIAArIjlNIAazgrHxuSJRn4cGMUGEpDSBH4tFEfSZLPZnOAJJp0xmVJ0Co6dIAukoRmM2RzRF15WB-g5mgBNa7KskvC4WvAq8n-NF2skdKZOACKlvJtlaAEYvY0fQAmAM+gDModaABY6UopRBdZyCVA5MBVe0A20M2B1V1tTBE6JYhS5vlcsA0+TFWT1ZqIF8uuXK7Sc3WteguuViqSIA1cjoALw6XK4CZ8IQifVD8fCMQ9hoNHppADmaXQaVKqjQHAmC501Cg9DgayHZNsJS3qFYVN3C9yuN0p6rarwt4aqBYFFID8H9pLN97PcdA-DQvxFIgT3ta03gAoDgP8YUL1oZcSlIX8SQANgABiwmYaiDHC8J0AjCLkUdAL3BJaEYY90JKZkCDENJRGPOB1Dgfh5zgnQCHomQxF-TQWFoQ8RBFPjGPxL5qW9S4sCcJUwDIt8FxYkR2P4dDSVk+TFI+IDlIohcxj5YhNKHXiGKYtS2PITiVIaSz+KnHQhMYET6DEpzJPYaT7Q6ZonFaAB5Zo6XI7idBsjTfxddpApCsKwBUwy4LGcpRjoqzRGY1iNK4tKJIEoc3I8ryiqkrMZI6S54VacKHKivK7NisAarqskUoioCTKIFisuc3L1LsgqeoqwThNEuBxOy3yqv8+LgrdBqjL3aKWqfAKlpcZLVp0VKepgUhGDQiyKqG2yONGvdvOK1zJs86bbsqjpqvaexbBWyL1o41qOg+zq9oOm6YH4PrBAGySLvyxrnom9yppm5y5tehbmiWhwvu4n7zJ47StpOWMge6kHGCIQRyEh6zmqu2HxpKh7ytmvy4qwYKHFsHbgaAnG-vaNmOZ2rqVN60RjEYABHKmcpx67jPp+6EcepGfJZtrFqmAAxLBPSUkmeZp3G4vRrWdcBuDuccmBRFIfhWGl6GRrp7L4bKp6KpR9oZPBM0sbg3mnx901zYM-WrYoO2Hdl53nNdxHns973UWDvXGoDv9k5Dvd9IafSgiCWhjB0dhygOKALG0awbDqQDRDKCBWEadB2DQVBHkEWgalbx4WMYbQYggdElDAdF1SAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} } } } diff --git a/man/tm_g_pp_vitals.Rd b/man/tm_g_pp_vitals.Rd index 1fa694d70..70075b66f 100644 --- a/man/tm_g_pp_vitals.Rd +++ b/man/tm_g_pp_vitals.Rd @@ -117,7 +117,7 @@ if (interactive()) { \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQSvxQpFD6RlzUAPqh4dYhYRGGOgDutKQAFrQQ7PFQuDogSjo6AIIAIgDKADKROqQwBDFwAB4xUPyi1KUVlQBq1Q1NLe2d-JqiSgC+QQXQ8KL5yTapBOwKYFV1W0VbVUNbQQBWRLkxANZwrMsFa0b8cMZQwqQxBPy0oi1nF9e3YALWBiFbhOQAXVcEB29VSBWAwAONVqWwhUJhg2G8OSiORRzA6OhaFQDVymU2EDKBR0AF4dAVcH0+EIRKI6ToWcJQX0yk0YgBzGLoGKaTLcZa8so6ahQehwagcrYDcXUaZ4KXU5KLXT0-HVPaanSoFgUUg6pXbFGGqnSsomjRmj5ERV6sAOaoOABCACkAJKVG12+3+d5ZOC0AVZUgcjYANgADAnakUAExJlM6dMZuRM212k3MZr8WNZc4EMQxUQKuDqOD8SnB6UEMsyMQczQsWhykQfVsV5aHar7MAABXKWHKAFkAMKBsC5o1lasiOslt3jyez+dGxf56VtKBtb6l8uVle18gNpc6Ftn9n0zuMbv0Xt3tuDrEjqoATWOeabZcazXS1fy2XcAODKBO1iJ9Tw-KtgKvRtAPfAcOy7Hs4D7e92CHb8BnKVEF0gpsLxAt1ykI4jdylIIyiCIJaGMHR2Fycg1A0bRrBsEpbVEHIIFYcp0HYEkABJBFoIoJOrRhtECWYlDAGYISAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_abnormality.Rd b/man/tm_t_abnormality.Rd index 5cfb9d15b..3cec6f053 100644 --- a/man/tm_t_abnormality.Rd +++ b/man/tm_t_abnormality.Rd @@ -163,7 +163,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeXVAEJ1DU2t7fzU9DoApAB8Uz0lMIKh5OwLJToA8gBy9rYAYrUAvDqyonBRKRkUaxAb92UAagCSlc+209lTp2tglQDCWCcTm2z22AHEFHgdFD+qVKk5qmCXGAbAA-GFgKG4db3ezOHQYqEATShuJ0Nlm3zSmSi1Cg9Dg1F+mzutkYcBC8DIOiwcGIjH4On29IA5lCAvcAgBfAJ5aDwUS5RI2ZIEX4VGrYzEVAYSpQAKyI2SiAGs4KwlXlVUZ+HBjFBhKQogR+LRRE0jSbzZbgPLYGJlaE5ABdVwQTW1ZJ5YDAKGRqEhsMRvqDaOJWPx1OJ5NKNCoOrZdK3Ep5HQnPI4u46PhCESics1gTCQPrBpRZ0MiBERgwbjpDjk+mM6iN+P0bu9-ukVh2BkibHk-3wMdgXX9RfV+4sGBRTQsRsEDLGghiKLnETqOD8EsPEpHk9iRv7xi0ecXB8yQORgqiQT0c5SEPDUsAAWW1eMwP+coJTkKs7xKC9+XIIUTkg8CsS3DY4PJDp+A7IhQlHE59lKaoEXgh56FYPcWAbE5P1PURzyZZDr1vO9GKfE4XzfegRBdY8vyVddf3-QDgKhAZ-lKWwILAAAFUosFKDCCnjF43jk1EcKw+4kKvVCfik-oZO09TFOU1SJUou9zTgVAoh7O1GEbfEXD0ilbI2egoAvbILhfQ8hKYljLxQjiHl499BMfETUzEgC4CAtCwH6bYsDBGDUW8-TWMM1d0sy7ZsoKYxaBaa83McDy710u9RWYO1grisK2Jvcl7xC7idGi-iP26+KBkSiTUtKDKspszqdAMlDV3G4rSum8rKqM9zyXqh4ux7PtiJ0OhRFIdhqCIFJV2qTYAHVtSyUUMlXAAJZ5wQeqbPNaSRBDtKJfPOdoJ0bUjyNq7CegCAJaGMHR2Gycg1A0bRrBsIpq1ELIIFYUp0HYfMABJBFoAo8fORhtH8JRpSUMBpRDIA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_abnormality_by_worst_grade.Rd b/man/tm_t_abnormality_by_worst_grade.Rd index 6dc65ab4d..8ca70c833 100644 --- a/man/tm_t_abnormality_by_worst_grade.Rd +++ b/man/tm_t_abnormality_by_worst_grade.Rd @@ -140,7 +140,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeXVAEJ1DU2t7fzU9DoApAB8Uz0lxrTU5IzsAISlAGoAkpU7ttPZUzoE7ApglQDCWE5OAHI79wDiFwUX-aWVTtVPLmByAIAXwCeWg8FEuUSNmSZwuFRqbx08L6-QuAQAVkRslEANZwViQvIwoz8ODGKDCUhRAj8WiiJpYnH4wnAMGwMRQ0JyAC6rggCNqyTywGAKMRYB5fIFqLqIrFYAqAwuUv5aFQdWy6XOEBKeR0AF4dHlcD0+EIRKJDTpzcJOQt6jAotSoPQIERGDBuOlWFF6L6Uh7RNSAObMMk6kpRnTUV1wajWi7VV0ekIe1h2MSkHRYMRUq1pTI6AAStBDGSzOme4d0AAUiMGDP0oKJ49k4G8HXrEuDdEaUcq8F2dCwnZoWNaCBlsQQxFFWyJ1HB+JHo1GpzOxNbx4xaK6RDTpzJOYKCqJBPRW9mjXDFVgALJI+EPq7ldFyU26tclBdwJf8RM70fMBhw-YdUBYWBaUnI9Z1Eed4z-cgV2HEoN2PK0jXHahBDgQ9N0hJV+neMBa1KLBSnvV8n1I8jKPRT9vx-RD-0nc5FWqWwaJuWsaJ2Z5SnRUDGLXDp+GdIhQgTI0ADFSmqb4HQCEowK-JYVlUa1InnOg4NXEptK6Y92MFGjKlKGSZOqJFf1Y-swAATQYh1DN0uATNRGiAHl7nsWwrJsljkMApyAR6AIAloYwdHYbJVigCxtGsGwii-UQsggVhSnQdh1QAEkEWgCny1tGG0fwlCBJQwCBHkgA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_ancova.Rd b/man/tm_t_ancova.Rd index 4ae3312b6..9f5591b6e 100644 --- a/man/tm_t_ancova.Rd +++ b/man/tm_t_ancova.Rd @@ -164,7 +164,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOyARVyikrLK6v4AR1ElAF9FCCToeFFE0JtwgnYFMByCuZS5nJa5oYArIni-AGs4VnGkqaN+OGMoYVI-An5aUTKtnf3D4BHYMQnPOQBdVwgFoVwklgMAVnl8nMfn8Ac1WsDQqDwWswND-iwYH5GOcbkQYKginRRKRZhAMpksABZHQAXh0RJJDQy2OMtJ0cwAQogdAAFahQAhwehEJZMnTEfFsmYrbnZRiCADmOgAGkt2WAAMLcjV4+jxDyWCDrBpyXANTIa2wUyka7JshmkjLM85slZUnQc0Vkp0Sgl06Xzd2ZNVu6ka43eoZDJRoAnheLRR06JJspJm718IQiURszPCT5ikp+a5QcxETRQJNO+lQehwaiu+YAOQ1AHkAGqZOy1kRe6sZd7wRurXJ9-tQTT3aJSmLbQWiPyietwdRwfhV-sEWcyMRsivUQRwG7b+fsEfLebtgCSuSvtnW6f7TqXIlX-EbAHUnE4ANI6ACMOjZJkACaOgABxzGKGSmtBOgYn4FaMDOc5iIuy5vhu1ZbqhOZ0khtA9keOE7uMgIpAG1ohvMlrWra1F0dk6ywd6T4viu5DvnSob0WAcEsU+CEsrikp0kJOK+o+477ohLAoaR6GvpxWE+ieu74SwhH0CIx64WecIUbMmoABIAOIMZ2kJgHIAlPjo7Fvo2GpmVBrFOrZ2HlrJyH+mpC4OcpcEZCR857ppRG6aR+ktIZnKZLkLh4OquT2JkVr-tRCWqtZHn9gFa6NilWBpZkGV8W5MFSdWqAsLAtzyfOikcWuKnBX5YUHsRfnRbkF48hSmQ2kxSVzP1xWUg+QX2RhnGNgAYj+t4GHNH6euVT65Rk8TkGo1xIQ1aH5euU0hepOgERFp1kQZ4pGRy8WJReRUlWVT1ONlNlVXlM0FdxYDPelrkbWKQwwUoQy0Ky7DbaoAoaNo1g2Gk3qiHEECsJk6DsLGAAkgi0CkuNLow2iMEM-RKGA-Q-EAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_binary_outcome.Rd b/man/tm_t_binary_outcome.Rd index f10ab5bc7..bd4db3cb9 100644 --- a/man/tm_t_binary_outcome.Rd +++ b/man/tm_t_binary_outcome.Rd @@ -198,7 +198,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeVYlXUNTa3t-IyiOgCkAHyTPSUwgqHk7PMlZQBqpdUAwjoAvDr8USTEUeOoUdRQ9HDU7KVbuzYzcxDrH6npGVc3d6tgHYZFhQdSqHRYMTCUgAegAYtl+NkAOYKMABD4vWZrYy0ajkRjsAAKpSwpQAsjtyjoAISHNEAeQ2WAAkgA5DZonQAH02LMqLNsB3pYDhDOq1QZAHUdA4iWiAgBfAJ5aDwUS5RI2ZIEAEVGpogpoir9BVKABWRGyUQA1nBWBq8tqjPw4MYoNCogQkaImpbrXaHcBVbAxJrQnIALquCD62rJPLAYDGqrVNGR6OxvoDBOJJMp01gDMxlgwc5ur1EGCoOp0USkVbvMpYSnUw51huMN0HHTGls6ABChp0xGrPd1ffJZWHk50OwVclwPVJU-btHr7C7xh7aIHiB0ROuBDg9CIw9HNcOE7ApX35UYgmROgAGjPAfudlX6NkQpZAuiAgCNAa2SbJ0kbEo8h7PIlybPghBECZDng4QwzWBoolIKJv2gNgTiWUc4Agz5rluagdzASFRFQEhXXGQ01kgxI1V0EUTUqBimw+VAQUafhxwyK1j1EKJRDuOAwX4YjPhHQSZDEHtNG4QQ4C9OThIebMjTAEkyVbN9dIpBVYJkkoxJESSKIHJxKn6IkWTRRidEXJzSyiJTGAEoSxFE8TJOkz4CHUhTDg82gbhENTvI1diCmvFc3xXKlEp2WwkvKBcTNM8yJPIfi2JbRyuPWFzipKNyt0rMdDgqisLyyj562YUJ3JYLz5JEnL-KckoguixSWHC+hIr6jrNP6OKAUqJxXzwXswAHcksAAaSwAAmN8yR2FwAIaz4uryiitp2pzSpk113U9LtqJIMSkJ0DsAo+azbMqeye0enr1guccAU-asRHICExBoiAxJ0dgdiwRQ5rRIkWA0bhgZusHdGJaHjK+koRG0ah7onMrTLRf6fDgIGqNB8HIYx2GdIR8LyIp260aJGm9tM+bKlCYbdHKdc4CgKnKnKGHtKJRgiGRa7RC0Xn+cFlmRaKjmSgxUyztM9kNicIU1w3LGdB+q8pu5kQdD5sSFYh4XRfmtkiFIHQnCU6hBAitG2ScGGNY5nG7nxp6icBKtSfJkHmYhqHbbRe3Hed5T3Yhz3o7pxhEcZ8PUYh1nRYNko4YlqWxBl7RzflqmiSV2mucTi2BaFquDbVmSfc+JlWQ5D71wbA2jZHAFxcl6XZbLy2K6r7Sa550f67Rm3McJj4-bx36C6H4uR7rq3iQnznTblse593mOHadl23en9hk7NRfnNOtY1cApRaG3dhsgJUENG0awbCKJtRCyBAVgpR0DsGAgAEkELQAoECxKMG0P4JQiolBgEVJGIAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_coxreg.Rd b/man/tm_t_coxreg.Rd index 7915e7152..95cbe8eb4 100644 --- a/man/tm_t_coxreg.Rd +++ b/man/tm_t_coxreg.Rd @@ -246,12 +246,12 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpQGI3OgGK1Go0jpwAB6wqCLungC80TGxMRF2ABa6waEiOvRw1EQA7jq0ohlQonD8OiQ6pMk6gqKC3DpoqIxEUASJ+RCaRNSatBAA5joEjHBQGhVExglQOswQ-EQwOgDCACIAkgDKKzr848VwAVALlckQc2bKQ1W6TXSyExAYrtCMMAD6o8YfxDCo+iMdH87CUOh0AEEVrYIVgALLrHSRHTA0igi7guZwYxInQKMCwuE6ABC+NwYMxfwByIIoIJ8MhZLx9KJK3xigxcnJGMJuNR6MxWJxyPxxMQOgACtQ2nB6EQyRTwVTcbT8RDxWtGIIhgANJn4lbilZLej9caWCDsikcjlKfakWaGSpjagfe1Qax2g6AnQ5WhVfrsd24HQgCkQtZbAAyPtIMAIH2CHyg-FE1HDa1sticsfjiaCyf4pHISgAvhz3dB4KIgwcbE7VQTI1H9U2sy4wByAFZEfofADWcFYNfd9aM-GxUGEpF+-AKCZ7fcHw+AldgYlrDrkAF1XhHoz73cBgGrm-jt7uIBH24eDsfT+3z5elE0ff1-QK9t7kcGKXwhCIhTIv+wgboqlSfDOxBBKMAyfoK0qZNQuIGkQQQ6FgcADC8eDgeCa7wChbbZgqGKCiwnyaCwKqJL2BBiB8JQiOopTsI2hKtoS6ycdCXFrOyIZqvCAl4Y07xfNivxLNSYmfN8Un-NygrgqgLCwAQZQ0rRMgMUxcAsfw8HKVR1CCHAvzafRNbXtmglgBKsIQgi-F4MyDlYE5AnMgA8ls+KiVyon+MwDofFRjA0XRulZPp5CGaJSp0is3kOAAcvYACarZbPYEIwgAjNluUwgATF5+I5R5BX+WRmKBbVSpEJoYXUVpUWiIxMUGUZgrsQA4h2dnEnCWAANJYIVrmiiN41lVNYBYE4fUbN5qWTVyzIQgNNXKTo9W7TA05aCwtDjLoyL2M44EcuCNpKLQOLsP05BqBo2jWDYYYYqIiT9KwELoOwTQACSCLQIYgyUjDaIwHKlkoYCltuQA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } \item{example-2}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpQGI3OgMpxiEfjpwAB6wqCLungC80TGxsRF2ABa0ojoa8Lg6UDqirGSJcBoEOqhQtIw6RMY6AIIAIra2TgD09V4AMjr8UKTZKSZQTDI9cAHGRBUAwkRBOoxwAObzoqKWEAkA7gXzabRiWf4lmtwA+vCkiQI6MD3kjBhKdEwsHPxhrIyK6-492YZpcFO3V61iUwL+Rg2tAutAg7HBmRASh0tQaTX0RnBGGMzHg7GRKO8tgcdQAmgBJOo6SI6BRgdoOAByAHE6bgCSiagA1GqdGkEdgAFkyAGZMgBGCWZABMMtFUp00rk7IghJ0k0ZXiw1J0AslOn1+oADArjZkTTojcqObUsABZSZUmnGKDqCb41Vq3XsC2G03mgOW83Wz1q6iDODUVL8-FgGr22ps2lxhMAITpXzVIbVXicAA0dS63YwPV7vRaK4G-QbTdmveH6JHo966QAxJN0u0Zm11lHkzW2Quu0jugV0moduOT9N4ZMzzLj6eTiezunz5MruS9nKkRiwhaiGqiVvDibN1u83MEzOoxpODFzeiw-jsep3zJvpoftFOb93m+fve-xQKIJwaPQ9AiK+P43qIhQYHBozsOKAE-gAJP2XiDv8oihFBgEYQOqF3mhNTMkBRi4TAYRwOwcEAI7sAArJkADsLE6Exyo5LQABeug0hAjBEBs0H-pk8xhK6Al2I4TjEU0aEOF4DipgAUpSD6lKI5CxqIgj0Em4qIEJIliU03EEZhtiZHBqA6nSBjdp6BEAArxjUdoPm5HkOlS-x0gA8l4dIEm0nQ4QZcGkKWhKASqapwSI6g6mOYDKapGl1JOWEkhS2Wrimfk5fmk7Wcu5HOSiXwAL5fGCvzQPAojwr8Nj-Gl4XLj+zkAFZELCJwANZwKwLXgu1mJwC6wikCcBD8CkBAnP1g0jWNwDgk1Yitb0cgALquBA4UPuCwDAOOdQdHS+2HcdP6nb852XXeN13QkAAGXDUB9WToHQsgaCQCQGKDYPgxDTkQB4OiMkQ5BpIkPSI7o2rEPwujBKgEzkAE9CsDoH1eJcGw6Nq0wY79-BEPsEDwzosKSIIGMo10vwJKg8wGJzRAEGIqwQAsGA6KSRCCDoULUNQOgQHAoxpEQurzCMrPgtFWSpIMRDaDojbjPMCSMGYygLKzWM4-LaMCHADzfCwMAnPMxjzUQ1EPnQOmvvajo6h7MVOw5RWJrOxBuzG45phmW5HWg9n-LC0KxeCOoIgSfBCCIzbp8IO02qQDtzcQQTzAssVhhG0s0nS0yzFgiwPHgNooltsAyS9TRsk3WSMA7xwVPylwyGIJxJb4uPsJ13sFdxEfFWA24ovbjvTS7Yfdw7Tur6gCVeqUuILalg986Bo-qEhXcosc1CCHA81Hzt8XJu5WCeY6k7P55GYLmAwWhaGhILx3MwXoJw+6HwGsfEekYx5ITSuVeemRGQOHaO0QBxBNCgJYOAoeJ9oFnxfGlXMeYKouAQcmIhX8u4wFmloFgtAVY0nsM4Hs14lBfFoNUdgsI7jDi0LRLcOgkSelEMkCArAajoHYLHNCghaCZGkXBRg2hPhKBqkoMANV9pAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_events.Rd b/man/tm_t_events.Rd index 17c6c97b2..cdf1df18a 100644 --- a/man/tm_t_events.Rd +++ b/man/tm_t_events.Rd @@ -140,7 +140,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOzMpyKSssrq9zglAF9FCCToeFFE0JtwgnYFMByC6ZTpnObp-oArIni-AGs4VhGk8aN+OGMoYVI-An5aUTL1zZ294EHYMVHPOQBdVwhZwvCksBgIs8vlpp9vr8mi0AaEgSDlmAIT80KgivFolMIBkkjoALw6JK4Bp8IQiUT4nSk4RvBoZEp+C5wbRkEZ0jI6ahQehwaiUxb8bSMUS6Jws0h2bkiebsnGhIa6AkIlx4WU6FgwPyaFiUggxDYEMR+EUidRwfjsSaLLAAWXmOmtNoAwtkVgsZra3WrqNQJQS9QajSa4GaLWqMgGZGJKdrGLQpXBLvqoyMlk4UlaZk5bE5PXgHVnsk4nQB5V1gORyYnYjm14Oh3VTQvFssrNVVtUxX265OG0TG3kh8hhmu1iO96ME2Px+giJOB1PQjNN5oAITLuQAmrl7YsnLkS06Vh3R2P68P+Vn13lt9N29Wx+r+PxGURPHyCfZnA+x8yKBdSFYVBFQLGohRFHQ-zIO9T36DJ+n6WhjB0dh4nINQNG0awbDSGtRDiCBWEydB2FRAASQRaBSciRUYIV+h6JQwB6T4gA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_events_by_grade.Rd b/man/tm_t_events_by_grade.Rd index 492febf7a..ae40c65ca 100644 --- a/man/tm_t_events_by_grade.Rd +++ b/man/tm_t_events_by_grade.Rd @@ -138,7 +138,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEPxQpFD6RlzUAPpBIdZKMaGGOgDutKQAFrQQ7Am4OiBKOjoAggAiAMoAMmE6pDAEkXAAHpFQ-KLUhTrU9NSirUG6ScRR1FD0cH2c9Y0tbVBwAUVlxU41dQ3NAws6AKQAfLtdRTCCIeSRtMbstOIE6SxQ6qp5UOLGT6RE-joAxADkOgmOgIqhCWR0RGMOgemiyAHMTJ9vqIuiNImMJlMVk4bEken1tnAlABfAIJaDwUQ5YJQPFGAjsBRgMpVZl5Zk45kBABWRCykQA1nBWNSEvSdPw4B9hKRIgR+LcGnyBcLRcAKbAxDSQnIALquCCs6pJBLAYCciqVZl6g1G0qrGpmi0sh0uMC2w1oVA1LJpJkQIoJHQAXkltNwXT4QhEolDOmjwm1x1qMEicrg2jI-XorEi8OYUoDRRL3XGk3jnP42kYol0TizpDjuZ0AHFC7pbOMROyU0HaZTdGHLate4HSzoWGnNCx4-d+aD+nWRM9+OxGZysABZdk6TdbgDCpW5HJZ25Pfe61FIc-SC7EkWXcFXxYnRXnMjE8ZnjFo3bg8p3p+1I4nkG4sk4thOOeeB7hBpROAeADyx5gHIciRuOb5Pquc5MvBiEodyl4YZe6TXre95LpMz7kGul7vkBi7fiwf69ABH6LuwoEgvhqwAEIoeUACa5S7pyTjlEhB7cqRWETjhdGVhBgkVKJzIkZhb4Fm0Q4gkxD6KXA9HyaWnFfmGP5sSIgFUdxbpgXxkFIQAGq2WDiRB5ROAAarJWlvjoRn8Mpqy2K57kaaZOhLCWsUBAEVw6DcKhqBo2jWDYBTjqImQQKwxToOw3oACSCLQrzoCVdaMDWAQkkoYAknqQA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_events_patyear.Rd b/man/tm_t_events_patyear.Rd index 31d84b6cd..949e677d7 100644 --- a/man/tm_t_events_patyear.Rd +++ b/man/tm_t_events_patyear.Rd @@ -171,12 +171,12 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeWlTra2TnUNTa3twXCk5DoApAB8sz0lxrTU5IzsAAqlWKUAsgDC5XPZszoE7Apg-YNOAIzXBde3QwBMTzovA0MAzNdyGwLJYQEolGCCULkdi0UTNbRkHQAXh0hwAcpUsMiUQAGIGLZY6CFQuDsCDwiikUTInRQcTZcgAc1UMLhcARpEBSgAvgE8tB4KJcokbMlLi8qtVPhLXi4wAEAFZEbJRADWcFYQryoqM-DgxigwlIUQI-FhTSVKvVmuA-NgYmFoTkAF1XBAKjU6nlgMAJTVrs7Xe6+j9hslvb6biG7gGg26AMQ6e4YHQAITpMh0ThasB8cDdaFQdWy6SuoJ0eRpeVwPT4QhE1JRdeEDsJDSixvZlLhqBCrDgLDLYLB1Cg9Dg1Bp3x0WBCulK-AVglE5H4JiIjB0WxCtEpBgAmgPGNTSqQZ7DVXYxyInoSSnb4FOo7Lb+XhywYFFNCwaQQMsqCDEKJRAnOB1Dgfgh2HME-wAsQaW-RhaGvOATX-GQHQ9aoCnFG4sH2aU8KOcoATkGs32gkCRHAtcURefDjmuO8dDI5iOn4DsiFCScUXsZxyOgnQuzIOFEN-dDALhKiwNXKDBNgjDGx0RDkPoEQ0LgoUKllZ5IApESAQEwSdGkmin3JYSqVfYyTFoFoIJpPiXAokpWJcnRe2YRpaIuCSgNM2TmJKBTJIQ7hBFQkLMOjIZdJ2PZiMI+KDkMoKTNAsy6JuUNHjAZiAmHAqWKUAJaGMHQYRUNQNG0awbCKctRCyCBWFKdB2ELAASQRaAKLqQMYbR-B5JQwG5Z0gA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } \item{example-2}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeWlTra2TnUNTa3twXCk5DoApAB8sz0lxrTU5IzsAAqlWKUAsgDC5XPZszoE7Apg-YNOAIzXBde3QwBMTzovA0MAzNdyGwLJYQEolGCCULkdi0UTNbRkHQAXh0hwAcpUsMiUQAGIGLZY6CFQuDsCDwiikUTInRQcTZcgAc1UMLhcARpEBSgAvgE8tB4KJcokbMlLi8qtVPhLXi4wAEAFZEbJRADWcFYQryoqM-DgxigwlIUQI-FhTSVKvVmuA-NgYmFoTkAF1XBAKjU6nlgMAJTVrs7Xe6+j9hslvb6biG7gGg26AMQ6N4YHROFqwHy6NKZepQegiHSiHzpHQkJO0xgwKKaFg6GuMWh5kSiN1oVB1bLpK6gnR5Gl5XA9PhCZs04fCB2EhpRY3sylw1AhVhwFjdsFg6h5uDUGnfHRYEK6Ur8BWCUTkfgmIiMHRbEK0SkGACaK8Y1NKpH3sNVdibcCehIlHa8C7lGsoAT264sFW9Y0gQGTKgQYhRKI25wOocD8Gu65gvBiFiDS9aNvmcAmghMgOh61QFOKNxYPs0p0Uc5SMZUTgABoAnIg6QThqEiBhl4orRuwMXgXxgGxnHyoBOjcbJHT8DORChDuKL2M4PE4Toc5kHCsHCeRSFwvx6EXth2l4RR1IokRf5kfhQoVLKzyQBSekAlp2mFmhgmgeSulUhB3kmLQLSYTSGkuLxJTyTFOiLswjRCRcRnIaZgkWThVnGYR3CCKROWUdGQyuTsezMYx5UHJ5sklBlF6gbKjxgLJATru1clKAEtDGDoMIqGoGjaNYNhFD2ohZBArClOg7BtgAJIItAFItqGMNo-g8koYDcs6QA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_events_summary.Rd b/man/tm_t_events_summary.Rd index 04b868d34..bfb694257 100644 --- a/man/tm_t_events_summary.Rd +++ b/man/tm_t_events_summary.Rd @@ -196,7 +196,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otQ6AKQAfD3FJTowgqHk7EPDOuW2ABIAYrUAvDqyonBRKRkUkxDT0wCEtOLQ7LNzszYAfjoKYACa97hTB-bOOrf33-sHNv09VLpDJRahQehwaiTMCVQT0ABWcHUMzgIQyOgWYIA5vcAtM8WVyqUnHUGk1Wu1gnBXL8OvxmtoyFFjNjRHVTOYNFZYjYir8SrE6oKAa8SqNxnA9gdhrYALIABSWUUqTiwOlWxJVauWq3uTzwoplCqVWCcKzKqrN6t1j2ehpKcsV1SiAHEsABWdUW2wAeQAGm7rXcwO67fy3grlbKAIoABgAjF7jqcoOxKjGEwA5UqyuQvcPTR1RuMAJiTJwwZ3Tpezufz0odkYAwnHE6tk5XUy2szmCfjXsRqIIYBBQeDIWzknRRKQpRGncrVV77pVVJZBGziWHpY6TVabVhISE4PwLdv50q3Z6bS7mPxdJ6twaC3ZI9WE16oGJaGOIVDYsAwArhm8a1vcAC64EFABQEwiBlRNhB4F5oaRbvmWqxfqIP5gn+0IPBgACcREkYRAD0ABapGkRalQAJK4vW85RN2bY6FhOHjv+ISAfcrFgWAkF9jowmDr+E65CEcjANA8CiOwg7DqOuETnI4F1FA4gEBkLBQOoqgKUQQ4juJ1CiMJsRDAAvjSJQAMQAOQ6C6FCqCE2RYjoG6qAY97GNkJ46HAjKkCYrIYEMFTEnUUUkgC7H8PSwUUKQzKsvEgS0psUAQNEmgsJORiyWI7CxdJM4sKQogAOrAuwxXyWVBT3Luzq4uBQwcVE+WMIVOgNaVRJOOVoSMFVtWZPVsAlU1wZFu1ShWQEeQDXkNjJAQ0IVDUzzBrFuJKPCRDZFEADWcCsPJa1CnAxhQMIqUEPwJxNEdJ3nZdwArdNV2JGpNJoKgdTZOkc55F6eRMXwQgiGyqzQ8IJWvA0USpclZCiFEojDjAnhztMKndDapT8NovW6E4IVsrCMC42w57TN98DLmA+3PtKLAwN1LBetpx0EGIWOQki5D8PjBx8zIYhej1tDgiIUSSwL8n3Nt1S7ZtqtYLKu1a7KTblLiKEviUGwiPpp7E9rPzSsb0oslAWLc4w7S5bzGT84LZsiye4vTEr0urLL8ubAHKus0Nu15LxKDZblzuiEhdsNt7FsQ4kMdfq7eUFUhwDxlB9o6OdcCoFERCMPejBeu8ThMfbtAtIFqwLKU1QqoayfTA7Ts9e037u57mOp6LfvDGHMssHL9AK2HW2R3gOjR7BXU9YngnIfXBwj83S8Zyv34J3nBdb9MJdlxXVc144ddF-5TeWxibcdy+XfDHSqNEKERN2DfrwEgEAItBjA6HYNkcgagNDaGsLyIYogsgQFYKUdA7BAYABJBC0AKOgjYjAyYBBshAMAVlwJAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_exposure.Rd b/man/tm_t_exposure.Rd index 666ce48ba..9397145d2 100644 --- a/man/tm_t_exposure.Rd +++ b/man/tm_t_exposure.Rd @@ -162,7 +162,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeVOABp1DU2t7fytrhAlonCkGDNw-OwAjAUA1tn8OgC8OgpgALKqMxAQcAa2aaLkjPsBJdRQ9HDUonXE0Y-Pr+wVAwXGWjUag7HQAMVK1UqTnuvQGdT+gwApAA+JE9Er8WjXbLqdgOSoOABCACkAJLlAoYNZwOCodrA0H2Zw2VHoqYlHQwQShcjsDGcgAKpSwpQOAGFyqD9rZyg4sOV9rgBSVhaKDtKwAB5bTMRlCZgaEg6XJQViiRR4FVlABqkNBolgPjg7BaDrgAEcVgUAEwABj9cgKoloAC9dLsckGdIw6Y8CBG7I4YcqOZzbZCHJrymbRPsBay0QL6JsoowiClRL8+v1YR8ol8XlXETZko3XkoAL4BPLQeBVvKtowEflgCo1JV7Mc1u5KABWRGyURp5tNoSHOnGxigwlIUQIWNETQXS5XomAvdgYjXUDkAF1JmhUHVsul+Ry8qC8qmSnwhCI3l2P9hGvAUGiiPdWlQIhREEWN33TB4nhebM4JCSwpiIYwdCcFpoNg2M7CeEQlWtS94E1RFSLTTlUBYWAD1BAgMkXBNRCiGYRHURYEMQkpmNYsRQU0bhBDgfcWJka88mAYB9iosA7zvAp9jVMVJUnVSRTFO4fz4nROLgbitl2GU5QVfMaJKINrXrehWCiETGCYyS2I4l4jPIJZrX41yhN2JzaGI8SBKkgdElk+SZ0U5SDMEegZlIJjR2hfpNLHLADjuGyrM5QzjM1VLLL4nK+PLFIonsxyWBcwT2PyrzeL40K2OElggvoEQJLqm9IunAZ9iU4N4sS5L9lFcUXDwKcsCcABxMktQAOWWdLKnsUpbFKVbpv2IqwDkUr9IaxZNQmqbrSO9M6MYWQkt2FqxHcrjGp8nRHsAnQROoMTurC3q5P6tKYpUsA1XFTafV0t6TpMqdykYQQAHMymKxCrs5Dp+AgohQhBXYIShFwaNhI7AWoG5QUiDi6DYzg4G4GmpNHcdqjW0owTBNnpthzUAE1sqUAJaGw9hshuKALG0awbCKDlRCyCBWFKdB2CfAASQRaAKDWZkYXUAk7JQwE7O8gA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_logistic.Rd b/man/tm_t_logistic.Rd index cf2d024f8..f4c02d4cc 100644 --- a/man/tm_t_logistic.Rd +++ b/man/tm_t_logistic.Rd @@ -132,7 +132,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeVYlXUNTa3t-IyiOgCkAHyTPSXGtNTkjOwACqVYpQCyAMLlU9mTOgTsCmAAQk6V-WsAkucF53cAcgBqTrbncgEAvgF5aDwUS5RI2ZKnc4VGqPHRQvqVb5KABWRGyUQA1nBWCC8uCjPw4MYoMJSFECPxaKImqj0ViccBAbAxKDQnIALquCDQ2rJPLAYDwmFgdmc7kIur8wVgCr9c6irksGBRRhE8lEGCoOp0USkM4QEqlXa2TZ7A4AXh0Or18x0quMOktUKw2x0F0etuImsdJzOMpdZVhztduyRBp0clwPVNPut+pKJXtPvOF0QOjW1CgBDg9CIHvDJS9WstkJlafKjEEAHMdAANINgXZp3Ya+jZEKWQJgAIlAIBJRoLXJbLpeM6PI+vJR8N8IQiCaW2fCFm2hpRMnUIhVqkaSEFhOZ+hwajJsDVLc7mQ6LBwKuq0SiTv5hMJpnwU+yxF4W0lJVRTQsD6BAZGi2aiFEojHnA6hwPwY4voWIEyGIPoAYwtBQPQIjkkhYHsJ+BSlqaDamvs3yRj+CaQSIMH8B+LrnJRFH7r+jDKva6repaf4cUW04IToqAsLAFJAbhYgQVBtHwQhwGgShloAdQghwDh8kggRcJgBsWxmg2Ok7N8-ECTo1HQeQdFOpc1y3A8YBMcZL7EJo-6ASW4ngWZ0mUYh6lAX6lROPWeBaaUADiLghSm2xYAA0lgACMDYXDF8UAExGT5plSRZp6BcFTG2j2EZKAEtAOuw2QrFmGjaNYNhFOGohZBArClOg7CDgAJIItAFN1kGMNo-hKL8ShgL87JAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_mult_events.Rd b/man/tm_t_mult_events.Rd index b58875549..2b1fdce64 100644 --- a/man/tm_t_mult_events.Rd +++ b/man/tm_t_mult_events.Rd @@ -90,6 +90,9 @@ join_keys(data) <- default_cdisc_join_keys[datanames(data)] adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") join_keys(data)["ADCM", "ADCM"] <- adcm_keys +ADSL <- data[["ADSL"]] +ADCM <- data[["ADCM"]] + app <- init( data = data, modules = modules( @@ -123,9 +126,9 @@ apps implementing this module can be found. \section{Examples in Shinylive}{ \describe{ \item{example-1}{ - \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOyAYQBZIpKyyur+AhglAF9FCCToeFFE0JtwgnYFMByCuZS5nNa5oYArIni-AGs4VnGkqaN+OGMoYVI-An5aUTKtnf3D4BHYMQnPOQBdJRrensDqIijM5rlbA5sgBNACS2SWOjmDlyDgAQgApeGIlYQ7K2Fo4sCtXJOACKRMytiaAEZKdSAEz0poAZmZABZ1konhAgYcvlA5MAVs1CXgkfNRXMfkUATA+aJXNB0EV4tFZhAMkkdABeHRJXANPhCEQgvXG4SfBoZEp+a4wK7lbRkcbWjI6ahQehwai6iVNEjEGDRKBkHQtOB3WQaEgg+iscORmQeSyapqe0Qg0P8HQABUY51UBZzADkPks3VrQqNdHqRWs8JWdCx5ZoWH6CDFtgQxH5RD64OpI+wwfMsGLlmOWk0EWA5JPMuP1obNe6Mv2AI5+NuMDtdmS9-siIf8WbElqkinio+D8g5uvny+I4y0CqRv32ZzzpsxaikPfdoeA4nhqa5rp2gFmjoO60F6Ig3PuPbjKsLQpKOVK0syTLiis1Jsjh8zUpyc7fquYE6DeJ4dmeGF0gRGHYQueEclyZHuqR5HUH+AEHqIfbAXeoHkToEG8X6MFwXACGQewKFoWerTZE4TQAPKznIHHCZRd7UXMinKWprHkZpa41PwdpEJ4vp6p+TgruRcDOtcpCsKgtYSqQBYePAZBzG6QwZEMQy0MYOjsPE5BqBo2jWDYaSrqIcQQKwmToOwaCoAAJIItApBlmX9ow2iMEM-RKGA-Q-EAA}{Open in Shinylive} - \if{html}{\out{}} - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOyAYQBZIpKyyur+AhglAF9FCCToeFFE0JtwgnYFMByCuZS5nNa5oYArIni-AGs4VnGkqaN+OGMoYVI-An5aUTKtnf3D4BHYMQnPOQBdJRrensDqIijM5rlbA5sgBNACS2SWOjmDlyDgAQgApeGIlYQ7K2Fo4sCtXJOACKRMytiaAEZKdSAEz0poAZmZABZ1konhAgYcvlA5MAVs1CXgkfNRXMfkUATA+aJXBAFoVwklgMLJYswD8-srRUV1ZrVmLdUq0KgivForMIBkkjoALw6JK4Bp8IQiEHOj3CT4NDIlPzXGBXcraMjjAMZHTUKD0ODUJ0SpokYgwaJQMg6FpwO6yDQkEH0Vg5vMyDyWO1NOOiEFZ-g6AAKjHOqlbjYAch8ltH7aFRrpnSK1ng+zoWPLNCxkwQYtsCGI-KJE3B1Hn2GD5lgxctty0mgiwHI95kd+s3XaYxkVwBHPzTxiz+cyJcrkTr-izYktUkU8Xvmu5CNsOP5-oixi0BUebJvYzgnuOMTUKQz4Lm+q6fra17XnOaHejoj60PGIg3C+i7jCaKRblStLMky4orNSbIMfM1KcseCFXthOiAZ+s7fjRdIsTR9GnkxHJclxMacdx1DIahr6iMuGHAVh3E6LhinJoRxFwKReHsJRGnfq02ROE0ADyR5yDJ6m8cB-FzKZ5lWZJ3G2deNT8MGRCeEmzpwU4l7cXAEbXKQrCoEOEqkK2HjwGQczRkMGRDEMtDGDo7DxOQagaNo1g2GkV6iHEECsJk6DsBaAAkgi0CktUrow2iMEM-RKGA-Q-EAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} } } } diff --git a/man/tm_t_pp_basic_info.Rd b/man/tm_t_pp_basic_info.Rd index 35ddc5679..753cc1c24 100644 --- a/man/tm_t_pp_basic_info.Rd +++ b/man/tm_t_pp_basic_info.Rd @@ -68,7 +68,7 @@ if (interactive()) { \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWolAF9FCCToeFFE0JtwgnYFMByC-uaAKyJ4vwBrOFYOpO6jfjhjKGFSPwJ+WlEysYnp2eBW2DFOzzkAXVcIQcLwpOBgftv+i6uIJTRUIvjovogMkkdABeHRJXDpHR8IQiUQgqECYSnSEZEp+dboPz0KCiGR+eLGIj-DIknTUKD0ODUeH9ABCOJkOgAkhBCf0IQDSWDQm1dKDnnl8uyUSTUB5aBR1sRqfywA5cg5aQApJnZYWc0maFhw0EEGLjAhiPyiKlwdRwfjErkZPUGsTwrWMWgUkQbfUyU63OQc60ZE0ic38eG9Z5YACy7J0zwA4i48FGwLknAANSP9ADCAHkHAA5ewATTTYCwmXTcZS-ScmdyuVstmGIoyzVJzZ0zWatGMOnY8XIag02msNjSnNEcQgrEy6HYXwAJIJaCk5ybGNpGM0GkowA0LkA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_pp_laboratory.Rd b/man/tm_t_pp_laboratory.Rd index 527289156..697ab4f81 100644 --- a/man/tm_t_pp_laboratory.Rd +++ b/man/tm_t_pp_laboratory.Rd @@ -120,7 +120,7 @@ if (interactive()) { \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOz8gCEikrLK6v5qeiUAX0UIJOh4UUTQm3CCdgUwHILZlNmcltnBgCsieL8AazhWMaTJo344YyhhUj8CflpRMs3tvYPgYdgxcc85AF1XCHnCuEksBgMs8vlZt9fv8mq0gaEQWDVmAoX80KgivFojMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K7oPzUKD0IjMUhcjgMjI6dn0ODUamzABq0W4okW-LxoRGuiJSOastxAoyqA8tAoV2IouVYAcuQczQAUgBJbJqjWaliwG7UggxLYEMR+UQiuDqOD8HG2gXO11iamaFi0Dkia4umQfFbNJZgAAKmSwmQAsgBha1gOSk9UBz0iH38MXJ1MZ7OzOU6PM1rXMGBOmNu0Qer0l-0BnRB2NUolhxgR+hR3ut9jxxMptPptb57s6Ive8ilw3TjPVgsCutbxm0eCoLZkfs9lvupedmsZMchgfhyNwaPBsaTnRggCac6vi47K7LOU-MAax3AMoAgIchmbZ922LFcuwDG8T0HYdRzPF9YUTTIADksAtLCcxA7sLz-Q1sNw-DNwDQiNSgMN-EHKC+xg5dfXg21ENDe8R0fRCJwwt85nFTIIVzeciN-X1-yEkTgLEmi6MEPwGKJRDmMvXdAzQzihwfJ8+z4lpMOkhwvw0jJiMk0jjMo21Bg1OzayUQZaGMHR2Hicg1A0bRrBsNJ1VEOIIFYTJ0HYdEABJBFoFJIs9RhtEYQY+iUMA+m+IA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_pp_medical_history.Rd b/man/tm_t_pp_medical_history.Rd index cebbb255b..b79e2b760 100644 --- a/man/tm_t_pp_medical_history.Rd +++ b/man/tm_t_pp_medical_history.Rd @@ -90,7 +90,7 @@ if (interactive()) { \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOyAWQAJIpKyyur+GBilAF9FCCToeFFE0JtwgnYFMByCuZS5nNa5oYArIni-AGs4VnGkqaN+OGMoYVI-An5aUTKtnf3D4BHYMQnPOQBdVwgFoVwklgMAVnl8nMfn8Ac02sDQqDwWswND-mhUEV4tFZhAMkkdABeHRJXANPhCESiIk6CnCT4NDIlPzXdB+eB3WT+OKiUhENi4jJCnTUKD0ODUGlzJpwTncHQte58thLRlC97wKXzOGqvHCnSoFgUUijXTE8GLPBqjKGjTGm5ESXmsAOXIOABCACkAJLZXX62kxciMGA0ggxbYEMR+UQSuDqWWCgM6cORsQ0zQsWhikQ3CMyT6rFopGbSlq2JxYJrrORkvUB2MiBP8LWtCtVubWnS1ru9egCUSHMP5qOiGNx5tJgOpgvU4mZxjZ+i5mej9hF5ZgVrugDyeQAmrl1nXkzpG-HyC3ndu97lD5360Ke4+Mr07ryPMO02Pz5OuxlV3TecsxzOA82-dc4U3Vpsm9XJbEyWxj3-M8J0vVsWlg+DEIfAMhmFfDuyUIZaGMHR2HiYMoAsbRrBsNI9VEOIIFYTJ0HYDEABJBFoFIuNjRhtEYIZ+iUMB+h+IA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_pp_prior_medication.Rd b/man/tm_t_pp_prior_medication.Rd index 9a523d3b3..8d6d80c6c 100644 --- a/man/tm_t_pp_prior_medication.Rd +++ b/man/tm_t_pp_prior_medication.Rd @@ -103,7 +103,7 @@ if (interactive()) { \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEPxQpFD6RlzUAPpBIdZKMaGGOgDutKQAFrQQ7Am4OiBKOjoAggAiAMIAsmE6pDAEkXAAHpFQ-AQwhSWlAMoAMjV1Dc2t-KLUOgCkAHyTJrTU5IzsDj0OAEIAUgCSpVNZc2VVACSrGzulAUVHlcdVxT22pbbVSTfHD08vXe-3TgByz1eRnexQBQKUAF8AgloPBRDlglAbEkCOwFGAyv0MXkMTcMQEAFZELKRADWcFYCISKKM-DgxigwlIkQI-FoogaxNJFKpwFhsDEiJCcgAuko2h1yZTRDU0RjHg5SgBNXY4nQYs5bNV4DWYx4Q3UYqo9JwARXVeNs5QAjJbMdaAEz24rWgDMLutABYCUpuRBpVThcjgHiKpUXeGMaKapKYIHRK4IFiBkkEsBQ5jen1o+Lk+GaunM-iwKK8xL0DUsml0RAigkdABeHS5Lp8IQiWXN9vCIVdIp1SIs9CRVCMSyMSLwdmyDRWftFHTUKD0OATZsYgAK46IjB0lTgM+ClggOIX9aRcN0G6zVTPdcXRVQLAopCvTb1Kfvj6fx9frKIdc9S1C5vx-Y9GDXD8CHSEkCDESJRDXOB1EPWsf0XGC4LED9NBYWgVxEVlYJkIUblxB1tiwJwczAORcHPRckJEVD+A-K0qJojFGPoxiOnpYg2ObLDSNERDkNY9CMJ0ET4K7HQ8PHQi4GI7CEXIvUqlKJxygAeVKAkGIfDDmJQ8ghM0yptL0gywB4oyMI6LJ2mgki5PEljzKkxy3Jw5tFII+giNksjwwoqptkBcpDMYopTNY9iwAiqLuOMxdeLSooOlEUh+FYVy1I8sy0NimTfPkgLlNU0T2A0vEDWVGLMqYiTzMSz4VVSjCrnSroAgCWhjB0dgsiWKALG0awbAKB9REyCBWGKdB2DQVBjkEWg8lW44kMYbR-ChJQwEhUUgA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_shift_by_arm.Rd b/man/tm_t_shift_by_arm.Rd index 2105c4889..7ee3abf7a 100644 --- a/man/tm_t_shift_by_arm.Rd +++ b/man/tm_t_shift_by_arm.Rd @@ -146,7 +146,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOynAHEikrLK6v44AHMlAF9FCCToeFFE0JtwgnYFMByCuZS5nJa5oYArIni-AGs4VnGkqaNu4yhhUj8CflpRMq2d-cPgEdgxCc85AF1XCAXCuEksBgCs8vk5t9fv8mq0gaEQWC1mAoX80KgivForMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K6iOLGK70VjVRgwHEZfk6ahQehwajUua5NmkHScrI8uzCkRLBn8t7wcXzWHK3ECnQsGB+TQsakEGLbAhiPyiUVwdRwfh83UZI2MWiKuDXM0yD4AlKiQT0a3SokzFZYACySx0YfDAGFsus5KSdU7rSI7fwNZkI3MVRkk3mdKgWLAbiavRbRFabRnHU6jdRBB7TeafbDlmAAArZzJxhNgAsp3Vp23kTNEuYACSwuaH+eT9bu0UNxpDFctI9rhed3Cbntb41WzQ7mQAagBJXLn2zrBdOnSbscazsAeVytgMACFMrknPlzwAck4OjhoB57hg4kZgIWg5OlADYrow5YHtW6ZjnWuoum69AiPu3qHu2D4BkGWYAVggH9rB96PvapHkQB-Z3k6xi0BUtFEvYzgwUx-L0FAabxB6LrIfhqGjvaGEClh7p4ZW7BHn6xFwMG0ZgJ+ZEUbe24PjWT4TmpGkMdq94mKx7F2I4LhzjoVECoI1oAZkGq0OcECsLOApDPmShDC5OjsPE5BqBo2jWDYaQ6qy8SsJk6DsOiAAkgi0CkiXWow2iMEM-RKGA-TfEAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_shift_by_arm_by_worst.Rd b/man/tm_t_shift_by_arm_by_worst.Rd index 85a7b6517..ca9e5b9df 100644 --- a/man/tm_t_shift_by_arm_by_worst.Rd +++ b/man/tm_t_shift_by_arm_by_worst.Rd @@ -146,7 +146,7 @@ if (interactive()) { \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOynAHEikrLK6v44AHMlAF9FCCToeFFE0JtwgnYFMByCuZS5nJa5oYArIni-AGs4VnGkqaNu4yhhUj8CflpRMq2d-cPgEdgxCc85AF1XCAXCuEksBgCs8vk5t9fv8mq0gaEQWC1mAoX80KgivForMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K6iOLGK70VjVRgwPycvwRIiMUSkHEZcU6ahQehwajUua5NmkHScrI8uzSkRLBnit7weXzWHa3ESnQsXmaFjUggxbYEMR+USyuDqOD8MWmjKWxi0TVwa62mQfAEpUSCehO5VEmYrLAAWSWOljcYAwtl1nJSSbPU6RK7+AbMvG5jqMpnSzpUCxYDdrYH7aJHc78x7PZbqIJ-Ta7cHYcswAAFIuZVPpsDl7Om3Mu8gFolzJwp5oASQAcrYByXJ2Ws57BcKrsYpT0-N66z3G9OWxWvSxffQRAGL+xVs0UjGwAB1ADyWFyAAYACYADEITwJMv1-ACAEZQIzXdPR0K9ZwNH8-yAuCwArCc9yFEU-CPKAenPINL2bWdW1NdtOyfUiXz7CC0IAkCwJwxDkLdA0AE1jUQkxaAqTiiXsZxsIQiUoHbU8rWjesHQ490bx0b170fbs6Nfd9ZnmAA1TJ8hTRMVlXLA1zHOQ2JzcihIgzI9IMrdPUs8V6CgXN4n9M9ZIvJs8wopSVL9WiG3olotLmAAhTJckXIywAikyzPgpSFINKKYsMrDtx0ZyMkEJ1V0yA1aHOCBWEc8UhjLJQhhKnR2Hicg1A0bRrBsNITVZeJWEydB2HRAASQRaBSQanUYbRGCGfolDAfpviAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_shift_by_grade.Rd b/man/tm_t_shift_by_grade.Rd index 0b5a04984..5b696564e 100644 --- a/man/tm_t_shift_by_grade.Rd +++ b/man/tm_t_shift_by_grade.Rd @@ -166,7 +166,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOz8gCEikrLK6v5qeiUAX0UIJOh4UUTQm3CCdgUwHILZlNmcltnBgCsieL8AazhWMaTJo344YyhhUj8CflpRMs3tvYPgYdgxcc85AF1XCHnCuEksBgMs8vlZt9fv8mq0gaEQWDVmAoX80KgivFojMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K6iOLGK70Vh+ADmzFOOIygp01Cg9Dg1GpswA4nzdPlRURmKRFawsvQIIqYNxoqrbKKRIsGYK3vBJXNYYbcUKdCwYH5NCxqQQYlsCGI-KJxXB1HB+ALrRlna6xNSHYxaPq4NcXTIPgCUqJBPRPaQnTM5lgALKLHTLLMAYWyazkpKtAc9Ih9-DNmSzsyNGRLDZ0qBYsBuTpjbtEHq9Vf9AaDsapRId1EEUaH3fYK2aSzAAAVa5lM4Wc7Ml1gV2tSwGMhXveRq0TlvlbPWy4Km5eMhFFaIrsYRdz7Y6iVP3Qf+83A12Q6OWAjegRGjYMxlnBMkxTNNZgAdSlLB8gAeQANQAMQhPBczAeDEKQjD1xwhCAAkAEl0Mw+dcLIgiwDka89x0L8jxgoi8IotZmwY6070YB8-CfKAX3iW5ZGVRhOzA3tKyPAdrTHCdQOHGdYSohDkI4ujdz3ZjfTNABNHNjFoCo9KJexnC47ShSgCB-GVCpeRqKMw0k4dpMPX05KFD8Rx0MMgJA3yVJaSDkzgVN33TTJbCQgANBDi2s61dOPHRpmWWKEqwHcfxMEyzLsRwXBvHRuKFegoE9ZkiEc2VXwk98-x7VLvMFXzQ0AyMlOnCCmKgiLWOaLLEro8qUr7FiotmYb4tG8ahWM0y0oskqAwWm1+H4GrPAlIk0MyfJcjWq8Gm44zqHIRrijgbgPToadfHu2NovBQjckyNDaITSbCtmQyxqUQZaGMHR2HiK6oAsbRrBsNIrVZeJWEydB2HRAASQRaBSDHPUYbRGEGPolDAPpviAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_smq.Rd b/man/tm_t_smq.Rd index 30ee27e5f..db6ef641f 100644 --- a/man/tm_t_smq.Rd +++ b/man/tm_t_smq.Rd @@ -145,7 +145,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOzMpyKSssrq9zhXCAzoeFE-eihRAGs4UlEigHNGOFR2BTAAPXZcgFkARQAfAGFNuQwAKgA5TPWAEiWU-rF2HOa5FM1uQV0AXjtHJ0VenVvBqJiKgxDM5gslssNptjrldlc8P9YHcHj9nq8Pl9nL8GgRBsMxhMpuECDEiDIxH5RHAROo4PxFn8MqTyQRQZ8XoxaFB6CI-CyKaJ7k0nClRIJ6NTSDpPgChiNxpMng0MtTaeR+DKkQN5YTJg0cX88VTgaCSWTBVSaXA6QyVToBWyphyWNzeXB+RancLmmKJVKtXKgUQQaJlUydGqbRrA8jAabRLh7cZaBV6Vr7M4DUoAL6-JIAxKhGwkxZgHIFa46Jaopa-ABW5IgfnGrCFSRLRn4cGMUGEpH5-FoQL8jfiLbgbeABbjRc8cgAuj00KgivFooyMkktUkk38+EIRM6dAfhHd7SU-APRDAAI6bjKP6g8mlamv8bSMak6JzaMhTehWB0aE7B5ERrntLdQluN9yxFCCIwyFgYD8TktUdSko1tB9H0fDDj05N0+XwucoGAYAazyfIlgXBc-UlCZ0LLTIsHWKsllyJwAA063DXDcKwmNPhrVilkgnQ+P4mp+CvIhPGoLUADFMnyTi934nQCUVY8knIpZjS0okaLo8Tg1DHdQj0wh4xDMRjPU-jqGoaVPnwq11XpHD+PwrVCLAj0SN0ii4OaezI39RjXOYpxsicXYAHlsl4hyNME9NhPLGK4sSsTEIk+1fgyX5floYwdHYeJyDUDRtGsGw0j+UQ4ggVhMnQdgVwuQRaBSTrqUYT9fhzJQwBzBcgA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_summary.Rd b/man/tm_t_summary.Rd index 89fda84b5..77bd32644 100644 --- a/man/tm_t_summary.Rd +++ b/man/tm_t_summary.Rd @@ -126,7 +126,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpQGIdABUZxULKBokOkTGOqQAFrrkoqQ6sqK6RoIJOgAGTgDyAMoAIgCaqTpQEPxpOQDCWVhOAIJZhZostFD0IqJhRDr8cHwQMczkOjC0oqK0EADmXQFQGEr8M-pGXNQA+gukUNbzi4Y6AO60EePsG1C4OiBKOjo1OVkAMkthMASrcAAeq1D8otTXt3uDwAJJlcnlgABGAC6zwAcjVVuNyBNVKslABfRQlGbQeCiU4zGx7AjsBRgO6PcnYgBWRHGqwA1nBWASzsSjN1jFBhKRVgR+CM3nSGczWcAznixITNnJoa4IJSnnszsBgOSleTofKIEo0KhnuMjmSIDczjoALzTTa4AF8IRtS1DATCaUAm6kGCrPmiQQwGAsDjum46agtODUJ3knI9IgTZiocIyOwtETk22mkNm3GwXRWjVA9PBm4sL2NRhOgjhekEMSrBIidRwfjsUkarAAWXTOnbHfKOWpF17g+LRX4-G9RE2kat9mcGazN19-qaAC84Kty+0rVWa3WG3Amy3Rzc22Ask4ABrd8lYGrlFx4HtgABCHawAGksAAmG9gMH5H+FRVLUWR-jUADij5yAui6nmS55Xn+d4PtSo4waOyRwAiUZgLQ3IQKw5LBtiNzYti+E6OwyKqFAFjaNYNhXJmohJoRNToOw+rAoItAXNxCSMNojDYhiShgBi0JAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_summary_by.Rd b/man/tm_t_summary_by.Rd index b0a3a68b8..cd59a51cb 100644 --- a/man/tm_t_summary_by.Rd +++ b/man/tm_t_summary_by.Rd @@ -157,7 +157,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOz8gCEikrLK6v5qeiUAX0UIJOh4UUTQm3CCdgUwHILZlNmcltnBgCsieL8AazhWMaTJo344YyhhUj8CflpRMs3tvYPgYdgxcc85AF1XCHnCuEksBgMs8vlZt9fv8mq0gaEQWDVmAoX80KgivFojMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K6iQQwGAsVh+egcBkZHTUKD0ODUamzXJsjlsHQ8nRYIgRHQAcUYREEqCptiFIkWfLxoRGuiJSOautx-IyLBgfk0LGpBBiWwIYj8ohFcHUcH4OItFodTrE1NtjFo2rg10dMg+AJS02WWAAsosdPGEwBhbJrOSk82+nRukSe-hiuaJ2Z6nTZis1fjMoieUVE+zOHN5nk2lhUon+qOiV3uos+vM6HvOrs6YOh+giCMBsYrZqxmZgAAKmSwmSTeBTcwAagBJXL72xZ1vDgse8jF7vLzIHo8nsCDPNV3P81nsli0ABe4eD49HF0L0HCsMkA8dJzDWde3YBcl2WXdMghbdZjTAAJJVT1A-MByve1b0Q5Dn19V880EN0ADlMhLWhzggVgzTzVAWFgG57UjMd+0LK8hzzcCg24QRw3A2DYSWVd103DNk1mNcNy3Ujz1wr0SyQx8K2IjJiMGQZaJ0dh4nINQNG0awbDSc1RDiejMnQdh0QAEkEWgUkct1GG0RhBj6JQwD6b4gA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_tte.Rd b/man/tm_t_tte.Rd index ddb7b873a..576f3cef4 100644 --- a/man/tm_t_tte.Rd +++ b/man/tm_t_tte.Rd @@ -184,7 +184,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOzbWycikrLK6v5SciUAX0UIJOh4UUTQm3CCdgUwHILZlNmc5pcwQYArIni-AGs4VjGkyaN+OGMoYVI-An5aUTKtnf3D4GHYMXHPOQBdVwh5oVwklgMBlnl8rMfn8AU0WkUQWC5nC1tD-iwYH5GOcbkQYKginRRKQZhAMpkAMK2TJYACyFOyOgAvDoiSSGhlscZmTplnSdAAhRYcnTEfE86Z82lZRa8ub8imzQYZOS4Bo06UstmkjKc8482YCxA6AAK1CgBDg9CIwrJurFBJZkrmxuyjEEAHMdAANWWzCnGil4+jxDyWCBKhqDQZKNAE8LxaI6nRJHlJNV2vhCESiHlZ4SfEUlPzXHpwZO61lQehwagGsC2WjwOxEHRObRkOzVkS2ysZd7Nlng1a9vsYvyaFgSmLbS2iPyiWtwdRwfgVvuTxi0btwG4zmSfQEpZ0av3y+nZM+U6l0hlK1UiytS2aPnQPu2V8dc3HillfnEOhmfY6KgLCwLc06zmIC5Liua6vhkk7UIIu4EPuc7sCsLRLGAJo0pkF5nnhWAEUqQHAXKADyuQvh+urvsBxLMJ4E5Tk66HQYuIhweulabtu9AiHuUFjEeoozGAuROL6eBygKtJYAA0lgABM97kcBsxSTJr4MX2GjwH4qDbGQubsSJMHceQa7TAAjAAHCpKQqQALAAzKqOgOSpemVnAHbXGcDysYwkEHvOXHLtZvG6vxO7CeFmEojhTgAGoAHK2NkTi5Iq6waX2sxpZl2W5aOwHGLQFSrjy9jOLpIrKm+SiDLQ3LsPE5BqBo2jWDYaR2qIcQQKwmToOwcYACSCLQKRTYujDaIwgx9EoYB9D8QA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } From f98e34bcc409374b2fcefaf3787ca897eb11d440 Mon Sep 17 00:00:00 2001 From: Pawel Rucki <12943682+pawelru@users.noreply.github.com> Date: Tue, 1 Oct 2024 10:01:32 +0200 Subject: [PATCH 3/4] update --- man/tm_a_gee.Rd | 2 +- man/tm_a_mmrm.Rd | 2 +- man/tm_g_barchart_simple.Rd | 2 +- man/tm_g_ci.Rd | 2 +- man/tm_g_forest_rsp.Rd | 2 +- man/tm_g_forest_tte.Rd | 2 +- man/tm_g_ipp.Rd | 2 +- man/tm_g_km.Rd | 2 +- man/tm_g_lineplot.Rd | 2 +- man/tm_g_pp_adverse_events.Rd | 2 +- man/tm_g_pp_patient_timeline.Rd | 2 +- man/tm_g_pp_therapy.Rd | 2 +- man/tm_g_pp_vitals.Rd | 2 +- man/tm_t_abnormality.Rd | 2 +- man/tm_t_abnormality_by_worst_grade.Rd | 2 +- man/tm_t_ancova.Rd | 2 +- man/tm_t_binary_outcome.Rd | 2 +- man/tm_t_coxreg.Rd | 4 ++-- man/tm_t_events.Rd | 2 +- man/tm_t_events_by_grade.Rd | 2 +- man/tm_t_events_patyear.Rd | 4 ++-- man/tm_t_events_summary.Rd | 2 +- man/tm_t_exposure.Rd | 2 +- man/tm_t_logistic.Rd | 2 +- man/tm_t_mult_events.Rd | 2 +- man/tm_t_pp_basic_info.Rd | 2 +- man/tm_t_pp_laboratory.Rd | 2 +- man/tm_t_pp_medical_history.Rd | 2 +- man/tm_t_pp_prior_medication.Rd | 2 +- man/tm_t_shift_by_arm.Rd | 2 +- man/tm_t_shift_by_arm_by_worst.Rd | 2 +- man/tm_t_shift_by_grade.Rd | 2 +- man/tm_t_smq.Rd | 2 +- man/tm_t_summary.Rd | 2 +- man/tm_t_summary_by.Rd | 2 +- man/tm_t_tte.Rd | 2 +- 36 files changed, 38 insertions(+), 38 deletions(-) diff --git a/man/tm_a_gee.Rd b/man/tm_a_gee.Rd index 89ac198ef..e9333ea22 100644 --- a/man/tm_a_gee.Rd +++ b/man/tm_a_gee.Rd @@ -128,7 +128,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeUAipV1DU2t7fwAjqI6AKQAfNM9Jca01OSM7KUAQtUAYrUAhAC8OgpgAJqnOgBkZdt7AEw6RyfnpzZzCxAlJTCCoeTsRbfUoANQAkpUwbYdMcoOJjFB1ER1qCIVC5LggSVUZDbAA5GE6ZgQADWG3BuLx73mWO+cIwCKR62pn2+bJ09IggngjBk1hmNK+7JK9MZpGR1kxQrZoNK1U2YIJx1ltT0OgArAAGHQAYh0AClBKJSByplAvq1YD5dOKdABzOAmsL0bKeHQUbxEbKkDBAllA-iMIjW7TUUTxCAAXwCeWg8HDeRsyQIgLAFRqpwKpwqAzeSgAVl6IFESXBWAnEkmjPw4AjhKQogR+LRRE1C9kS2XRMBY7AxLlKwBdVzQdB1bLpQFCvKEvJSn4CYRiQl8IQicNAhrtKIOuBT4XUKD0ODUQmnADiThceFpvfgZ7T-UqmdpUE03Ci78YhIIGS9BDEKJRBPOB1DgfhUxVBU8UzExaBacDCXsZwMVpWh+E-Fgfz-GRAOAkQwIglNTgcSoHE2fUwXKWDTjIiiqLeLMwFI8jKOosBUOlOlGBgTDv2OX9-zwkDCPYYi0ywABZGiJMkgBhdiMReUopMY2lNBbdI+OwoTRCAkTyCIyCKShGScShGCOKY8zbDUriSlQFhYCbHTcL0-DQMM-dhR0QS3MJd9qEEOBGxwgCK1CYBgGzJ9TkHQcmIABRU0p5PYpKUukqzaRKDzCIfHYAGlIQMHYAHVNlOWlOOFYhNG0gSwuEgivPEzZSkqa9rMvGTOoADRk9rOsQGzGJ0PEHGqaoAjZGadACAJaGMHR2G9VREQ0bRrBsIohVELIIFYUp0HYNBUAAEkEWgCjO87gMYbR-CUSMlDASNByAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_a_mmrm.Rd b/man/tm_a_mmrm.Rd index fda55a156..66cb4881e 100644 --- a/man/tm_a_mmrm.Rd +++ b/man/tm_a_mmrm.Rd @@ -166,7 +166,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEosMAD6jHDGIcQwqPpGdKKk7Eo6OgCCWACyAMIAIjoAvDoJSSmpOuHGhToKYBmZOgBCtbhlqdGxRQTJdVnpLTW9Ddm1AakBAUr8UKRQcTpc1CHTs9ZTM3OGOgDutKQAFrQQ7CtQuDogZWm5AMoAMvOkMAQhcAAeIVD8otRXuQCKN0ez1eHy+AEdRDoAKQAPmhbRMtGo5EY7DSjTuADEHgBCIq1ACatR0ADJ0picQAmHT4wbEsA2OEIiDlJEo1TogBqAEkbjzbDCjtCdN1agB1JxOADSOgAjDpcmlCToABwDCVS2U0pUquUAVg1YElMp0AGZFcqdFSqaMmfDETBBLNyMlWWz0rz+YKilBxMYoOoiGi0l6BXJWu62aG+QKAHLVZgQADW3Njtjj9pZHvKfowAaDaKziLZeYggngjBk1hhDqjHrzBdIwZrAGIAOQ6GBQZNHADmopIojgBGdWl05crMhMgebjERAQAvgFTtB4KIThsbFsxXVbncjddAaMlAArIhHELJuCsDenbdGfgRKDCUhRfi0UQvc+X6+34CrrAYibrMcgALquNA6DzEcexuqkpzVKckapHwQgiFCRRocIwGIk8nwhDAMCMDA8EetQUD0HA1DVLUmSZFkLQljogHwLRe7HngzFQJo3AhLxjDVAQ+wXgQYghMOIjqHA-DsLuoZpAeeCDNkAASADioznLUClKRGzG0Pw-EsEJIkyOJkkjuQsm7g4NwOI0ABSPK5Ea9lOS5WmDHZDnOa5jIoQ2JHGYJXRmWJogSdRVkyXJPT1IeWR5F5OmMQFzGaJ+ewhaZokWdF0k2fFYa2IeJVxildQlVp3HBZUUREDE1TBGEEQNTEgVsqgLCwAQ-C5eZkWWYVZE5sJeWYTovHUIIcBROFwGnMAwA6QCNy1GBYHaWAAAKGRpDk-nbXtWAHTV9ZssN1nsVi0r8gYWLis0YDMfpF2DpoOVhRNUVSdZcW1I0aQ3C4yk6epoPbSDAAaRpAyDiAxt6Xlxg4dx3GM5SYxMSi0FU7BHKis7jtYNiXO6oiHBArBpOg7BoKgAAkgi0OcDOM8OjDaP4SiLkoYCLmBQA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_barchart_simple.Rd b/man/tm_g_barchart_simple.Rd index be9c052d3..e30f4a501 100644 --- a/man/tm_g_barchart_simple.Rd +++ b/man/tm_g_barchart_simple.Rd @@ -183,7 +183,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAygAyyTqkMARpcAAeaVD8otQ6AKQAfBP1DTowgonk7ACStrYAYp0AvCZQ6gHsCmAAmic207MQ8-NFpWnUUPRw1MdgqypkBrZEP4xwBI6AAKRFQwgSlhumyeAHMLkEGi1Gk4uj0+oNhvFdFc5g1jLRqORGOwAITsdgo2wAeQAGgBxLA6HZ7ACMNgAZDpKU5Wk4AGrMvYnACyq3azQuOi5lKwIqFOhOjUQOmajEEsJ0tIRQQAvkFctB4KJKokbPkCO8Wh0TjUlc0URclAArIjlNIAazgrBNuXNRn4cGMUGEpDSBH4tFEfVd7q9PuAhtgYlNUDkAF1YtbOvlcsBgPabWB05mIMjUbmqvn7Y7i6WlGhUF1ysVjjcdLlmR2qrg5nwhCJRF3+8IU3jujA0rC0vQWAQSiww6JaDBInA27cGk8XuNhWBy01oFFl6JbeOGgMu7l+gNSGol6g4Jbz-Mk-Au4X2mf25udKJXk+pBdv+IjqGkoiPs+P6-jo85ugQYhdpoLC0M8IjhiU8FjtBMFNG07S9jhMFQbhv5KnKtqKvuADCtiNBReBUXy2p4C+uEnFgjTUS4jEnOsWxfrxYCtI0mzbJRJytPYjR0QATCcbGboipFyIRpF-gB6hwPwH40XRDFqaRixErQa5dpsjTtHyinKbcqkvgS1C7jodCiKQG4wdegx3gcD5Ph5uFvroe7Zt+6kgYBwGaX5JHqbBmEyIhezIYwqH0OhcGJSaim-tmhlxbBAUFVR9EihJemleVzFhcVDQcVxPF2h8GziUJIliYJTVSZxckKURuG2Sp+WkRFWk6Xu1Wsf1m7GRoZl7BZVkuNNDSDXZw23F5t73uBkFFb+QW6eWNW4aNQF7Gdu3+Tl8yZQhQ7JShaFwBhWEmuWNTPvuTg0gyWDlSifL8gDvJOP9YByPZK3zGd2ldgAcg47QETdDSzaZIjmZZ1nQ2t8x41Dv5DMGCHnS5UbuYpW0+WBEHXdDh0hQ6jU3WdUWgTF+3EQl91IU96UvXdKYfYVSo-XSjIg0DUtgwiG0wbD40leLf0nUZoYY8FOiLTj6l46t8sNNTO107FgVVEaWufmrv5sxd0VXWbpFCw9OgpWlGU89htV5ajt1c+p5FlUJXH6cHXVOCxhukfV3HlfxrVdaJidMdJvVgH7q1+4TcWKwjSMo9DaMa-N2vY8tes2S+Oe3KwaQk3AZOuZT03G75jsB6+FvJkdzM25udsaRzHd+y7fOpc9r1ZZSzOfVaKuSyHoPA0vfLg5D0e3HnIXL-3v7o6XOsVypNnR23tN7TdjMlfhe8w9F7OASPRfxW948e4LXvZS-SL4Zvm5OwKkHAGtFKptUjnfdiYBOJxyEgnTqTFk4IMkmnRo8kM4-x0PrJS-8Gjbx0IjZGuCFgl0xgtcuN1sEE3HMpIIQRaDGG5OUYkvktDrkhrUOYogygQFYI0dA7BGwABJBC0BqMI-8jBtAxAgLqJQYBdTpiAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_ci.Rd b/man/tm_g_ci.Rd index 7c1292513..d43f5cfb8 100644 --- a/man/tm_g_ci.Rd +++ b/man/tm_g_ci.Rd @@ -137,7 +137,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQSvxQpFD6RlzUAPqh4dYhYRGGOgDutKQAFrQQ7PFQuDogSjo6AIIAIgDKADKROqQwBDFwAB4xUPyi1KUVlbUAQg1NLe2d-NT0SgC+QQXQ8KL5yTapBOwKYFV1W0VbVUNbQQBWRLkxANZwrMsFa0b8cMZQwqQxBPy0oi1nF9e3YALWBiFbhOQAXVcEB29VSBWAwAONVqWwhUJhA2G8OSiORRzA6OhaFQDVymU2EDKBR0AF4dAVcH0+EIRKI6ToWcJQX0yk0YgBzD60SllMU6ahQehwagcrYAYRIxloT3MugAkipGJpuDoAAr+Uh7Xlijo6xgcgqtNqkNTvUSoOAbE3i4HwOXbFHGqnisWiGVO0gc-0idQxB1O0W+8UELLnAhiDnO7ZYACy8sqex0W0GqawAGksAAmY5Mn3RsohwNwfhJzYp9OZsByMsVsUwN60VAiDkAMXKtWqTlbbZMtDaNb7A6HLrFQWjLdnrBi5styWttqgYYjzvLvrdunp+MG3rbyuo5At9LoolIUbPtAvqnDjt3o7F5vZR7AevKWHKjanu+OixvGibXnA2jUMshyDAAJL+-6Noue5tlW6iThBUEwViCF-gBGZyMAACMEIju+HYXl2Pb0v2g7DrO0aStKsrftUAbqBKUqIFsjFzuRFbnpeL6Rnx4qfh65QAGrqtU6q2EB76gTI4ESpBMo4UMcHSbJ8kocBOjoeQtZYRp7CwdpMlybYRGkQJbaURo3aHjodFDvZFbMTKHrsaGQaaN8mQ8WAYk6POFb6RWRnBhx9qvvenlSt537lNA1CsAAXpOUncIIcCKRWykJl+IH1tJA5ZgqAASADipahUZmHZtsUkVXgoWOdRLluQxqG+sqE4ma504uH1ZTheKkUxkQ-hXgy67tJu27xXxB6SV67VjYZsUxX5IlvqOXmsc1iqzTo9CsDo5q0FKIgFdGRWqcmQ4ABqVWA1T2OUtjlMR72ff+P0ls2Hnio1Q3PV9P1-SDHWds5U70aDYoDU1PV8RNc4muFQRBLQxg6OwuSXluGjaNYNglD6og5BArDlOg7AknBgi0EUzP+tqqhBDMShgDMEJAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_forest_rsp.Rd b/man/tm_g_forest_rsp.Rd index 9211fdac6..124270038 100644 --- a/man/tm_g_forest_rsp.Rd +++ b/man/tm_g_forest_rsp.Rd @@ -209,7 +209,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAygAyyTqkMARpcAAeaVD8otT1Tc1YrV09fYPD-IyiOgCkAHyrEw0wgonk7I0Aao3tAMI6ALw6-GkkxGnLqGnUUPRw1Icn5zYbWxANQGFYolF5vD7sBRgM4lFhQdSqHRYMTCUgAegAYuV+OUAOZQuS-TbbEy0ajkRjsAAKjSwjQAsmdmjoAITXKEAeSOWAAkgA5I5QnQAHyaRx5rR5tiu7LAGI57XaHIA6joHFSCUoAL5BXLQeCiSqJGz5AiQsAtDpQmpQlrTTUQABWRHKaQA1nBWIbciajPw4MYoKi0gQcaI+s7XR6vcA9bAxEaoHIALqxS2dfK5YDAW1tdpQ5OpiB2maZqrZ3P2sCF2IsGCPAMhogwVBdOiiUiQgFNLD0q46dudkmMAP9qEAIUQOiprwIcHoRGtJOILf7ZttU+ajEEuJ0AA1rTooWcp2dm-RyglLBAHQ05LgJrTGczroOu0CR8Yxxbezpx0vuwaFdW2udcfz7RpD1tX8zlvHQgiCJQ0FbfJymKd8biqftcgfbs+CEEQVmufDhATEkejSXE0mMAIfEeURUAwoFXneahvwxWiOyRMRUBIUQ4AAoEGjjeBvxLQShLrNJNBYNcShdOdRDSfiRARfgmKEmTGFoN4RBDeSZATdMajAp8oPApkCXvEkgWg58oRs+DcKEnQpM-JtV2uNzG2A5yhNQOFen4OSFLEZSPjgNSNKBGTqEEOB9NCw0SxtMAaTpey8CPNLaQZAk-JcqF+SOJxbAcwDAWsiqGlEQR6FxRgiEEZ4tJCwylJUyLyHUxyGi0nT6D0ggDMUw48xqfUjLzQkCqEsDx3pLAAGksAAJnM1onAPMAghcqqXI7ZhEmk2TQJGsLOqi3qdH63SEuGpKxo6EzzVaexGlsRoAEYNvez71p2-aXOyt66X+8q9tmhpIiIUg0hKOBaFxEpSDXdgADYAAZMfaGpVux3GdHxgmgaBf1A2DEcGL4sR+zfa7xycVppipHk6doDtoqEp40ahVpEkG3Rmg5uAoH4nR2FaZpFCyqE+VhnQnFiwQ7olvknBl0ngZEbRqCInR12q4Hj2bSI4HIbjqYgcX2DOLAZdSqkWA0bhLd463dGpe2NoFkQdGF-ixc9qWHeu2y0sahqxFELQhZFoOJapaXzPl1Gle4FXBbVjWIeBu9rq1oFitK9nObDnQedA80zxbEQLeRK2bbth3sqdxgXbYhv3ZtqlvZ2qGhJ1j59cNvPw5rs3654mmJeblOFfTuLVfYdWW6hNuO7dmevdDo3Cojogo9EGPtH9+Oe+T2WwH51WA9Fm2Q9zvPduBwvAS5XkBVLoc98BSuDfNFSSOVMT5x0DhfNe19fZgPvsHS+b9mJwF1iPQBwDo6xzPuAz2SdIE3yznfBOktL6pVTorZWy9V5wT2o5F++duwISULQL87BygUnhBobQ1gbB1G7KIMoEBWCNHQOwZCAASQQtAahiP4owbQMQIBaiUGALUyYgA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_forest_tte.Rd b/man/tm_g_forest_tte.Rd index e0ecc1161..b5430e246 100644 --- a/man/tm_g_forest_tte.Rd +++ b/man/tm_g_forest_tte.Rd @@ -187,7 +187,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAygAyyTqkMARpcAAeaVD8otT1Tc22tk5dPX2Dw-yk5BMtHQAkWI0AwrP5-IxEkXDa1KLs6+1bu042AKQAfPeFxSVp1FD0cNTsCmBYKAEOD-IIAXyCuWg8AuuRs+QIfzAV3+NX+LWmLjAQQAVkRymkANZwViwqrwoz8ODGKDCUhpAj8WiiPp4gnE0nAKGwMSVRJyAC6sSuXVywGA6La7X+AqFEAxM1FVXFksxMrlShYMDSjGpDKIMFQXToolIfwgDUaWAAsjoALw6E1miYNXXGe06f4AIUQOgACp9gfQiKiXTpiIaPYj0b7moxBABzHQADVRnrAO19OwN9HKCUsEFBEzkuDWNp2zQ9TvNDVd1I96JtOi9oYttYjRod0eRTcaacbtp2RbbQSCmvQXXKxRrOlyHtypbbfCEIlEHuXwl5YZ6aQTaWMAR8aRWcBntcdXx+DbAADFD6adK1BIxNFpuK3zw1ufBrwqsYvPx0LU0k0FgoxKfFgVENJRB+OB1Dgfgz0-UDGFoL4RAZCCZF5K4am7K1rX7HtrQrUESzDc8BzIsBKJ0Ci23PYC3X1SMHWYvUOwAz9UBYWBGXAyCxBguCEKQuiGlA6hBDgLChIuP80TAP0rUaUjmmIlTtiI7FuMA-4AHlWn+OiGMA0RBHoBMjkEVAQLArtsKgkSRDE5Dz1Q9D6EwggnNwqUamhfyOjkMzAPDJEvWtLAAGksAAJmI1onFTbFTL02tTWYRJ7MYQScOg2DXPIcTGJQlgvJ8vyFICiL-laexGlsRoAEYksa5rEuxML9LABrtk6kyyoaIJz1G+ilCCWh3XYcpyDUDRtGsGw6jbUQyggVhGnQdg0FQDZBFoGo9o2WCX1UcElDAMEBSAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_ipp.Rd b/man/tm_g_ipp.Rd index 58b6a5d55..7c70ab6c5 100644 --- a/man/tm_g_ipp.Rd +++ b/man/tm_g_ipp.Rd @@ -175,7 +175,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAygAyyTqkMARpcAAeaVD8otQ6AKQAfBP1DTpjMnDsAIyIAEwADDbTsxDzOvzG-QORMsVp0Nn7Tc3tAEJdPX2Dw-zU9JMzcw3GtNTkRjsBytBz3ABSAElmpNyhNbh0ACQgsFQ5o7b43BpHE5nAgXK4YvYHP4A1TsRoANUhrUhth0AEIALw6BRgVoAYSwTicADlIbyAOJsoIAXyCuWg8FElUSNnyBHYbJaHTZNWVd3uIqUACsiOU0gBrOCsGW5eVGfhwYxQYSkNIEfi0UR9PUG42m4CS2BiWVQOQAXViKs6+VywGAGtVYADQYgLQeXXDkbACa1MbjSjQqC65WKSpuuR0LNyuDmfCEIlExZ0FeEvp+3RgaQA5mlaOgCwcGtQoPQ4OMWWzIXEtLQhNwdAAFBK0Cikaf+UhqxvYqpS3RD1OaldY+YsZuaFg1gglfUEMRpUQDuDqOD8LvdhpH6iCOAOs9LGVp9WprAAWQ5ZoRTLPcDmVACmjZVcdDkUCn1QFhYEdE9PwvUQrxvO8Hxg59uDfD9z19H9WTAKdGiwRpAOAsA4Nw0jGnaWxoLA2D4O7KAXzSI9GFQoiMOvERsMfJ8eNoPsREIr8KU1GpFWVSlGLVUiOQACWFWi6NYhoFKUsAYK0p9OPw7jjxZU9+MwoTyBw7SdDEiT3ws6SSPk1NFPaBwRUMp8GI8ry8Hov4BnvGt7GcAz2IOcdTN48y0MvQTbxskTuwc+hJOc9CZIeOSlTAFEIWhbyou7NlCrRXdfJMWgQv4MLHBcVifIOTRnQuHi+K-KzkvvVLWpYcSMqchLv1knQ3KpGk6RK+iFOm5j9Oa0qGnoKBBPKd9OviyykuE+j0sy0acvuPK2XuRpWhcTSVvmc7Luu27flq0KWXCpqnxa-d+H4NI1o27w0hKKRNx0AAxRirtu69EOYcg-tYNIiHoasWQh9orsbIIGiCIJaGMHR2HKQEoAsbRrBsOoblEMoIFYRpO2zRFBFoGomevRhtBiCBRSUMBRQDIA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_km.Rd b/man/tm_g_km.Rd index 1b89b0d35..0e29def52 100644 --- a/man/tm_g_km.Rd +++ b/man/tm_g_km.Rd @@ -172,7 +172,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQSvxQpFD6RlzUAPqh4dYhYRGGOgDutKQAFrQQ7PFQuDogSjo6AIIAIgDKADKROqQwBDFwAB4xUPyi1KUVlba2Tg1NLe2d-KTkSgC+QQXQ8KL5yTapBOwKYFV1W0VbVYMuYEEAVkS5MQDWcKzLBWtG-HDGUMKkMQT8tKIt55c3O7ABawMQrcJyAC6rggO3qqQKwGABxqtS2kOhsIGQwaiOR22xxwxMJYMBijBenyIMFQDToolImwgZXKAGFbOUsABZVmVHQAXh09MZfTKFOMAp0B25OgAQntRTpiDTJRtpVyKnspdsZaytkEynJcH1ORrBcKmWUxS9JVtZYgdAAFahQAhwehEBXMq3K2mCtXbB2VRiCADmOgAGlqtqyHazqfRcmFLMETn0gkElGhaalcplLToCpKCsbvXwhCJRJLy8IwYqmjFQ9cYAWrUKoPQ4NRbWAANJoF0QAxcuC0VRO-ykL1tsog+A9w5Dacz0kxTQsVVZC5u0QxURduDqOD8Vsz9eMWgdkSfLcyMFwooB03RnU8yovtkc7m8-VGxVt9Utn-HQ-29NtUBYWAvk3bcxD3A8jxPYCynXahBDgG9YOWRcnH2MBHU5co3xfAisCI-VSxnK0tgAeWqICwKtUCqNXcUqRVQVWMpX1KJnBlmHCNcN39W8d3gkRENPNtz0vehrwIUT71RR9NjAaonCjPBtVlLksF7LAACZf14qitnUzTgOYmdXjdD5zxgu9d33CTyCQxjpJYWT5MU7DlKVVTzJfHS9MM4zkJ0AA5BxajRdyQMVA14ogIJaAldhcnINQNG0awbBKb1RByCBWHKdB2GzAASQRaCKSr90YbRAlmJQwBmSEgA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_lineplot.Rd b/man/tm_g_lineplot.Rd index 4f757ebd6..1ad25a410 100644 --- a/man/tm_g_lineplot.Rd +++ b/man/tm_g_lineplot.Rd @@ -161,7 +161,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBbgyhHMYBsqSiQUr8UKRQ+kZc1AD6GVnW6ZnZhjoA7rSkABa0EOFluDogSjo6AIIAIgDKADI5OqQwBPlwAB75UPyi1O1d3f0AQkMjY5PT-NT0OgCkAHx7Cx0wglnk7J0AagCSvbe2OgC8zybq+YxwAfyqV3cPWwtG73R4AORaMAaciCAF8gkUoNB4KImlkbBUCOwFGAegMcS0cT0VjiggArIgNfIAazgrFRiIxRl+xigwlI+QI-FoojGFKptPpwERyLEaKgcgAuq4IHjBhVEcBgES+v0cZLpbKlqsFWUlSqSWANTK0Kghg0atiIB1ES8dIjcAs+EIRKI7c7hGKTsMYPkAOb5KRwSJEUhWjoRnTUKD0ODUO04-oNXQABX8pAJ3ptZVFCdx2sz1sjOlEpGYWTtBFqlIIYnyojjcHUcH44eLHU0LFoMZEnOrMjFcpaWKJWAAsgSdKOxwBhbqTokz2ydcdz0lyR1F9vTnFZnQbvesSv92uieuN5utvcdrs9uB9muD7XD7G466dNV4KdgZadXouL8cRnAAJABxBcwBTEDwLAGFN3bDoiXfT89wPLcI1QFhYGPR8zwbERLzbdtO2oQR7yrXCrmfb8UxXTpZ3nQDILoidYPghCiX6Wxd3Qjogkjfj9yUIJaGMHR2Aacg1A0bRrBsNoi1EeoIFYTp0HYU0ABJBFoFotIbRhtBiCBYSUMBYUlIA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_pp_adverse_events.Rd b/man/tm_g_pp_adverse_events.Rd index 425b6e5a3..8c1390b7c 100644 --- a/man/tm_g_pp_adverse_events.Rd +++ b/man/tm_g_pp_adverse_events.Rd @@ -141,7 +141,7 @@ if (interactive()) { \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACKNTsk6pDAEaXAAHmlQ8XD1Tc0AygAyHV09-YP8otQ6AKQAfCujDca01OSM7A7jDgBCAFIAks2r5StjbQAkR6eXzUEAvkG50PCilYk2fIEdgKMAtKagmqglptUFBABWRHKaQA1nBWH9coCjPw4MYoMJSGkCPxaKIeojkWiMcBvrAxP8oHIALqxcHTfK5YDAaETSag5msiAw9qcqrc3mwsCC2JoVAdcrFEEQBq5HQAXh0uVwoz4QhEog1Oj1wgZW06MDSAHM0ugFtpGKI4L1tGQ-uaGtQoPQ4MtNdD+A6nTonK7SKJIR6tVUfrp-WDWi48FHUCwKKRY0beRDkyqGvnUxp08SiH6dKDnucrpG8-mdJEiESSnBaFaSqQjcCAGwABh7kxqACY+wOdMOR3IdbX81A4PsYJ2SkiCGI0k6ROo4PxlXW6wQlzIxEbNCxaN6RMSDyu-iKoWCnLYnFgALJwqe7-PruCb-hZ++Pl9QSjSco1IIgBitZhcUXZdVy-H8dw-HR91gw1NRPRgz3oC8UMPG9EzvNpbAAeQADQAcSwN8owaeDyF-eMiLIyigOnBoQLY5CCVEbhilYGC8LXX1v3oxCP1w69j1Pc9nQkhlb3Le8sCcfkwA4pCdDorc-zaZTVOA99dyIQRfCIeABOvISN1EmjkKvI90Ok7DZPs-C2kIpxiIcWxqM42jhJ-HTPO81iP3U3coAsEgLLggKbL8uzUKkzCZMvVD2AU6EnEaABhAA5XyNK0hjFLaXKCrAAzQNoczNTk0QrJErcxN3erkqwnDXIygjSvGWxmgATUKpDip0vrBtC3dwrrXFiBKvKHEmflpyCdilCCWhjB0dhyn2SKNG0awbDqPNRDKCBWEadB2DlB5BFoGpbqdRgHQ+JQwHeZkgA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_pp_patient_timeline.Rd b/man/tm_g_pp_patient_timeline.Rd index 0f01ae1b5..2b73f085f 100644 --- a/man/tm_g_pp_patient_timeline.Rd +++ b/man/tm_g_pp_patient_timeline.Rd @@ -188,7 +188,7 @@ if (interactive()) { \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACKNTsk6pDAEaXAAHmlQ8XD1Tc0AygAyHV09-YP8otQ6AKQAfCujDca01OSM7A7jDgBCAFIAks2r5StjbQAkR6eXzUENLQDCALIz3b0DIYEGCrDZbHQwQSJcjscENH7jWzNACaOgAvDpZKI4GkCiUKLCIA1icSfp9GrZ0RiFGB4PxJDoTjSdAA-HQAJgADLg4aTvuTKWjqbS4PTlp9mWyAIwAVm5vIa9mcrJ0Ut5NnWdyKpTS1Cg9Dg1FhYHGpEE-FYOmaUEtRGMOlNLFIOjtOm+opkCUsEBpch5RJJOh+TgAcij0ZioNjcfiKgqg-yKVSdDS6QymWAVQB2TnygOBhMC5Op0UMiWZ6W5vMFxWOdpsuWc9WgrXFEq6-WG42m82W622+1OOIu+3u-iejQkX3+gs-RqI5q2X4Y+dIpczwNz0OL5dNbdL8FBAC+QRyVWg8FElUSNnyBGNLSmNJqNJabWfKbAX2+vqUACsiHKNIAGs4FYK9clvIx+DgYwoGEUg0gIcdRB6ACgNA8DgHvV8JkmD9cPfPBP2-X0AF0lCBGAQLA0QOhwk1bAcFErgIsBnnOVjiNfBcD24sAEScABFNiKU+NV+LE9lRNsT4AGYZM+AAWX8IHQiAaPA68oDkYBcJ+UTmgMsAyI6KjNNEf9AI0zCIKqXTCJcSSjJ-Ez6O7JiWOaNiONeVTKPQDpymKQkGlyCNcg3PghBEOiMWi4QxFC4kujSABzNJ0Eyr0KEQjR4CkOBkpJPUDWWYUAAUcrIOxaAK8oRjwXlcgvHEhigXRhTfJyNxJFrYDa+kQS6lzn15VAWFy1qI1wp8mvzYkJo0XKkKIcrP18rjesW-xEPxWg0pKZ0MXvAA2XNJhqLlOUujkq0mP1eWBGDiH4CMCBKQCCDENJsREdRRWKwMPq+sQI00FhaH1EQkM+mQktyYA9K-UaTLIl8BO+ZonE+AB5bywEehaST+uAAbe4UfmxvGCe2hoiYLDr9mGzE4e+0RfsNMnyH4IGSRB+G4p0CHGCh+gYYF9ntKRxyaTI9GSKcWwnCwVyGZrUnyfeh8lZVtX1TpnQmbqnFRESRhjtZ0GOc1nm+eJSWwYxEWxYltmEaqGWUaI+WMdXHdp3jW3RW1ni1314mdHVkljfgXphxO92ba58n7YaR2hZd6GcQz6Xke6uWFdffc1cNhpg4pzEdbDPj3kDaPiUWfLTfNy2M85-67fjDPwch7PYetvP9Nc33PznXjS6DlOedDzH-drg3mrNk348r9uK7Tq3Bd70X+9zxH89R0eaS3GvJ8j8vp5Dk7jVPgPCcXyOOsYQ14lYX7W-epOO+5wHu6Tnersc5JyHt7Jyx8vwLmRIHC+OgK6z39tAh+kcG4NGfq-G0q8v7Wx-qnf+1tAF7xAQfWWaM-bbiQag4k8Cb7FzDJQx+BZFgv2oG-D+TpsGC1wV3WBPdnZ93FsAweJCUbGQgYgmBNY4FXzXg+KBqkCxUOYRg9+FA17fw3vg7e-Dd6CIHoLUBpEyGK3oZIjWMiEEUIUfXQ8owghBFoPadg5R9hQAsNoawNg6gBlEGUCArBGjoHYGgVADxBC0BqCEh42JGDaBiBAI8SgwBHjIkAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_pp_therapy.Rd b/man/tm_g_pp_therapy.Rd index 8da6a2d42..9f8ce67ce 100644 --- a/man/tm_g_pp_therapy.Rd +++ b/man/tm_g_pp_therapy.Rd @@ -173,7 +173,7 @@ if (interactive()) { \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAwgCyyTqkMARpcAAeaVD8BDD1Tc0AygAyXT19g8P8otQ6AKQAfOsmtNTkjOwOUw4AQgBSAJLNG+U7LR0AJMdnV81BDQ-tjx2NU7bNWydfJfR5-AFAiag35OABygOBRlBjThCKUAF8gjkqtB4KJKokbPkCOwFGAWrMyTUyV8yViIAArIjlNIAazgrHxuSJRn4cGMUGEpDSBH4tFEfSZLPZnOAJJp0xmVJ0Co6dIAukoRmM2RzRF15WB-g5mgBNa7KskvC4WvAq8n-NF2skdKZOACKlvJtlaAEYvY0fQAmAM+gDModaABY6UopRBdZyCVA5MBVe0A20M2B1V1tTBE6JYhS5vlcsA0+TFWT1ZqIF8uuXK7Sc3WteguuViqSIA1cjoALw6XK4CZ8IQifVD8fCMQ9hoNHppADmaXQaVKqjQHAmC501Cg9DgayHZNsJS3qFYVN3C9yuN0p6rarwt4aqBYFFID8H9pLN97PcdA-DQvxFIgT3ta03gAoDgP8YUL1oZcSlIX8SQANgABiwmYaiDHC8J0AjCLkUdAL3BJaEYY90JKZkCDENJRGPOB1Dgfh5zgnQCHomQxF-TQWFoQ8RBFPjGPxL5qW9S4sCcJUwDIt8FxYkR2P4dDSVk+TFI+IDlIohcxj5YhNKHXiGKYtS2PITiVIaSz+KnHQhMYET6DEpzJPYaT7Q6ZonFaAB5Zo6XI7idBsjTfxddpApCsKwBUwy4LGcpRjoqzRGY1iNK4tKJIEoc3I8ryiqkrMZI6S54VacKHKivK7NisAarqskUoioCTKIFisuc3L1LsgqeoqwThNEuBxOy3yqv8+LgrdBqjL3aKWqfAKlpcZLVp0VKepgUhGDQiyKqG2yONGvdvOK1zJs86bbsqjpqvaexbBWyL1o41qOg+zq9oOm6YH4PrBAGySLvyxrnom9yppm5y5tehbmiWhwvu4n7zJ47StpOWMge6kHGCIQRyEh6zmqu2HxpKh7ytmvy4qwYKHFsHbgaAnG-vaNmOZ2rqVN60RjEYABHKmcpx67jPp+6EcepGfJZtrFqmAAxLBPSUkmeZp3G4vRrWdcBuDuccmBRFIfhWGl6GRrp7L4bKp6KpR9oZPBM0sbg3mnx901zYM-WrYoO2Hdl53nNdxHns973UWDvXGoDv9k5Dvd9IafSgiCWhjB0dhygOKALG0awbDqQDRDKCBWEadB2DQVBHkEWgalbx4WMYbQYggdElDAdF1SAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_g_pp_vitals.Rd b/man/tm_g_pp_vitals.Rd index 70075b66f..1fa694d70 100644 --- a/man/tm_g_pp_vitals.Rd +++ b/man/tm_g_pp_vitals.Rd @@ -117,7 +117,7 @@ if (interactive()) { \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQSvxQpFD6RlzUAPqh4dYhYRGGOgDutKQAFrQQ7PFQuDogSjo6AIIAIgDKADKROqQwBDFwAB4xUPyi1KUVlQBq1Q1NLe2d-JqiSgC+QQXQ8KL5yTapBOwKYFV1W0VbVUNbQQBWRLkxANZwrMsFa0b8cMZQwqQxBPy0oi1nF9e3YALWBiFbhOQAXVcEB29VSBWAwAONVqWwhUJhg2G8OSiORRzA6OhaFQDVymU2EDKBR0AF4dAVcH0+EIRKI6ToWcJQX0yk0YgBzGLoGKaTLcZa8so6ahQehwagcrYDcXUaZ4KXU5KLXT0-HVPaanSoFgUUg6pXbFGGqnSsomjRmj5ERV6sAOaoOABCACkAJKVG12+3+d5ZOC0AVZUgcjYANgADAnakUAExJlM6dMZuRM212k3MZr8WNZc4EMQxUQKuDqOD8SnB6UEMsyMQczQsWhykQfVsV5aHar7MAABXKWHKAFkAMKBsC5o1lasiOslt3jyez+dGxf56VtKBtb6l8uVle18gNpc6Ftn9n0zuMbv0Xt3tuDrEjqoATWOeabZcazXS1fy2XcAODKBO1iJ9Tw-KtgKvRtAPfAcOy7Hs4D7e92CHb8BnKVEF0gpsLxAt1ykI4jdylIIyiCIJaGMHR2Fycg1A0bRrBsEpbVEHIIFYcp0HYEkABJBFoIoJOrRhtECWYlDAGYISAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_abnormality.Rd b/man/tm_t_abnormality.Rd index 3cec6f053..5cfb9d15b 100644 --- a/man/tm_t_abnormality.Rd +++ b/man/tm_t_abnormality.Rd @@ -163,7 +163,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeXVAEJ1DU2t7fzU9DoApAB8Uz0lMIKh5OwLJToA8gBy9rYAYrUAvDqyonBRKRkUaxAb92UAagCSlc+209lTp2tglQDCWCcTm2z22AHEFHgdFD+qVKk5qmCXGAbAA-GFgKG4db3ezOHQYqEATShuJ0Nlm3zSmSi1Cg9Dg1F+mzutkYcBC8DIOiwcGIjH4On29IA5lCAvcAgBfAJ5aDwUS5RI2ZIEX4VGrYzEVAYSpQAKyI2SiAGs4KwlXlVUZ+HBjFBhKQogR+LRRE0jSbzZbgPLYGJlaE5ABdVwQTW1ZJ5YDAKGRqEhsMRvqDaOJWPx1OJ5NKNCoOrZdK3Ep5HQnPI4u46PhCESics1gTCQPrBpRZ0MiBERgwbjpDjk+mM6iN+P0bu9-ukVh2BkibHk-3wMdgXX9RfV+4sGBRTQsRsEDLGghiKLnETqOD8EsPEpHk9iRv7xi0ecXB8yQORgqiQT0c5SEPDUsAAWW1eMwP+coJTkKs7xKC9+XIIUTkg8CsS3DY4PJDp+A7IhQlHE59lKaoEXgh56FYPcWAbE5P1PURzyZZDr1vO9GKfE4XzfegRBdY8vyVddf3-QDgKhAZ-lKWwILAAAFUosFKDCCnjF43jk1EcKw+4kKvVCfik-oZO09TFOU1SJUou9zTgVAoh7O1GEbfEXD0ilbI2egoAvbILhfQ8hKYljLxQjiHl499BMfETUzEgC4CAtCwH6bYsDBGDUW8-TWMM1d0sy7ZsoKYxaBaa83McDy710u9RWYO1grisK2Jvcl7xC7idGi-iP26+KBkSiTUtKDKspszqdAMlDV3G4rSum8rKqM9zyXqh4ux7PtiJ0OhRFIdhqCIFJV2qTYAHVtSyUUMlXAAJZ5wQeqbPNaSRBDtKJfPOdoJ0bUjyNq7CegCAJaGMHR2Gycg1A0bRrBsIpq1ELIIFYUp0HYfMABJBFoAo8fORhtH8JRpSUMBpRDIA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_abnormality_by_worst_grade.Rd b/man/tm_t_abnormality_by_worst_grade.Rd index 8ca70c833..6dc65ab4d 100644 --- a/man/tm_t_abnormality_by_worst_grade.Rd +++ b/man/tm_t_abnormality_by_worst_grade.Rd @@ -140,7 +140,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeXVAEJ1DU2t7fzU9DoApAB8Uz0lxrTU5IzsAISlAGoAkpU7ttPZUzoE7ApglQDCWE5OAHI79wDiFwUX-aWVTtVPLmByAIAXwCeWg8FEuUSNmSZwuFRqbx08L6-QuAQAVkRslEANZwViQvIwoz8ODGKDCUhRAj8WiiJpYnH4wnAMGwMRQ0JyAC6rggCNqyTywGAKMRYB5fIFqLqIrFYAqAwuUv5aFQdWy6XOEBKeR0AF4dHlcD0+EIRKJDTpzcJOQt6jAotSoPQIERGDBuOlWFF6L6Uh7RNSAObMMk6kpRnTUV1wajWi7VV0ekIe1h2MSkHRYMRUq1pTI6AAStBDGSzOme4d0AAUiMGDP0oKJ49k4G8HXrEuDdEaUcq8F2dCwnZoWNaCBlsQQxFFWyJ1HB+JHo1GpzOxNbx4xaK6RDTpzJOYKCqJBPRW9mjXDFVgALJI+EPq7ldFyU26tclBdwJf8RM70fMBhw-YdUBYWBaUnI9Z1Eed4z-cgV2HEoN2PK0jXHahBDgQ9N0hJV+neMBa1KLBSnvV8n1I8jKPRT9vx-RD-0nc5FWqWwaJuWsaJ2Z5SnRUDGLXDp+GdIhQgTI0ADFSmqb4HQCEowK-JYVlUa1InnOg4NXEptK6Y92MFGjKlKGSZOqJFf1Y-swAATQYh1DN0uATNRGiAHl7nsWwrJsljkMApyAR6AIAloYwdHYbJVigCxtGsGwii-UQsggVhSnQdh1QAEkEWgCny1tGG0fwlCBJQwCBHkgA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_ancova.Rd b/man/tm_t_ancova.Rd index 9f5591b6e..4ae3312b6 100644 --- a/man/tm_t_ancova.Rd +++ b/man/tm_t_ancova.Rd @@ -164,7 +164,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOyARVyikrLK6v4AR1ElAF9FCCToeFFE0JtwgnYFMByCuZS5nJa5oYArIni-AGs4VnGkqaN+OGMoYVI-An5aUTKtnf3D4BHYMQnPOQBdVwgFoVwklgMAVnl8nMfn8Ac1WsDQqDwWswND-iwYH5GOcbkQYKginRRKRZhAMpksABZHQAXh0RJJDQy2OMtJ0cwAQogdAAFahQAhwehEJZMnTEfFsmYrbnZRiCADmOgAGkt2WAAMLcjV4+jxDyWCDrBpyXANTIa2wUyka7JshmkjLM85slZUnQc0Vkp0Sgl06Xzd2ZNVu6ka43eoZDJRoAnheLRR06JJspJm718IQiURszPCT5ikp+a5QcxETRQJNO+lQehwaiu+YAOQ1AHkAGqZOy1kRe6sZd7wRurXJ9-tQTT3aJSmLbQWiPyietwdRwfhV-sEWcyMRsivUQRwG7b+fsEfLebtgCSuSvtnW6f7TqXIlX-EbAHUnE4ANI6ACMOjZJkACaOgABxzGKGSmtBOgYn4FaMDOc5iIuy5vhu1ZbqhOZ0khtA9keOE7uMgIpAG1ohvMlrWra1F0dk6ywd6T4viu5DvnSob0WAcEsU+CEsrikp0kJOK+o+477ohLAoaR6GvpxWE+ieu74SwhH0CIx64WecIUbMmoABIAOIMZ2kJgHIAlPjo7Fvo2GpmVBrFOrZ2HlrJyH+mpC4OcpcEZCR857ppRG6aR+ktIZnKZLkLh4OquT2JkVr-tRCWqtZHn9gFa6NilWBpZkGV8W5MFSdWqAsLAtzyfOikcWuKnBX5YUHsRfnRbkF48hSmQ2kxSVzP1xWUg+QX2RhnGNgAYj+t4GHNH6euVT65Rk8TkGo1xIQ1aH5euU0hepOgERFp1kQZ4pGRy8WJReRUlWVT1ONlNlVXlM0FdxYDPelrkbWKQwwUoQy0Ky7DbaoAoaNo1g2Gk3qiHEECsJk6DsLGAAkgi0CkuNLow2iMEM-RKGA-Q-EAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_binary_outcome.Rd b/man/tm_t_binary_outcome.Rd index bd4db3cb9..f10ab5bc7 100644 --- a/man/tm_t_binary_outcome.Rd +++ b/man/tm_t_binary_outcome.Rd @@ -198,7 +198,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeVYlXUNTa3t-IyiOgCkAHyTPSUwgqHk7PMlZQBqpdUAwjoAvDr8USTEUeOoUdRQ9HDU7KVbuzYzcxDrH6npGVc3d6tgHYZFhQdSqHRYMTCUgAegAYtl+NkAOYKMABD4vWZrYy0ajkRjsAAKpSwpQAsjtyjoAISHNEAeQ2WAAkgA5DZonQAH02LMqLNsB3pYDhDOq1QZAHUdA4iWiAgBfAJ5aDwUS5RI2ZIEAEVGpogpoir9BVKABWRGyUQA1nBWBq8tqjPw4MYoNCogQkaImpbrXaHcBVbAxJrQnIALquCD62rJPLAYDGqrVNGR6OxvoDBOJJMp01gDMxlgwc5ur1EGCoOp0USkVbvMpYSnUw51huMN0HHTGls6ABChp0xGrPd1ffJZWHk50OwVclwPVJU-btHr7C7xh7aIHiB0ROuBDg9CIw9HNcOE7ApX35UYgmROgAGjPAfudlX6NkQpZAuiAgCNAa2SbJ0kbEo8h7PIlybPghBECZDng4QwzWBoolIKJv2gNgTiWUc4Agz5rluagdzASFRFQEhXXGQ01kgxI1V0EUTUqBimw+VAQUafhxwyK1j1EKJRDuOAwX4YjPhHQSZDEHtNG4QQ4C9OThIebMjTAEkyVbN9dIpBVYJkkoxJESSKIHJxKn6IkWTRRidEXJzSyiJTGAEoSxFE8TJOkz4CHUhTDg82gbhENTvI1diCmvFc3xXKlEp2WwkvKBcTNM8yJPIfi2JbRyuPWFzipKNyt0rMdDgqisLyyj562YUJ3JYLz5JEnL-KckoguixSWHC+hIr6jrNP6OKAUqJxXzwXswAHcksAAaSwAAmN8yR2FwAIaz4uryiitp2pzSpk113U9LtqJIMSkJ0DsAo+azbMqeye0enr1guccAU-asRHICExBoiAxJ0dgdiwRQ5rRIkWA0bhgZusHdGJaHjK+koRG0ah7onMrTLRf6fDgIGqNB8HIYx2GdIR8LyIp260aJGm9tM+bKlCYbdHKdc4CgKnKnKGHtKJRgiGRa7RC0Xn+cFlmRaKjmSgxUyztM9kNicIU1w3LGdB+q8pu5kQdD5sSFYh4XRfmtkiFIHQnCU6hBAitG2ScGGNY5nG7nxp6icBKtSfJkHmYhqHbbRe3Hed5T3Yhz3o7pxhEcZ8PUYh1nRYNko4YlqWxBl7RzflqmiSV2mucTi2BaFquDbVmSfc+JlWQ5D71wbA2jZHAFxcl6XZbLy2K6r7Sa550f67Rm3McJj4-bx36C6H4uR7rq3iQnznTblse593mOHadl23en9hk7NRfnNOtY1cApRaG3dhsgJUENG0awbCKJtRCyBAVgpR0DsGAgAEkELQAoECxKMG0P4JQiolBgEVJGIAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_coxreg.Rd b/man/tm_t_coxreg.Rd index 95cbe8eb4..7915e7152 100644 --- a/man/tm_t_coxreg.Rd +++ b/man/tm_t_coxreg.Rd @@ -246,12 +246,12 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpQGI3OgGK1Go0jpwAB6wqCLungC80TGxMRF2ABa6waEiOvRw1EQA7jq0ohlQonD8OiQ6pMk6gqKC3DpoqIxEUASJ+RCaRNSatBAA5joEjHBQGhVExglQOswQ-EQwOgDCACIAkgDKKzr848VwAVALlckQc2bKQ1W6TXSyExAYrtCMMAD6o8YfxDCo+iMdH87CUOh0AEEVrYIVgALLrHSRHTA0igi7guZwYxInQKMCwuE6ABC+NwYMxfwByIIoIJ8MhZLx9KJK3xigxcnJGMJuNR6MxWJxyPxxMQOgACtQ2nB6EQyRTwVTcbT8RDxWtGIIhgANJn4lbilZLej9caWCDsikcjlKfakWaGSpjagfe1Qax2g6AnQ5WhVfrsd24HQgCkQtZbAAyPtIMAIH2CHyg-FE1HDa1sticsfjiaCyf4pHISgAvhz3dB4KIgwcbE7VQTI1H9U2sy4wByAFZEfofADWcFYNfd9aM-GxUGEpF+-AKCZ7fcHw+AldgYlrDrkAF1XhHoz73cBgGrm-jt7uIBH24eDsfT+3z5elE0ff1-QK9t7kcGKXwhCIhTIv+wgboqlSfDOxBBKMAyfoK0qZNQuIGkQQQ6FgcADC8eDgeCa7wChbbZgqGKCiwnyaCwKqJL2BBiB8JQiOopTsI2hKtoS6ycdCXFrOyIZqvCAl4Y07xfNivxLNSYmfN8Un-NygrgqgLCwAQZQ0rRMgMUxcAsfw8HKVR1CCHAvzafRNbXtmglgBKsIQgi-F4MyDlYE5AnMgA8ls+KiVyon+MwDofFRjA0XRulZPp5CGaJSp0is3kOAAcvYACarZbPYEIwgAjNluUwgATF5+I5R5BX+WRmKBbVSpEJoYXUVpUWiIxMUGUZgrsQA4h2dnEnCWAANJYIVrmiiN41lVNYBYE4fUbN5qWTVyzIQgNNXKTo9W7TA05aCwtDjLoyL2M44EcuCNpKLQOLsP05BqBo2jWDYYYYqIiT9KwELoOwTQACSCLQIYgyUjDaIwHKlkoYCltuQA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } \item{example-2}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpQGI3OgMpxiEfjpwAB6wqCLungC80TGxsRF2ABa0ojoa8Lg6UDqirGSJcBoEOqhQtIw6RMY6AIIAIra2TgD09V4AMjr8UKTZKSZQTDI9cAHGRBUAwkRBOoxwAObzoqKWEAkA7gXzabRiWf4lmtwA+vCkiQI6MD3kjBhKdEwsHPxhrIyK6-492YZpcFO3V61iUwL+Rg2tAutAg7HBmRASh0tQaTX0RnBGGMzHg7GRKO8tgcdQAmgBJOo6SI6BRgdoOAByAHE6bgCSiagA1GqdGkEdgAFkyAGZMgBGCWZABMMtFUp00rk7IghJ0k0ZXiw1J0AslOn1+oADArjZkTTojcqObUsABZSZUmnGKDqCb41Vq3XsC2G03mgOW83Wz1q6iDODUVL8-FgGr22ps2lxhMAITpXzVIbVXicAA0dS63YwPV7vRaK4G-QbTdmveH6JHo966QAxJN0u0Zm11lHkzW2Quu0jugV0moduOT9N4ZMzzLj6eTiezunz5MruS9nKkRiwhaiGqiVvDibN1u83MEzOoxpODFzeiw-jsep3zJvpoftFOb93m+fve-xQKIJwaPQ9AiK+P43qIhQYHBozsOKAE-gAJP2XiDv8oihFBgEYQOqF3mhNTMkBRi4TAYRwOwcEAI7sAArJkADsLE6Exyo5LQABeug0hAjBEBs0H-pk8xhK6Al2I4TjEU0aEOF4DipgAUpSD6lKI5CxqIgj0Em4qIEJIliU03EEZhtiZHBqA6nSBjdp6BEAArxjUdoPm5HkOlS-x0gA8l4dIEm0nQ4QZcGkKWhKASqapwSI6g6mOYDKapGl1JOWEkhS2Wrimfk5fmk7Wcu5HOSiXwAL5fGCvzQPAojwr8Nj-Gl4XLj+zkAFZELCJwANZwKwLXgu1mJwC6wikCcBD8CkBAnP1g0jWNwDgk1Yitb0cgALquBA4UPuCwDAOOdQdHS+2HcdP6nb852XXeN13QkAAGXDUB9WToHQsgaCQCQGKDYPgxDTkQB4OiMkQ5BpIkPSI7o2rEPwujBKgEzkAE9CsDoH1eJcGw6Nq0wY79-BEPsEDwzosKSIIGMo10vwJKg8wGJzRAEGIqwQAsGA6KSRCCDoULUNQOgQHAoxpEQurzCMrPgtFWSpIMRDaDojbjPMCSMGYygLKzWM4-LaMCHADzfCwMAnPMxjzUQ1EPnQOmvvajo6h7MVOw5RWJrOxBuzG45phmW5HWg9n-LC0KxeCOoIgSfBCCIzbp8IO02qQDtzcQQTzAssVhhG0s0nS0yzFgiwPHgNooltsAyS9TRsk3WSMA7xwVPylwyGIJxJb4uPsJ13sFdxEfFWA24ovbjvTS7Yfdw7Tur6gCVeqUuILalg986Bo-qEhXcosc1CCHA81Hzt8XJu5WCeY6k7P55GYLmAwWhaGhILx3MwXoJw+6HwGsfEekYx5ITSuVeemRGQOHaO0QBxBNCgJYOAoeJ9oFnxfGlXMeYKouAQcmIhX8u4wFmloFgtAVY0nsM4Hs14lBfFoNUdgsI7jDi0LRLcOgkSelEMkCArAajoHYLHNCghaCZGkXBRg2hPhKBqkoMANV9pAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_events.Rd b/man/tm_t_events.Rd index cdf1df18a..17c6c97b2 100644 --- a/man/tm_t_events.Rd +++ b/man/tm_t_events.Rd @@ -140,7 +140,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOzMpyKSssrq9zglAF9FCCToeFFE0JtwgnYFMByC6ZTpnObp-oArIni-AGs4VhGk8aN+OGMoYVI-An5aUTL1zZ294EHYMVHPOQBdVwhZwvCksBgIs8vlpp9vr8mi0AaEgSDlmAIT80KgivFolMIBkkjoALw6JK4Bp8IQiUT4nSk4RvBoZEp+C5wbRkEZ0jI6ahQehwaiUxb8bSMUS6Jws0h2bkiebsnGhIa6AkIlx4WU6FgwPyaFiUggxDYEMR+EUidRwfjsSaLLAAWXmOmtNoAwtkVgsZra3WrqNQJQS9QajSa4GaLWqMgGZGJKdrGLQpXBLvqoyMlk4UlaZk5bE5PXgHVnsk4nQB5V1gORyYnYjm14Oh3VTQvFssrNVVtUxX265OG0TG3kh8hhmu1iO96ME2Px+giJOB1PQjNN5oAITLuQAmrl7YsnLkS06Vh3R2P68P+Vn13lt9N29Wx+r+PxGURPHyCfZnA+x8yKBdSFYVBFQLGohRFHQ-zIO9T36DJ+n6WhjB0dh4nINQNG0awbDSGtRDiCBWEydB2FRAASQRaBSciRUYIV+h6JQwB6T4gA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_events_by_grade.Rd b/man/tm_t_events_by_grade.Rd index ae40c65ca..492febf7a 100644 --- a/man/tm_t_events_by_grade.Rd +++ b/man/tm_t_events_by_grade.Rd @@ -138,7 +138,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEPxQpFD6RlzUAPpBIdZKMaGGOgDutKQAFrQQ7Am4OiBKOjoAggAiAMoAMmE6pDAEkXAAHpFQ-KLUhTrU9NSirUG6ScRR1FD0cH2c9Y0tbVBwAUVlxU41dQ3NAws6AKQAfLtdRTCCIeSRtMbstOIE6SxQ6qp5UOLGT6RE-joAxADkOgmOgIqhCWR0RGMOgemiyAHMTJ9vqIuiNImMJlMVk4bEken1tnAlABfAIJaDwUQ5YJQPFGAjsBRgMpVZl5Zk45kBABWRCykQA1nBWNSEvSdPw4B9hKRIgR+LcGnyBcLRcAKbAxDSQnIALquCCs6pJBLAYCciqVZl6g1G0qrGpmi0sh0uMC2w1oVA1LJpJkQIoJHQAXkltNwXT4QhEolDOmjwm1x1qMEicrg2jI-XorEi8OYUoDRRL3XGk3jnP42kYol0TizpDjuZ0AHFC7pbOMROyU0HaZTdGHLate4HSzoWGnNCx4-d+aD+nWRM9+OxGZysABZdk6TdbgDCpW5HJZ25Pfe61FIc-SC7EkWXcFXxYnRXnMjE8ZnjFo3bg8p3p+1I4nkG4sk4thOOeeB7hBpROAeADyx5gHIciRuOb5Pquc5MvBiEodyl4YZe6TXre95LpMz7kGul7vkBi7fiwf69ABH6LuwoEgvhqwAEIoeUACa5S7pyTjlEhB7cqRWETjhdGVhBgkVKJzIkZhb4Fm0Q4gkxD6KXA9HyaWnFfmGP5sSIgFUdxbpgXxkFIQAGq2WDiRB5ROAAarJWlvjoRn8Mpqy2K57kaaZOhLCWsUBAEVw6DcKhqBo2jWDYBTjqImQQKwxToOw3oACSCLQrzoCVdaMDWAQkkoYAknqQA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_events_patyear.Rd b/man/tm_t_events_patyear.Rd index 949e677d7..31d84b6cd 100644 --- a/man/tm_t_events_patyear.Rd +++ b/man/tm_t_events_patyear.Rd @@ -171,12 +171,12 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeWlTra2TnUNTa3twXCk5DoApAB8sz0lxrTU5IzsAAqlWKUAsgDC5XPZszoE7Apg-YNOAIzXBde3QwBMTzovA0MAzNdyGwLJYQEolGCCULkdi0UTNbRkHQAXh0hwAcpUsMiUQAGIGLZY6CFQuDsCDwiikUTInRQcTZcgAc1UMLhcARpEBSgAvgE8tB4KJcokbMlLi8qtVPhLXi4wAEAFZEbJRADWcFYQryoqM-DgxigwlIUQI-FhTSVKvVmuA-NgYmFoTkAF1XBAKjU6nlgMAJTVrs7Xe6+j9hslvb6biG7gGg26AMQ6e4YHQAITpMh0ThasB8cDdaFQdWy6SuoJ0eRpeVwPT4QhE1JRdeEDsJDSixvZlLhqBCrDgLDLYLB1Cg9Dg1Bp3x0WBCulK-AVglE5H4JiIjB0WxCtEpBgAmgPGNTSqQZ7DVXYxyInoSSnb4FOo7Lb+XhywYFFNCwaQQMsqCDEKJRAnOB1Dgfgh2HME-wAsQaW-RhaGvOATX-GQHQ9aoCnFG4sH2aU8KOcoATkGs32gkCRHAtcURefDjmuO8dDI5iOn4DsiFCScUXsZxyOgnQuzIOFEN-dDALhKiwNXKDBNgjDGx0RDkPoEQ0LgoUKllZ5IApESAQEwSdGkmin3JYSqVfYyTFoFoIJpPiXAokpWJcnRe2YRpaIuCSgNM2TmJKBTJIQ7hBFQkLMOjIZdJ2PZiMI+KDkMoKTNAsy6JuUNHjAZiAmHAqWKUAJaGMHQYRUNQNG0awbCKctRCyCBWFKdB2ELAASQRaAKLqQMYbR-B5JQwG5Z0gA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } \item{example-2}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeWlTra2TnUNTa3twXCk5DoApAB8sz0lxrTU5IzsAAqlWKUAsgDC5XPZszoE7Apg-YNOAIzXBde3QwBMTzovA0MAzNdyGwLJYQEolGCCULkdi0UTNbRkHQAXh0hwAcpUsMiUQAGIGLZY6CFQuDsCDwiikUTInRQcTZcgAc1UMLhcARpEBSgAvgE8tB4KJcokbMlLi8qtVPhLXi4wAEAFZEbJRADWcFYQryoqM-DgxigwlIUQI-FhTSVKvVmuA-NgYmFoTkAF1XBAKjU6nlgMAJTVrs7Xe6+j9hslvb6biG7gGg26AMQ6N4YHROFqwHy6NKZepQegiHSiHzpHQkJO0xgwKKaFg6GuMWh5kSiN1oVB1bLpK6gnR5Gl5XA9PhCZs04fCB2EhpRY3sylw1AhVhwFjdsFg6h5uDUGnfHRYEK6Ur8BWCUTkfgmIiMHRbEK0SkGACaK8Y1NKpH3sNVdibcCehIlHa8C7lGsoAT264sFW9Y0gQGTKgQYhRKI25wOocD8Gu65gvBiFiDS9aNvmcAmghMgOh61QFOKNxYPs0p0Uc5SMZUTgABoAnIg6QThqEiBhl4orRuwMXgXxgGxnHyoBOjcbJHT8DORChDuKL2M4PE4Toc5kHCsHCeRSFwvx6EXth2l4RR1IokRf5kfhQoVLKzyQBSekAlp2mFmhgmgeSulUhB3kmLQLSYTSGkuLxJTyTFOiLswjRCRcRnIaZgkWThVnGYR3CCKROWUdGQyuTsezMYx5UHJ5sklBlF6gbKjxgLJATru1clKAEtDGDoMIqGoGjaNYNhFD2ohZBArClOg7BtgAJIItAFItqGMNo-g8koYDcs6QA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_events_summary.Rd b/man/tm_t_events_summary.Rd index bfb694257..04b868d34 100644 --- a/man/tm_t_events_summary.Rd +++ b/man/tm_t_events_summary.Rd @@ -196,7 +196,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otQ6AKQAfD3FJTowgqHk7EPDOuW2ABIAYrUAvDqyonBRKRkUkxDT0wCEtOLQ7LNzszYAfjoKYACa97hTB-bOOrf33-sHNv09VLpDJRahQehwaiTMCVQT0ABWcHUMzgIQyOgWYIA5vcAtM8WVyqUnHUGk1Wu1gnBXL8OvxmtoyFFjNjRHVTOYNFZYjYir8SrE6oKAa8SqNxnA9gdhrYALIABSWUUqTiwOlWxJVauWq3uTzwoplCqVWCcKzKqrN6t1j2ehpKcsV1SiAHEsABWdUW2wAeQAGm7rXcwO67fy3grlbKAIoABgAjF7jqcoOxKjGEwA5UqyuQvcPTR1RuMAJiTJwwZ3Tpezufz0odkYAwnHE6tk5XUy2szmCfjXsRqIIYBBQeDIWzknRRKQpRGncrVV77pVVJZBGziWHpY6TVabVhISE4PwLdv50q3Z6bS7mPxdJ6twaC3ZI9WE16oGJaGOIVDYsAwArhm8a1vcAC64EFABQEwiBlRNhB4F5oaRbvmWqxfqIP5gn+0IPBgACcREkYRAD0ABapGkRalQAJK4vW85RN2bY6FhOHjv+ISAfcrFgWAkF9jowmDr+E65CEcjANA8CiOwg7DqOuETnI4F1FA4gEBkLBQOoqgKUQQ4juJ1CiMJsRDAAvjSJQAMQAOQ6C6FCqCE2RYjoG6qAY97GNkJ46HAjKkCYrIYEMFTEnUUUkgC7H8PSwUUKQzKsvEgS0psUAQNEmgsJORiyWI7CxdJM4sKQogAOrAuwxXyWVBT3Luzq4uBQwcVE+WMIVOgNaVRJOOVoSMFVtWZPVsAlU1wZFu1ShWQEeQDXkNjJAQ0IVDUzzBrFuJKPCRDZFEADWcCsPJa1CnAxhQMIqUEPwJxNEdJ3nZdwArdNV2JGpNJoKgdTZOkc55F6eRMXwQgiGyqzQ8IJWvA0USpclZCiFEojDjAnhztMKndDapT8NovW6E4IVsrCMC42w57TN98DLmA+3PtKLAwN1LBetpx0EGIWOQki5D8PjBx8zIYhej1tDgiIUSSwL8n3Nt1S7ZtqtYLKu1a7KTblLiKEviUGwiPpp7E9rPzSsb0oslAWLc4w7S5bzGT84LZsiye4vTEr0urLL8ubAHKus0Nu15LxKDZblzuiEhdsNt7FsQ4kMdfq7eUFUhwDxlB9o6OdcCoFERCMPejBeu8ThMfbtAtIFqwLKU1QqoayfTA7Ts9e037u57mOp6LfvDGHMssHL9AK2HW2R3gOjR7BXU9YngnIfXBwj83S8Zyv34J3nBdb9MJdlxXVc144ddF-5TeWxibcdy+XfDHSqNEKERN2DfrwEgEAItBjA6HYNkcgagNDaGsLyIYogsgQFYKUdA7BAYABJBC0AKOgjYjAyYBBshAMAVlwJAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_exposure.Rd b/man/tm_t_exposure.Rd index 9397145d2..666ce48ba 100644 --- a/man/tm_t_exposure.Rd +++ b/man/tm_t_exposure.Rd @@ -162,7 +162,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeVOABp1DU2t7fytrhAlonCkGDNw-OwAjAUA1tn8OgC8OgpgALKqMxAQcAa2aaLkjPsBJdRQ9HDUonXE0Y-Pr+wVAwXGWjUag7HQAMVK1UqTnuvQGdT+gwApAA+JE9Er8WjXbLqdgOSoOABCACkAJLlAoYNZwOCodrA0H2Zw2VHoqYlHQwQShcjsDGcgAKpSwpQOAGFyqD9rZyg4sOV9rgBSVhaKDtKwAB5bTMRlCZgaEg6XJQViiRR4FVlABqkNBolgPjg7BaDrgAEcVgUAEwABj9cgKoloAC9dLsckGdIw6Y8CBG7I4YcqOZzbZCHJrymbRPsBay0QL6JsoowiClRL8+v1YR8ol8XlXETZko3XkoAL4BPLQeBVvKtowEflgCo1JV7Mc1u5KABWRGyURp5tNoSHOnGxigwlIUQIWNETQXS5XomAvdgYjXUDkAF1JmhUHVsul+Ry8qC8qmSnwhCI3l2P9hGvAUGiiPdWlQIhREEWN33TB4nhebM4JCSwpiIYwdCcFpoNg2M7CeEQlWtS94E1RFSLTTlUBYWAD1BAgMkXBNRCiGYRHURYEMQkpmNYsRQU0bhBDgfcWJka88mAYB9iosA7zvAp9jVMVJUnVSRTFO4fz4nROLgbitl2GU5QVfMaJKINrXrehWCiETGCYyS2I4l4jPIJZrX41yhN2JzaGI8SBKkgdElk+SZ0U5SDMEegZlIJjR2hfpNLHLADjuGyrM5QzjM1VLLL4nK+PLFIonsxyWBcwT2PyrzeL40K2OElggvoEQJLqm9IunAZ9iU4N4sS5L9lFcUXDwKcsCcABxMktQAOWWdLKnsUpbFKVbpv2IqwDkUr9IaxZNQmqbrSO9M6MYWQkt2FqxHcrjGp8nRHsAnQROoMTurC3q5P6tKYpUsA1XFTafV0t6TpMqdykYQQAHMymKxCrs5Dp+AgohQhBXYIShFwaNhI7AWoG5QUiDi6DYzg4G4GmpNHcdqjW0owTBNnpthzUAE1sqUAJaGw9hshuKALG0awbCKDlRCyCBWFKdB2CfAASQRaAKDWZkYXUAk7JQwE7O8gA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_logistic.Rd b/man/tm_t_logistic.Rd index f4c02d4cc..cf2d024f8 100644 --- a/man/tm_t_logistic.Rd +++ b/man/tm_t_logistic.Rd @@ -132,7 +132,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeVYlXUNTa3t-IyiOgCkAHyTPSXGtNTkjOwACqVYpQCyAMLlU9mTOgTsCmAAQk6V-WsAkucF53cAcgBqTrbncgEAvgF5aDwUS5RI2ZKnc4VGqPHRQvqVb5KABWRGyUQA1nBWCC8uCjPw4MYoMJSFECPxaKImqj0ViccBAbAxKDQnIALquCDQ2rJPLAYDwmFgdmc7kIur8wVgCr9c6irksGBRRhE8lEGCoOp0USkM4QEqlXa2TZ7A4AXh0Or18x0quMOktUKw2x0F0etuImsdJzOMpdZVhztduyRBp0clwPVNPut+pKJXtPvOF0QOjW1CgBDg9CIHvDJS9WstkJlafKjEEAHMdAANINgXZp3Ya+jZEKWQJgAIlAIBJRoLXJbLpeM6PI+vJR8N8IQiCaW2fCFm2hpRMnUIhVqkaSEFhOZ+hwajJsDVLc7mQ6LBwKuq0SiTv5hMJpnwU+yxF4W0lJVRTQsD6BAZGi2aiFEojHnA6hwPwY4voWIEyGIPoAYwtBQPQIjkkhYHsJ+BSlqaDamvs3yRj+CaQSIMH8B+LrnJRFH7r+jDKva6repaf4cUW04IToqAsLAFJAbhYgQVBtHwQhwGgShloAdQghwDh8kggRcJgBsWxmg2Ok7N8-ECTo1HQeQdFOpc1y3A8YBMcZL7EJo-6ASW4ngWZ0mUYh6lAX6lROPWeBaaUADiLghSm2xYAA0lgACMDYXDF8UAExGT5plSRZp6BcFTG2j2EZKAEtAOuw2QrFmGjaNYNhFOGohZBArClOg7CDgAJIItAFN1kGMNo-hKL8ShgL87JAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_mult_events.Rd b/man/tm_t_mult_events.Rd index 2b1fdce64..7b44f33ae 100644 --- a/man/tm_t_mult_events.Rd +++ b/man/tm_t_mult_events.Rd @@ -127,7 +127,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOyAYQBZIpKyyur+AhglAF9FCCToeFFE0JtwgnYFMByCuZS5nNa5oYArIni-AGs4VnGkqaN+OGMoYVI-An5aUTKtnf3D4BHYMQnPOQBdJRrensDqIijM5rlbA5sgBNACS2SWOjmDlyDgAQgApeGIlYQ7K2Fo4sCtXJOACKRMytiaAEZKdSAEz0poAZmZABZ1konhAgYcvlA5MAVs1CXgkfNRXMfkUATA+aJXBAFoVwklgMLJYswD8-srRUV1ZrVmLdUq0KgivForMIBkkjoALw6JK4Bp8IQiEHOj3CT4NDIlPzXGBXcraMjjAMZHTUKD0ODUJ0SpokYgwaJQMg6FpwO6yDQkEH0Vg5vMyDyWO1NOOiEFZ-g6AAKjHOqlbjYAch8ltH7aFRrpnSK1ng+zoWPLNCxkwQYtsCGI-KJE3B1Hn2GD5lgxctty0mgiwHI95kd+s3XaYxkVwBHPzTxiz+cyJcrkTr-izYktUkU8Xvmu5CNsOP5-oixi0BUebJvYzgnuOMTUKQz4Lm+q6fra17XnOaHejoj60PGIg3C+i7jCaKRblStLMky4orNSbIMfM1KcseCFXthOiAZ+s7fjRdIsTR9GnkxHJclxMacdx1DIahr6iMuGHAVh3E6LhinJoRxFwKReHsJRGnfq02ROE0ADyR5yDJ6m8cB-FzKZ5lWZJ3G2deNT8MGRCeEmzpwU4l7cXAEbXKQrCoEOEqkK2HjwGQczRkMGRDEMtDGDo7DxOQagaNo1g2GkV6iHEECsJk6DsBaAAkgi0CktUrow2iMEM-RKGA-Q-EAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_pp_basic_info.Rd b/man/tm_t_pp_basic_info.Rd index 753cc1c24..35ddc5679 100644 --- a/man/tm_t_pp_basic_info.Rd +++ b/man/tm_t_pp_basic_info.Rd @@ -68,7 +68,7 @@ if (interactive()) { \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWolAF9FCCToeFFE0JtwgnYFMByC-uaAKyJ4vwBrOFYOpO6jfjhjKGFSPwJ+WlEysYnp2eBW2DFOzzkAXVcIQcLwpOBgftv+i6uIJTRUIvjovogMkkdABeHRJXDpHR8IQiUQgqECYSnSEZEp+dboPz0KCiGR+eLGIj-DIknTUKD0ODUeH9ABCOJkOgAkhBCf0IQDSWDQm1dKDnnl8uyUSTUB5aBR1sRqfywA5cg5aQApJnZYWc0maFhw0EEGLjAhiPyiKlwdRwfjErkZPUGsTwrWMWgUkQbfUyU63OQc60ZE0ic38eG9Z5YACy7J0zwA4i48FGwLknAANSP9ADCAHkHAA5ewATTTYCwmXTcZS-ScmdyuVstmGIoyzVJzZ0zWatGMOnY8XIag02msNjSnNEcQgrEy6HYXwAJIJaCk5ybGNpGM0GkowA0LkA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_pp_laboratory.Rd b/man/tm_t_pp_laboratory.Rd index 697ab4f81..527289156 100644 --- a/man/tm_t_pp_laboratory.Rd +++ b/man/tm_t_pp_laboratory.Rd @@ -120,7 +120,7 @@ if (interactive()) { \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOz8gCEikrLK6v5qeiUAX0UIJOh4UUTQm3CCdgUwHILZlNmcltnBgCsieL8AazhWMaTJo344YyhhUj8CflpRMs3tvYPgYdgxcc85AF1XCHnCuEksBgMs8vlZt9fv8mq0gaEQWDVmAoX80KgivFojMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K7oPzUKD0IjMUhcjgMjI6dn0ODUamzABq0W4okW-LxoRGuiJSOastxAoyqA8tAoV2IouVYAcuQczQAUgBJbJqjWaliwG7UggxLYEMR+UQiuDqOD8HG2gXO11iamaFi0Dkia4umQfFbNJZgAAKmSwmQAsgBha1gOSk9UBz0iH38MXJ1MZ7OzOU6PM1rXMGBOmNu0Qer0l-0BnRB2NUolhxgR+hR3ut9jxxMptPptb57s6Ive8ilw3TjPVgsCutbxm0eCoLZkfs9lvupedmsZMchgfhyNwaPBsaTnRggCac6vi47K7LOU-MAax3AMoAgIchmbZ922LFcuwDG8T0HYdRzPF9YUTTIADksAtLCcxA7sLz-Q1sNw-DNwDQiNSgMN-EHKC+xg5dfXg21ENDe8R0fRCJwwt85nFTIIVzeciN-X1-yEkTgLEmi6MEPwGKJRDmMvXdAzQzihwfJ8+z4lpMOkhwvw0jJiMk0jjMo21Bg1OzayUQZaGMHR2Hicg1A0bRrBsNJ1VEOIIFYTJ0HYdEABJBFoFJIs9RhtEYQY+iUMA+m+IA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_pp_medical_history.Rd b/man/tm_t_pp_medical_history.Rd index b79e2b760..cebbb255b 100644 --- a/man/tm_t_pp_medical_history.Rd +++ b/man/tm_t_pp_medical_history.Rd @@ -90,7 +90,7 @@ if (interactive()) { \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOyAWQAJIpKyyur+GBilAF9FCCToeFFE0JtwgnYFMByCuZS5nNa5oYArIni-AGs4VnGkqaN+OGMoYVI-An5aUTKtnf3D4BHYMQnPOQBdVwgFoVwklgMAVnl8nMfn8Ac02sDQqDwWswND-mhUEV4tFZhAMkkdABeHRJXANPhCESiIk6CnCT4NDIlPzXdB+eB3WT+OKiUhENi4jJCnTUKD0ODUGlzJpwTncHQte58thLRlC97wKXzOGqvHCnSoFgUUijXTE8GLPBqjKGjTGm5ESXmsAOXIOABCACkAJLZXX62kxciMGA0ggxbYEMR+UQSuDqWWCgM6cORsQ0zQsWhikQ3CMyT6rFopGbSlq2JxYJrrORkvUB2MiBP8LWtCtVubWnS1ru9egCUSHMP5qOiGNx5tJgOpgvU4mZxjZ+i5mej9hF5ZgVrugDyeQAmrl1nXkzpG-HyC3ndu97lD5360Ke4+Mr07ryPMO02Pz5OuxlV3TecsxzOA82-dc4U3Vpsm9XJbEyWxj3-M8J0vVsWlg+DEIfAMhmFfDuyUIZaGMHR2HiYMoAsbRrBsNI9VEOIIFYTJ0HYDEABJBFoFIuNjRhtEYIZ+iUMB+h+IA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_pp_prior_medication.Rd b/man/tm_t_pp_prior_medication.Rd index 8d6d80c6c..9a523d3b3 100644 --- a/man/tm_t_pp_prior_medication.Rd +++ b/man/tm_t_pp_prior_medication.Rd @@ -103,7 +103,7 @@ if (interactive()) { \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEPxQpFD6RlzUAPpBIdZKMaGGOgDutKQAFrQQ7Am4OiBKOjoAggAiAMIAsmE6pDAEkXAAHpFQ-AQwhSWlAMoAMjV1Dc2t-KLUOgCkAHyTJrTU5IzsDj0OAEIAUgCSpVNZc2VVACSrGzulAUVHlcdVxT22pbbVSTfHD08vXe-3TgByz1eRnexQBQKUAF8AgloPBRDlglAbEkCOwFGAyv0MXkMTcMQEAFZELKRADWcFYCISKKM-DgxigwlIkQI-FoogaxNJFKpwFhsDEiJCcgAuko2h1yZTRDU0RjHg5SgBNXY4nQYs5bNV4DWYx4Q3UYqo9JwARXVeNs5QAjJbMdaAEz24rWgDMLutABYCUpuRBpVThcjgHiKpUXeGMaKapKYIHRK4IFiBkkEsBQ5jen1o+Lk+GaunM-iwKK8xL0DUsml0RAigkdABeHS5Lp8IQiWXN9vCIVdIp1SIs9CRVCMSyMSLwdmyDRWftFHTUKD0OATZsYgAK46IjB0lTgM+ClggOIX9aRcN0G6zVTPdcXRVQLAopCvTb1Kfvj6fx9frKIdc9S1C5vx-Y9GDXD8CHSEkCDESJRDXOB1EPWsf0XGC4LED9NBYWgVxEVlYJkIUblxB1tiwJwczAORcHPRckJEVD+A-K0qJojFGPoxiOnpYg2ObLDSNERDkNY9CMJ0ET4K7HQ8PHQi4GI7CEXIvUqlKJxygAeVKAkGIfDDmJQ8ghM0yptL0gywB4oyMI6LJ2mgki5PEljzKkxy3Jw5tFII+giNksjwwoqptkBcpDMYopTNY9iwAiqLuOMxdeLSooOlEUh+FYVy1I8sy0NimTfPkgLlNU0T2A0vEDWVGLMqYiTzMSz4VVSjCrnSroAgCWhjB0dgsiWKALG0awbAKB9REyCBWGKdB2DQVBjkEWg8lW44kMYbR-ChJQwEhUUgA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_shift_by_arm.Rd b/man/tm_t_shift_by_arm.Rd index 7ee3abf7a..2105c4889 100644 --- a/man/tm_t_shift_by_arm.Rd +++ b/man/tm_t_shift_by_arm.Rd @@ -146,7 +146,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOynAHEikrLK6v44AHMlAF9FCCToeFFE0JtwgnYFMByCuZS5nJa5oYArIni-AGs4VnGkqaNu4yhhUj8CflpRMq2d-cPgEdgxCc85AF1XCAXCuEksBgCs8vk5t9fv8mq0gaEQWC1mAoX80KgivForMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K6iOLGK70VjVRgwHEZfk6ahQehwajUua5NmkHScrI8uzCkRLBn8t7wcXzWHK3ECnQsGB+TQsakEGLbAhiPyiUVwdRwfh83UZI2MWiKuDXM0yD4AlKiQT0a3SokzFZYACySx0YfDAGFsus5KSdU7rSI7fwNZkI3MVRkk3mdKgWLAbiavRbRFabRnHU6jdRBB7TeafbDlmAAArZzJxhNgAsp3Vp23kTNEuYACSwuaH+eT9bu0UNxpDFctI9rhed3Cbntb41WzQ7mQAagBJXLn2zrBdOnSbscazsAeVytgMACFMrknPlzwAck4OjhoB57hg4kZgIWg5OlADYrow5YHtW6ZjnWuoum69AiPu3qHu2D4BkGWYAVggH9rB96PvapHkQB-Z3k6xi0BUtFEvYzgwUx-L0FAabxB6LrIfhqGjvaGEClh7p4ZW7BHn6xFwMG0ZgJ+ZEUbe24PjWT4TmpGkMdq94mKx7F2I4LhzjoVECoI1oAZkGq0OcECsLOApDPmShDC5OjsPE5BqBo2jWDYaQ6qy8SsJk6DsOiAAkgi0CkiXWow2iMEM-RKGA-TfEAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_shift_by_arm_by_worst.Rd b/man/tm_t_shift_by_arm_by_worst.Rd index ca9e5b9df..85a7b6517 100644 --- a/man/tm_t_shift_by_arm_by_worst.Rd +++ b/man/tm_t_shift_by_arm_by_worst.Rd @@ -146,7 +146,7 @@ if (interactive()) { \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOynAHEikrLK6v44AHMlAF9FCCToeFFE0JtwgnYFMByCuZS5nJa5oYArIni-AGs4VnGkqaNu4yhhUj8CflpRMq2d-cPgEdgxCc85AF1XCAXCuEksBgCs8vk5t9fv8mq0gaEQWC1mAoX80KgivForMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K6iOLGK70VjVRgwPycvwRIiMUSkHEZcU6ahQehwajUua5NmkHScrI8uzSkRLBnit7weXzWHa3ESnQsXmaFjUggxbYEMR+USyuDqOD8MWmjKWxi0TVwa62mQfAEpUSCehO5VEmYrLAAWSWOljcYAwtl1nJSSbPU6RK7+AbMvG5jqMpnSzpUCxYDdrYH7aJHc78x7PZbqIJ-Ta7cHYcswAAFIuZVPpsDl7Om3Mu8gFolzJwp5oASQAcrYByXJ2Ws57BcKrsYpT0-N66z3G9OWxWvSxffQRAGL+xVs0UjGwAB1ADyWFyAAYACYADEITwJMv1-ACAEZQIzXdPR0K9ZwNH8-yAuCwArCc9yFEU-CPKAenPINL2bWdW1NdtOyfUiXz7CC0IAkCwJwxDkLdA0AE1jUQkxaAqTiiXsZxsIQiUoHbU8rWjesHQ490bx0b170fbs6Nfd9ZnmAA1TJ8hTRMVlXLA1zHOQ2JzcihIgzI9IMrdPUs8V6CgXN4n9M9ZIvJs8wopSVL9WiG3olotLmAAhTJckXIywAikyzPgpSFINKKYsMrDtx0ZyMkEJ1V0yA1aHOCBWEc8UhjLJQhhKnR2Hicg1A0bRrBsNITVZeJWEydB2HRAASQRaBSQanUYbRGCGfolDAfpviAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_shift_by_grade.Rd b/man/tm_t_shift_by_grade.Rd index 5b696564e..0b5a04984 100644 --- a/man/tm_t_shift_by_grade.Rd +++ b/man/tm_t_shift_by_grade.Rd @@ -166,7 +166,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOz8gCEikrLK6v5qeiUAX0UIJOh4UUTQm3CCdgUwHILZlNmcltnBgCsieL8AazhWMaTJo344YyhhUj8CflpRMs3tvYPgYdgxcc85AF1XCHnCuEksBgMs8vlZt9fv8mq0gaEQWDVmAoX80KgivFojMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K6iOLGK70Vh+ADmzFOOIygp01Cg9Dg1GpswA4nzdPlRURmKRFawsvQIIqYNxoqrbKKRIsGYK3vBJXNYYbcUKdCwYH5NCxqQQYlsCGI-KJxXB1HB+ALrRlna6xNSHYxaPq4NcXTIPgCUqJBPRPaQnTM5lgALKLHTLLMAYWyazkpKtAc9Ih9-DNmSzsyNGRLDZ0qBYsBuTpjbtEHq9Vf9AaDsapRId1EEUaH3fYK2aSzAAAVa5lM4Wc7Ml1gV2tSwGMhXveRq0TlvlbPWy4Km5eMhFFaIrsYRdz7Y6iVP3Qf+83A12Q6OWAjegRGjYMxlnBMkxTNNZgAdSlLB8gAeQANQAMQhPBczAeDEKQjD1xwhCAAkAEl0Mw+dcLIgiwDka89x0L8jxgoi8IotZmwY6070YB8-CfKAX3iW5ZGVRhOzA3tKyPAdrTHCdQOHGdYSohDkI4ujdz3ZjfTNABNHNjFoCo9KJexnC47ShSgCB-GVCpeRqKMw0k4dpMPX05KFD8Rx0MMgJA3yVJaSDkzgVN33TTJbCQgANBDi2s61dOPHRpmWWKEqwHcfxMEyzLsRwXBvHRuKFegoE9ZkiEc2VXwk98-x7VLvMFXzQ0AyMlOnCCmKgiLWOaLLEro8qUr7FiotmYb4tG8ahWM0y0oskqAwWm1+H4GrPAlIk0MyfJcjWq8Gm44zqHIRrijgbgPToadfHu2NovBQjckyNDaITSbCtmQyxqUQZaGMHR2HiK6oAsbRrBsNIrVZeJWEydB2HRAASQRaBSDHPUYbRGEGPolDAPpviAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_smq.Rd b/man/tm_t_smq.Rd index db6ef641f..30ee27e5f 100644 --- a/man/tm_t_smq.Rd +++ b/man/tm_t_smq.Rd @@ -145,7 +145,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOzMpyKSssrq9zhXCAzoeFE-eihRAGs4UlEigHNGOFR2BTAAPXZcgFkARQAfAGFNuQwAKgA5TPWAEiWU-rF2HOa5FM1uQV0AXjtHJ0VenVvBqJiKgxDM5gslssNptjrldlc8P9YHcHj9nq8Pl9nL8GgRBsMxhMpuECDEiDIxH5RHAROo4PxFn8MqTyQRQZ8XoxaFB6CI-CyKaJ7k0nClRIJ6NTSDpPgChiNxpMng0MtTaeR+DKkQN5YTJg0cX88VTgaCSWTBVSaXA6QyVToBWyphyWNzeXB+RancLmmKJVKtXKgUQQaJlUydGqbRrA8jAabRLh7cZaBV6Vr7M4DUoAL6-JIAxKhGwkxZgHIFa46Jaopa-ABW5IgfnGrCFSRLRn4cGMUGEpH5-FoQL8jfiLbgbeABbjRc8cgAuj00KgivFooyMkktUkk38+EIRM6dAfhHd7SU-APRDAAI6bjKP6g8mlamv8bSMak6JzaMhTehWB0aE7B5ERrntLdQluN9yxFCCIwyFgYD8TktUdSko1tB9H0fDDj05N0+XwucoGAYAazyfIlgXBc-UlCZ0LLTIsHWKsllyJwAA063DXDcKwmNPhrVilkgnQ+P4mp+CvIhPGoLUADFMnyTi934nQCUVY8knIpZjS0okaLo8Tg1DHdQj0wh4xDMRjPU-jqGoaVPnwq11XpHD+PwrVCLAj0SN0ii4OaezI39RjXOYpxsicXYAHlsl4hyNME9NhPLGK4sSsTEIk+1fgyX5floYwdHYeJyDUDRtGsGw0j+UQ4ggVhMnQdgVwuQRaBSTrqUYT9fhzJQwBzBcgA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_summary.Rd b/man/tm_t_summary.Rd index 77bd32644..89fda84b5 100644 --- a/man/tm_t_summary.Rd +++ b/man/tm_t_summary.Rd @@ -126,7 +126,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpQGIdABUZxULKBokOkTGOqQAFrrkoqQ6sqK6RoIJOgAGTgDyAMoAIgCaqTpQEPxpOQDCWVhOAIJZhZostFD0IqJhRDr8cHwQMczkOjC0oqK0EADmXQFQGEr8M-pGXNQA+gukUNbzi4Y6AO60EePsG1C4OiBKOjo1OVkAMkthMASrcAAeq1D8otTXt3uDwAJJlcnlgABGAC6zwAcjVVuNyBNVKslABfRQlGbQeCiU4zGx7AjsBRgO6PcnYgBWRHGqwA1nBWASzsSjN1jFBhKRVgR+CM3nSGczWcAznixITNnJoa4IJSnnszsBgOSleTofKIEo0KhnuMjmSIDczjoALzTTa4AF8IRtS1DATCaUAm6kGCrPmiQQwGAsDjum46agtODUJ3knI9IgTZiocIyOwtETk22mkNm3GwXRWjVA9PBm4sL2NRhOgjhekEMSrBIidRwfjsUkarAAWXTOnbHfKOWpF17g+LRX4-G9RE2kat9mcGazN19-qaAC84Kty+0rVWa3WG3Amy3Rzc22Ask4ABrd8lYGrlFx4HtgABCHawAGksAAmG9gMH5H+FRVLUWR-jUADij5yAui6nmS55Xn+d4PtSo4waOyRwAiUZgLQ3IQKw5LBtiNzYti+E6OwyKqFAFjaNYNhXJmohJoRNToOw+rAoItAXNxCSMNojDYhiShgBi0JAA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_summary_by.Rd b/man/tm_t_summary_by.Rd index cd59a51cb..b0a3a68b8 100644 --- a/man/tm_t_summary_by.Rd +++ b/man/tm_t_summary_by.Rd @@ -157,7 +157,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOz8gCEikrLK6v5qeiUAX0UIJOh4UUTQm3CCdgUwHILZlNmcltnBgCsieL8AazhWMaTJo344YyhhUj8CflpRMs3tvYPgYdgxcc85AF1XCHnCuEksBgMs8vlZt9fv8mq0gaEQWDVmAoX80KgivFojMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K6iQQwGAsVh+egcBkZHTUKD0ODUamzXJsjlsHQ8nRYIgRHQAcUYREEqCptiFIkWfLxoRGuiJSOautx-IyLBgfk0LGpBBiWwIYj8ohFcHUcH4OItFodTrE1NtjFo2rg10dMg+AJS02WWAAsosdPGEwBhbJrOSk82+nRukSe-hiuaJ2Z6nTZis1fjMoieUVE+zOHN5nk2lhUon+qOiV3uos+vM6HvOrs6YOh+giCMBsYrZqxmZgAAKmSwmSTeBTcwAagBJXL72xZ1vDgse8jF7vLzIHo8nsCDPNV3P81nsli0ABe4eD49HF0L0HCsMkA8dJzDWde3YBcl2WXdMghbdZjTAAJJVT1A-MByve1b0Q5Dn19V880EN0ADlMhLWhzggVgzTzVAWFgG57UjMd+0LK8hzzcCg24QRw3A2DYSWVd103DNk1mNcNy3Ujz1wr0SyQx8K2IjJiMGQZaJ0dh4nINQNG0awbDSc1RDiejMnQdh0QAEkEWgUkct1GG0RhBj6JQwD6b4gA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } diff --git a/man/tm_t_tte.Rd b/man/tm_t_tte.Rd index 576f3cef4..ddb7b873a 100644 --- a/man/tm_t_tte.Rd +++ b/man/tm_t_tte.Rd @@ -184,7 +184,7 @@ apps implementing this module can be found. \describe{ \item{example-1}{ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOzbWycikrLK6v5SciUAX0UIJOh4UUTQm3CCdgUwHILZlNmc5pcwQYArIni-AGs4VjGkyaN+OGMoYVI-An5aUTKtnf3D4GHYMXHPOQBdVwh5oVwklgMBlnl8rMfn8AU0WkUQWC5nC1tD-iwYH5GOcbkQYKginRRKQZhAMpkAMK2TJYACyFOyOgAvDoiSSGhlscZmTplnSdAAhRYcnTEfE86Z82lZRa8ub8imzQYZOS4Bo06UstmkjKc8482YCxA6AAK1CgBDg9CIwrJurFBJZkrmxuyjEEAHMdAANWWzCnGil4+jxDyWCBKhqDQZKNAE8LxaI6nRJHlJNV2vhCESiHlZ4SfEUlPzXHpwZO61lQehwagGsC2WjwOxEHRObRkOzVkS2ysZd7Nlng1a9vsYvyaFgSmLbS2iPyiWtwdRwfgVvuTxi0btwG4zmSfQEpZ0av3y+nZM+U6l0hlK1UiytS2aPnQPu2V8dc3HillfnEOhmfY6KgLCwLc06zmIC5Liua6vhkk7UIIu4EPuc7sCsLRLGAJo0pkF5nnhWAEUqQHAXKADyuQvh+urvsBxLMJ4E5Tk66HQYuIhweulabtu9AiHuUFjEeoozGAuROL6eBygKtJYAA0lgABM97kcBsxSTJr4MX2GjwH4qDbGQubsSJMHceQa7TAAjAAHCpKQqQALAAzKqOgOSpemVnAHbXGcDysYwkEHvOXHLtZvG6vxO7CeFmEojhTgAGoAHK2NkTi5Iq6waX2sxpZl2W5aOwHGLQFSrjy9jOLpIrKm+SiDLQ3LsPE5BqBo2jWDYaR2qIcQQKwmToOwcYACSCLQKRTYujDaIwgx9EoYB9D8QA}{Open in Shinylive} - \if{html}{\out{}} + \if{html}{\out{}} \if{html}{\out{}} } } From acedc7c63cf5278280327d143a8a7e8ff4f1e159 Mon Sep 17 00:00:00 2001 From: Pawel Rucki <12943682+pawelru@users.noreply.github.com> Date: Fri, 4 Oct 2024 12:44:47 +0200 Subject: [PATCH 4/4] feat: shinylive integration Update `shinylive` usage in `teal-modules-clinical.Rmd` vignette to use the `roxy.shinylive` package and conditional evaluation based on environment variables. --- vignettes/teal-modules-clinical.Rmd | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/vignettes/teal-modules-clinical.Rmd b/vignettes/teal-modules-clinical.Rmd index 4e4503f2e..5561bb2ec 100644 --- a/vignettes/teal-modules-clinical.Rmd +++ b/vignettes/teal-modules-clinical.Rmd @@ -90,7 +90,7 @@ shinyApp(app$ui, app$server) #### Try it out in Shinylive -```{r shinylive_url, echo = FALSE, results = 'asis'} +```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)} code <- paste0(c( knitr::knit_code$get("app"), knitr::knit_code$get("shinyapp") @@ -100,7 +100,7 @@ url <- roxy.shinylive::create_shinylive_url(code) cat(sprintf("[Open in Shinylive](%s)\n\n", url)) ``` -```{r shinylive_iframe, echo = FALSE, out.width = '150%', out.extra = 'style = "position: relative; z-index:1"', eval = knitr::is_html_output() && identical(Sys.getenv("IN_PKGDOWN"), "true")} +```{r shinylive_iframe, echo = FALSE, out.width = '150%', out.extra = 'style = "position: relative; z-index:1"', eval = requireNamespace("roxy.shinylive", quietly = TRUE) && knitr::is_html_output() && identical(Sys.getenv("IN_PKGDOWN"), "true")} knitr::include_url(url, height = "800px") ```