diff --git a/DESCRIPTION b/DESCRIPTION index eadbbafbc..d07fbcf98 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -32,8 +32,8 @@ BugReports: https://github.com/insightsengineering/teal.modules.clinical/issues Depends: R (>= 4.0), - teal (>= 0.15.2.9052), - teal.transform (>= 0.5.0), + teal (>= 0.15.2.9079), + teal.transform (>= 0.5.0.9015), tern (>= 0.9.6) Imports: broom (>= 0.7.10), @@ -55,8 +55,8 @@ Imports: shinyvalidate, shinyWidgets (>= 0.5.1), stats, - teal.code (>= 0.5.0), - teal.data (>= 0.4.0), + teal.code (>= 0.5.0.9012), + teal.data (>= 0.6.0.9015), teal.logger (>= 0.2.0.9004), teal.reporter (>= 0.2.1), teal.widgets (>= 0.4.0), diff --git a/R/tm_a_gee.R b/R/tm_a_gee.R index fdbda9a45..9b6ef1cac 100644 --- a/R/tm_a_gee.R +++ b/R/tm_a_gee.R @@ -158,8 +158,7 @@ template_a_gee <- function(output_table, #' ) %>% #' droplevels() #' }) -#' datanames(data) <- c("ADSL", "ADQS") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' app <- init( #' data = data, diff --git a/R/tm_a_mmrm.R b/R/tm_a_mmrm.R index 51ae98e9d..402e335bb 100644 --- a/R/tm_a_mmrm.R +++ b/R/tm_a_mmrm.R @@ -491,8 +491,7 @@ 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)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' app <- init( #' data = data, @@ -1402,7 +1401,7 @@ srv_mmrm <- function(id, all_q <- reactive({ if (!is.null(plot_q()) && !is.null(table_q())) { - teal.code::join(plot_q(), table_q()) + c(plot_q(), table_q()) } else if (!is.null(plot_q())) { plot_q() } else { diff --git a/R/tm_g_barchart_simple.R b/R/tm_g_barchart_simple.R index 30195436c..ecd8d463a 100644 --- a/R/tm_g_barchart_simple.R +++ b/R/tm_g_barchart_simple.R @@ -32,8 +32,7 @@ #' 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)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADAE <- data[["ADAE"]] @@ -421,7 +420,9 @@ srv_g_barchart_simple <- function(id, count_exprs <- c(count_exprs, count_exprs2, count_str_to_col_exprs) } - data_list <- sapply(teal.data::datanames(data()), function(x) reactive(data()[[x]]), + data_list <- sapply( + names(data()), + function(x) reactive(data()[[x]]), simplify = FALSE ) diff --git a/R/tm_g_ci.R b/R/tm_g_ci.R index 3da28462d..46d4ee865 100644 --- a/R/tm_g_ci.R +++ b/R/tm_g_ci.R @@ -202,8 +202,7 @@ template_g_ci <- function(dataname, #' ADSL <- tmc_ex_adsl #' ADLB <- tmc_ex_adlb #' }) -#' datanames(data) <- c("ADSL", "ADLB") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADLB <- data[["ADLB"]] diff --git a/R/tm_g_forest_rsp.R b/R/tm_g_forest_rsp.R index f408759cb..862327801 100644 --- a/R/tm_g_forest_rsp.R +++ b/R/tm_g_forest_rsp.R @@ -260,8 +260,7 @@ template_forest_rsp <- function(dataname = "ANL", #' 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)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADRS <- data[["ADRS"]] diff --git a/R/tm_g_forest_tte.R b/R/tm_g_forest_tte.R index 9d4728eb7..e283937d0 100644 --- a/R/tm_g_forest_tte.R +++ b/R/tm_g_forest_tte.R @@ -258,8 +258,7 @@ template_forest_tte <- function(dataname = "ANL", #' 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)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADTTE <- data[["ADTTE"]] diff --git a/R/tm_g_ipp.R b/R/tm_g_ipp.R index b67203927..221ea2413 100644 --- a/R/tm_g_ipp.R +++ b/R/tm_g_ipp.R @@ -198,8 +198,7 @@ template_g_ipp <- function(dataname = "ANL", #' df_explicit_na() %>% #' filter(AVISIT != "SCREENING") #' }) -#' datanames(data) <- c("ADSL", "ADLB") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADLB <- data[["ADLB"]] diff --git a/R/tm_g_km.R b/R/tm_g_km.R index 709f50e1b..55be3c1dc 100644 --- a/R/tm_g_km.R +++ b/R/tm_g_km.R @@ -284,8 +284,7 @@ template_g_km <- function(dataname = "ANL", #' ADSL <- tmc_ex_adsl #' ADTTE <- tmc_ex_adtte #' }) -#' datanames(data) <- c("ADSL", "ADTTE") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADTTE <- data[["ADTTE"]] diff --git a/R/tm_g_lineplot.R b/R/tm_g_lineplot.R index 94fe2b647..2afe8e511 100644 --- a/R/tm_g_lineplot.R +++ b/R/tm_g_lineplot.R @@ -222,8 +222,7 @@ template_g_lineplot <- function(dataname = "ANL", #' 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)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADLB <- data[["ADLB"]] diff --git a/R/tm_g_pp_adverse_events.R b/R/tm_g_pp_adverse_events.R index bd7b60d7d..ccdc10c47 100644 --- a/R/tm_g_pp_adverse_events.R +++ b/R/tm_g_pp_adverse_events.R @@ -154,7 +154,7 @@ template_adverse_events <- function(dataname = "ANL", chart_list <- add_expr( expr_ls = chart_list, - new_expr = quote(print(plot)) + new_expr = quote(plot) ) y$table <- bracket_expr(table_list) @@ -201,8 +201,7 @@ template_adverse_events <- function(dataname = "ANL", #' ADSL <- tmc_ex_adsl %>% #' filter(USUBJID %in% ADAE$USUBJID) #' }) -#' datanames(data) <- c("ADSL", "ADAE") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADAE <- data[["ADAE"]] diff --git a/R/tm_g_pp_patient_timeline.R b/R/tm_g_pp_patient_timeline.R index 6f3e86815..1c7ff8c3b 100644 --- a/R/tm_g_pp_patient_timeline.R +++ b/R/tm_g_pp_patient_timeline.R @@ -378,7 +378,6 @@ template_patient_timeline <- function(dataname = "ANL", #' ) #' }) #' -#' 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 diff --git a/R/tm_g_pp_therapy.R b/R/tm_g_pp_therapy.R index 915576bf3..d9e5bfb1d 100644 --- a/R/tm_g_pp_therapy.R +++ b/R/tm_g_pp_therapy.R @@ -192,7 +192,7 @@ template_therapy <- function(dataname = "ANL", ggtheme + theme - print(therapy_plot) + therapy_plot }, env = c( list( dataname = as.name(dataname), @@ -264,8 +264,6 @@ template_therapy <- function(dataname = "ANL", #' 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 diff --git a/R/tm_g_pp_vitals.R b/R/tm_g_pp_vitals.R index 5251b5126..9924cbf00 100644 --- a/R/tm_g_pp_vitals.R +++ b/R/tm_g_pp_vitals.R @@ -224,8 +224,7 @@ template_vitals <- function(dataname = "ANL", #' ADSL <- tmc_ex_adsl #' ADVS <- tmc_ex_advs #' }) -#' datanames(data) <- c("ADSL", "ADVS") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADVS <- data[["ADVS"]] diff --git a/R/tm_t_abnormality.R b/R/tm_t_abnormality.R index 12b191fbf..9ee8b9926 100644 --- a/R/tm_t_abnormality.R +++ b/R/tm_t_abnormality.R @@ -259,8 +259,7 @@ template_abnormality <- function(parentname, #' ) %>% with_label("On Treatment Record Flag") #' ) #' }) -#' datanames(data) <- c("ADSL", "ADLB") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADLB <- data[["ADLB"]] @@ -544,7 +543,7 @@ srv_t_abnormality <- function(id, ) isolate({ - resolved <- teal.transform::resolve_delayed(treatment_flag, as.list(data()@env)) + resolved <- teal.transform::resolve_delayed(treatment_flag, as.list(data())) teal.widgets::updateOptionalSelectInput( session = session, inputId = "treatment_flag", diff --git a/R/tm_t_abnormality_by_worst_grade.R b/R/tm_t_abnormality_by_worst_grade.R index e81adcf54..a92c3b5ec 100644 --- a/R/tm_t_abnormality_by_worst_grade.R +++ b/R/tm_t_abnormality_by_worst_grade.R @@ -265,8 +265,7 @@ template_abnormality_by_worst_grade <- function(parentname, # nolint: object_len #' ADLB <- tmc_ex_adlb %>% #' filter(!AVISIT %in% c("SCREENING", "BASELINE")) #' }) -#' datanames(data) <- c("ADSL", "ADLB") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADLB <- data[["ADLB"]] @@ -511,7 +510,7 @@ srv_t_abnormality_by_worst_grade <- function(id, # nolint: object_length. moduleServer(id, function(input, output, session) { teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.clinical") isolate({ - resolved <- teal.transform::resolve_delayed(worst_flag_indicator, as.list(data()@env)) + resolved <- teal.transform::resolve_delayed(worst_flag_indicator, as.list(data())) teal.widgets::updateOptionalSelectInput( session = session, inputId = "worst_flag_indicator", diff --git a/R/tm_t_ancova.R b/R/tm_t_ancova.R index 81116675c..d910897bb 100644 --- a/R/tm_t_ancova.R +++ b/R/tm_t_ancova.R @@ -446,8 +446,7 @@ template_ancova <- function(dataname = "ANL", #' ADSL <- tmc_ex_adsl #' ADQS <- tmc_ex_adqs #' }) -#' datanames(data) <- c("ADSL", "ADQS") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADQS <- data[["ADQS"]] diff --git a/R/tm_t_binary_outcome.R b/R/tm_t_binary_outcome.R index 5d3b51113..9d5f09f3b 100644 --- a/R/tm_t_binary_outcome.R +++ b/R/tm_t_binary_outcome.R @@ -369,8 +369,7 @@ template_binary_outcome <- function(dataname, #' ) %>% #' filter(PARAMCD != "OVRINV" | AVISIT == "FOLLOW UP") #' }) -#' datanames(data) <- c("ADSL", "ADRS") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADRS <- data[["ADRS"]] diff --git a/R/tm_t_coxreg.R b/R/tm_t_coxreg.R index 66039f34e..4df6ea848 100644 --- a/R/tm_t_coxreg.R +++ b/R/tm_t_coxreg.R @@ -388,8 +388,7 @@ template_coxreg_m <- function(dataname, #' ADSL <- tmc_ex_adsl #' ADTTE <- tmc_ex_adtte #' }) -#' datanames(data) <- c("ADSL", "ADTTE") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADTTE <- data[["ADTTE"]] @@ -461,8 +460,7 @@ template_coxreg_m <- function(dataname, #' ) #' }) #' -#' datanames(data) <- c("ADSL", "ADTTE") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADTTE <- data[["ADTTE"]] diff --git a/R/tm_t_events.R b/R/tm_t_events.R index 8f1650c51..7236a0e56 100644 --- a/R/tm_t_events.R +++ b/R/tm_t_events.R @@ -472,8 +472,7 @@ template_events <- function(dataname, #' ADSL <- tmc_ex_adsl #' ADAE <- tmc_ex_adae #' }) -#' datanames(data) <- c("ADSL", "ADAE") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADAE <- data[["ADAE"]] diff --git a/R/tm_t_events_by_grade.R b/R/tm_t_events_by_grade.R index 702914517..664f1a8a8 100644 --- a/R/tm_t_events_by_grade.R +++ b/R/tm_t_events_by_grade.R @@ -803,13 +803,12 @@ template_events_col_by_grade <- function(dataname, #' data <- teal_data() #' data <- within(data, { #' ADSL <- tmc_ex_adsl -#' lbls_adae <- col_labels(tmc_ex_adae) +#' .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 +#' col_labels(ADAE) <- .lbls_adae #' }) -#' datanames(data) <- c("ADSL", "ADAE") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADAE <- data[["ADAE"]] diff --git a/R/tm_t_events_patyear.R b/R/tm_t_events_patyear.R index 028196209..ee0b3a754 100644 --- a/R/tm_t_events_patyear.R +++ b/R/tm_t_events_patyear.R @@ -204,8 +204,7 @@ template_events_patyear <- function(dataname, #' 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)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADAETTE <- data[["ADAETTE"]] diff --git a/R/tm_t_events_summary.R b/R/tm_t_events_summary.R index ed3230fbd..ca4b1c79e 100644 --- a/R/tm_t_events_summary.R +++ b/R/tm_t_events_summary.R @@ -541,7 +541,7 @@ template_events_summary <- function(anl_name, #' ) #' ADAE <- tmc_ex_adae #' -#' add_event_flags <- function(dat) { +#' .add_event_flags <- function(dat) { #' dat <- dat %>% #' mutate( #' TMPFL_SER = AESER == "Y", @@ -564,13 +564,12 @@ template_events_summary <- function(anl_name, #' } #' #' #' Generating user-defined event flags. -#' ADAE <- ADAE %>% add_event_flags() +#' ADAE <- ADAE %>% .add_event_flags() #' -#' ae_anl_vars <- names(ADAE)[startsWith(names(ADAE), "TMPFL_")] -#' aesi_vars <- names(ADAE)[startsWith(names(ADAE), "TMP_")] +#' .ae_anl_vars <- names(ADAE)[startsWith(names(ADAE), "TMPFL_")] +#' .aesi_vars <- names(ADAE)[startsWith(names(ADAE), "TMP_")] #' }) -#' datanames(data) <- c("ADSL", "ADAE") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' app <- init( #' data = data, @@ -583,14 +582,14 @@ template_events_summary <- function(anl_name, #' selected = "ARM" #' ), #' flag_var_anl = choices_selected( -#' choices = variable_choices("ADAE", data[["ae_anl_vars"]]), -#' selected = data[["ae_anl_vars"]][1], +#' choices = variable_choices("ADAE", data[[".ae_anl_vars"]]), +#' selected = data[[".ae_anl_vars"]][1], #' keep_order = TRUE, #' fixed = FALSE #' ), #' flag_var_aesi = choices_selected( -#' choices = variable_choices("ADAE", data[["aesi_vars"]]), -#' selected = data[["aesi_vars"]][1], +#' choices = variable_choices("ADAE", data[[".aesi_vars"]]), +#' selected = data[[".aesi_vars"]][1], #' keep_order = TRUE, #' fixed = FALSE #' ), diff --git a/R/tm_t_exposure.R b/R/tm_t_exposure.R index 8854324bd..6354df942 100644 --- a/R/tm_t_exposure.R +++ b/R/tm_t_exposure.R @@ -241,7 +241,7 @@ template_exposure <- function(parentname, #' ADEX <- tmc_ex_adex #' #' set.seed(1, kind = "Mersenne-Twister") -#' labels <- col_labels(ADEX, fill = FALSE) +#' .labels <- col_labels(ADEX, fill = FALSE) #' ADEX <- ADEX %>% #' distinct(USUBJID, .keep_all = TRUE) %>% #' mutate( @@ -251,10 +251,9 @@ template_exposure <- function(parentname, #' AVALU = "Days" #' ) %>% #' bind_rows(ADEX) -#' col_labels(ADEX) <- labels +#' col_labels(ADEX) <- .labels #' }) -#' datanames(data) <- c("ADSL", "ADEX") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' app <- init( #' data = data, diff --git a/R/tm_t_logistic.R b/R/tm_t_logistic.R index 24768943e..b0101dd1b 100644 --- a/R/tm_t_logistic.R +++ b/R/tm_t_logistic.R @@ -236,8 +236,7 @@ template_logistic <- function(dataname, #' ADRS <- tmc_ex_adrs %>% #' filter(PARAMCD %in% c("BESRSPI", "INVET")) #' }) -#' datanames(data) <- c("ADSL", "ADRS") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADRS <- data[["ADRS"]] diff --git a/R/tm_t_mult_events.R b/R/tm_t_mult_events.R index 40f70f173..366a67898 100644 --- a/R/tm_t_mult_events.R +++ b/R/tm_t_mult_events.R @@ -294,8 +294,7 @@ template_mult_events <- function(dataname, #' ADSL <- tmc_ex_adsl #' ADCM <- tmc_ex_adcm #' }) -#' datanames(data) <- c("ADSL", "ADCM") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") #' join_keys(data)["ADCM", "ADCM"] <- adcm_keys #' diff --git a/R/tm_t_pp_basic_info.R b/R/tm_t_pp_basic_info.R index 7f99c1917..287302a30 100644 --- a/R/tm_t_pp_basic_info.R +++ b/R/tm_t_pp_basic_info.R @@ -76,8 +76,7 @@ template_basic_info <- function(dataname = "ANL", #' data <- within(data, { #' ADSL <- tmc_ex_adsl #' }) -#' datanames(data) <- c("ADSL") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' diff --git a/R/tm_t_pp_laboratory.R b/R/tm_t_pp_laboratory.R index 66294e1e9..153d52a59 100644 --- a/R/tm_t_pp_laboratory.R +++ b/R/tm_t_pp_laboratory.R @@ -158,8 +158,7 @@ template_laboratory <- function(dataname = "ANL", #' ADSL <- tmc_ex_adsl #' ADLB <- tmc_ex_adlb #' }) -#' datanames(data) <- c("ADSL", "ADLB") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADLB <- data[["ADLB"]] diff --git a/R/tm_t_pp_medical_history.R b/R/tm_t_pp_medical_history.R index 597be0fab..495ef20da 100644 --- a/R/tm_t_pp_medical_history.R +++ b/R/tm_t_pp_medical_history.R @@ -100,8 +100,7 @@ template_medical_history <- function(dataname = "ANL", #' ADSL <- tmc_ex_adsl #' ADMH <- tmc_ex_admh #' }) -#' datanames(data) <- c("ADSL", "ADMH") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADMH <- data[["ADMH"]] diff --git a/R/tm_t_pp_prior_medication.R b/R/tm_t_pp_prior_medication.R index 41c92fdf1..fc9095f0a 100644 --- a/R/tm_t_pp_prior_medication.R +++ b/R/tm_t_pp_prior_medication.R @@ -75,8 +75,7 @@ template_prior_medication <- function(dataname = "ANL", #' ADCM$CMASTDTM <- ADCM$ASTDTM #' ADCM$CMAENDTM <- ADCM$AENDTM #' }) -#' datanames(data) <- c("ADSL", "ADCM") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") #' join_keys(data)["ADCM", "ADCM"] <- adcm_keys #' diff --git a/R/tm_t_shift_by_arm.R b/R/tm_t_shift_by_arm.R index 277bb8e40..306e04a70 100644 --- a/R/tm_t_shift_by_arm.R +++ b/R/tm_t_shift_by_arm.R @@ -202,8 +202,7 @@ template_shift_by_arm <- function(dataname, #' ADSL <- tmc_ex_adsl #' ADEG <- tmc_ex_adeg #' }) -#' datanames(data) <- c("ADSL", "ADEG") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADEG <- data[["ADEG"]] @@ -468,7 +467,7 @@ srv_shift_by_arm <- function(id, ) isolate({ - resolved <- teal.transform::resolve_delayed(treatment_flag, as.list(data()@env)) + resolved <- teal.transform::resolve_delayed(treatment_flag, as.list(data())) teal.widgets::updateOptionalSelectInput( session = session, inputId = "treatment_flag", diff --git a/R/tm_t_shift_by_arm_by_worst.R b/R/tm_t_shift_by_arm_by_worst.R index 826473663..9b683d290 100644 --- a/R/tm_t_shift_by_arm_by_worst.R +++ b/R/tm_t_shift_by_arm_by_worst.R @@ -208,8 +208,7 @@ template_shift_by_arm_by_worst <- function(dataname, #' ADSL <- tmc_ex_adsl #' ADEG <- tmc_ex_adeg #' }) -#' datanames(data) <- c("ADSL", "ADEG") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADEG <- data[["ADEG"]] @@ -487,7 +486,7 @@ srv_shift_by_arm_by_worst <- function(id, ) isolate({ - resolved <- teal.transform::resolve_delayed(treatment_flag, as.list(data()@env)) + resolved <- teal.transform::resolve_delayed(treatment_flag, as.list(data())) teal.widgets::updateOptionalSelectInput( session = session, inputId = "treatment_flag", diff --git a/R/tm_t_shift_by_grade.R b/R/tm_t_shift_by_grade.R index 6d7e44799..b36b604a8 100644 --- a/R/tm_t_shift_by_grade.R +++ b/R/tm_t_shift_by_grade.R @@ -483,8 +483,7 @@ template_shift_by_grade <- function(parentname, #' ADSL <- tmc_ex_adsl #' ADLB <- tmc_ex_adlb #' }) -#' datanames(data) <- c("ADSL", "ADLB") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADLB <- data[["ADLB"]] diff --git a/R/tm_t_smq.R b/R/tm_t_smq.R index 5dc1c5310..8289d6146 100644 --- a/R/tm_t_smq.R +++ b/R/tm_t_smq.R @@ -327,22 +327,21 @@ template_smq <- function(dataname, #' ADSL <- tmc_ex_adsl #' ADAE <- tmc_ex_adae #' -#' names_baskets <- grep("^(SMQ|CQ).*NAM$", names(ADAE), value = TRUE) -#' names_scopes <- grep("^SMQ.*SC$", names(ADAE), value = TRUE) +#' .names_baskets <- grep("^(SMQ|CQ).*NAM$", names(ADAE), value = TRUE) +#' .names_scopes <- grep("^SMQ.*SC$", names(ADAE), value = TRUE) #' -#' cs_baskets <- choices_selected( -#' choices = variable_choices(ADAE, subset = names_baskets), -#' selected = names_baskets +#' .cs_baskets <- choices_selected( +#' choices = variable_choices(ADAE, subset = .names_baskets), +#' selected = .names_baskets #' ) #' -#' cs_scopes <- choices_selected( -#' choices = variable_choices(ADAE, subset = names_scopes), -#' selected = names_scopes, +#' .cs_scopes <- choices_selected( +#' choices = variable_choices(ADAE, subset = .names_scopes), +#' selected = .names_scopes, #' fixed = TRUE #' ) #' }) -#' datanames(data) <- c("ADSL", "ADAE") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' app <- init( #' data = data, @@ -355,8 +354,8 @@ template_smq <- function(dataname, #' selected = "ARM" #' ), #' add_total = FALSE, -#' baskets = data[["cs_baskets"]], -#' scopes = data[["cs_scopes"]], +#' baskets = data[[".cs_baskets"]], +#' scopes = data[[".cs_scopes"]], #' llt = choices_selected( #' choices = variable_choices(data[["ADAE"]], subset = c("AEDECOD")), #' selected = "AEDECOD" diff --git a/R/tm_t_summary.R b/R/tm_t_summary.R index c963ddc74..b104cdcd1 100644 --- a/R/tm_t_summary.R +++ b/R/tm_t_summary.R @@ -235,8 +235,7 @@ template_summary <- function(dataname, #' ADSL <- tmc_ex_adsl #' ADSL$EOSDY[1] <- NA_integer_ #' }) -#' datanames(data) <- c("ADSL") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' diff --git a/R/tm_t_summary_by.R b/R/tm_t_summary_by.R index 229731e27..ca7e851d4 100644 --- a/R/tm_t_summary_by.R +++ b/R/tm_t_summary_by.R @@ -332,8 +332,7 @@ template_summary_by <- function(parentname, #' ADSL <- tmc_ex_adsl #' ADLB <- tmc_ex_adlb #' }) -#' datanames(data) <- c("ADSL", "ADLB") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADLB <- data[["ADLB"]] diff --git a/R/tm_t_tte.R b/R/tm_t_tte.R index 2834fd29c..66684017a 100644 --- a/R/tm_t_tte.R +++ b/R/tm_t_tte.R @@ -412,8 +412,7 @@ template_tte <- function(dataname = "ANL", #' ADSL <- tmc_ex_adsl #' ADTTE <- tmc_ex_adtte #' }) -#' datanames(data) <- c("ADSL", "ADTTE") -#' join_keys(data) <- default_cdisc_join_keys[datanames(data)] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' ADSL <- data[["ADSL"]] #' ADTTE <- data[["ADTTE"]] diff --git a/man/tm_a_gee.Rd b/man/tm_a_gee.Rd index e9333ea22..35dd29535 100644 --- a/man/tm_a_gee.Rd +++ b/man/tm_a_gee.Rd @@ -94,8 +94,7 @@ data <- within(data, { ) \%>\% droplevels() }) -datanames(data) <- c("ADSL", "ADQS") -join_keys(data) <- default_cdisc_join_keys[datanames(data)] +join_keys(data) <- default_cdisc_join_keys[names(data)] app <- init( data = data, @@ -127,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=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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeUAipV1DU2t7fwAjqI6AKQAfNM9Jca01OSM7KUAQtUAYrUAhAC8OgpgAJqnOgBkZdt7AEw6RyfnpzZzCxAlJTCCoeTsRbfUoANQAkpUwbYdMcoOJjFB1ER1qCIVC5LggSVUZDbAA5GE6ZgQADWG3BuLx73mWO+cIwCKR62pn2+bJ09IggngjBk1hmNK+7JK9MZpGR1kxQrZoNK1U2YIJx1ltT0OgArAAGHQAYh0AClBKJSByplAvq1YD5dOKdABzOAmsL0bKeHQUbxEbKkDBAllA-iMIjW7TUUTxCAAXwCACsvRAoiS4Kxw3kbMl+HAEcJSFECPxaKImnHsonk6JgNB4KnEnIALquaDoOrZdKAoV5Ql5KU-ATCMSEvhCEThoENdpRB1wdvC6hQehwaiE04AcScLjwtLyVd0x1OFQGpx77Kgmm4UTPjEJBAyXoIYiiokXcHUcH4gLAKoVeKPJloLTfQl7GcDFaVofgLxYa9bxkB8nxEV93wID8HEqBxNn1MFyl-U40IwrC3gKU5UPQzDsLAUDpTpRgYEgq9jhvO84OfRD2GQ-csAAWRwz8uIAYXIjEXlKLjCNpTRC3SOjoKY0RHxY8gkI-HEoR4lT8UI4SKVUijjzZVAWFgfMZNguT4JfRSZ2FHRGNMwkz2oQQ4DzGD7xrUJgGAfd+kqU46zrIiwAABRE0pOIEniQqwMKxKotlzMQ5cwB2ABpSEDB2AB1TZTlpSjhWITRpIY1zmIQyz2LATZSkqDdAtKNceNqgANHjqtqxB1M0vEHGqaoAjZAadACAJaGMHR2G9VREQ0bRrBsIohVELIIFYUp0HYNBUAAEkEWgCi27an0YbR-CUSMlDASM6yAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} } } } diff --git a/man/tm_a_mmrm.Rd b/man/tm_a_mmrm.Rd index 66cb4881e..58225572c 100644 --- a/man/tm_a_mmrm.Rd +++ b/man/tm_a_mmrm.Rd @@ -131,8 +131,7 @@ data <- within(data, { as.factor() #' making consecutive numeric factor ) }) -datanames(data) <- c("ADSL", "ADQS") -join_keys(data) <- default_cdisc_join_keys[datanames(data)] +join_keys(data) <- default_cdisc_join_keys[names(data)] app <- init( data = data, @@ -165,9 +164,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEosMAD6jHDGIcQwqPpGdKKk7Eo6OgCCWACyAMIAIjoAvDoJSSmpOuHGhToKYBmZOgBCtbhlqdGxRQTJdVnpLTW9Ddm1AakBAUr8UKRQcTpc1CHTs9ZTM3OGOgDutKQAFrQQ7CtQuDogZWm5AMoAMvOkMAQhcAAeIVD8otRXuQCKN0ez1eHy+AEdRDoAKQAPmhbRMtGo5EY7DSjTuADEHgBCIq1ACatR0ADJ0picQAmHT4wbEsA2OEIiDlJEo1TogBqAEkbjzbDCjtCdN1agB1JxOADSOgAjDpcmlCToABwDCVS2U0pUquUAVg1YElMp0AGZFcqdFSqaMmfDETBBLNyMlWWz0rz+YKilBxMYoOoiGi0l6BXJWu62aG+QKAHLVZgQADW3Njtjj9pZHvKfowAaDaKziLZeYggngjBk1hhDqjHrzBdIwZrAGIAOQ6GBQZNHADmopIojgBGdWl05crMhMgebjERAQAvgEAFZEI4hZNwViiE4bGxbfgRKDCUhRfi0UQvNcbrc74DQeC705yAC6rmg6HmRz2btSp2qU5I1SPghBEKEilA4QxD-conk+EIYBgRgYFgtlqCgeg4GoapakyTIshaEsdFOR9dAJOoARuIj61SKBNG4EIGMYaoCH2dcCDEEJhxEdQ4H4dgxTqLk0juI1sgACQAcVGc5alDUTZOI2h+CYlhWPYmQuJ4kdyAEoSHBuBxGgAKR5XIjSM0zzNkwZDOMsyLMZYCGxQtSWK6TTONEbjsN0-jBJ6eojXqPJbPkwjnOIzRLz2dyNI47S-L4-SgrDWwQvSuNwuE9MlNonRgjCCIoiIGJqiKypSpiFy2VQFhYAIfgEq0nydJStCPTYxKIJ0BjqEEOAoi8mDTmAYB5Ko2pX1fOSwAABQyNIcicubFqwZb8pzVJ2r03CwCxaV+QMLFxWaMBiIjYjiE0eLPJ63zeL0wLakaNIbhcPBBjSKTPrmj6AA0jTej7EBjb1bLjBw7juMZyjhiYlFoKp2COVFZ3HawbEud1REOCBWDSdB2DQVAABJBFoc5SbJ4dGG0fwlEXJQwEXV8gA}{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 e30f4a501..f1e92bc46 100644 --- a/man/tm_g_barchart_simple.Rd +++ b/man/tm_g_barchart_simple.Rd @@ -70,8 +70,7 @@ data <- within(data, { 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADAE <- data[["ADAE"]] @@ -182,9 +181,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAygAyyTqkMARpcAAeaVD8otQ6AKQAfBP1DTowgonk7ACStrYAYp0AvCZQ6gHsCmAAmic207MQ8-NFpWnUUPRw1MdgqypkBrZEP4xwBI6AAKRFQwgSlhumyeAHMLkEGi1Gk4uj0+oNhvFdFc5g1jLRqORGOwAITsdgo2wAeQAGgBxLA6HZ7ACMNgAZDpKU5Wk4AGrMvYnACyq3azQuOi5lKwIqFOhOjUQOmajEEsJ0tIRQQAvkEAFZEcppADWcFYokqiRs+X4cGMUGEpDSBH4tFEfSNJvNluA0HgVtycgAurEWh0urlgMAlW12icQ2GIMjUXaqjG4yjE8mlGhUF1ysVjjcdLlmWWqrg5nwhCJRBXa8IxCXbj00rC0vQWAQSiwXaJaDBInBW7cdE8XuNhWBU01oFFB6ITtXS7cBhXcv0BqQ1APUHACGPx5XEgHdDOIwm8Hjx6JXofSBX7yJ1GlRAej7eT73jQQxBWmgsLQzwiK6JR-i234nk08arjB45fmuCHzEqcoroqs4AMK2I06F4JhfLajeyEoZhWCNFhLgESc6xbNeNQnK0jSbNsGFMfYjS4QATCc0EnoiKFyPBKEvo+cD8BWSo4XhIorvx8yLEStAjhWmyNO0fIKYJtzCdBBLUNOE4eqQx7jlugy7gc+6HmZJ65OeUmzvG8mkXeD7qM+Hk2UhZENL+MgAXsQGMCB9BgQF-5WgpJ5XiJfk6L5CWobO+GMdhuFpYRTjEfFyUnBRVHsR8GxsTRYDMaxDGEZxPF8W5CE6UJeUIWJ6gSU5RGuQlSkaKpezqZpLgNfMTW6S18wWTue7vp+dnmVUjmXs02YkWRbVPnsG2zbZMXzJFQU6CFYURRBgVWqmNRfrOTg0gyWDFSifL8o9vJOA9YByHpI23BtHV7AAcg47TtBNJ69SpIhqRpWk-ToY2jdB30nkMjr-ptxmiKZClTVZb4frtcMObAF6Yam3Wid5Xmvj580-mdUWAcBoFwOBkEXStThXe8VJ0oyr3PQL70ImD7k0-9ZO3XzH2i7cEP9Tog2w2RCMNMjMG4zNBNJQhxPwE5V4U61VNbd5O06yhB0NsFzPhazVt0zBcV7bcFsJWhcnlZRmWe+lXVrclDQFZR1HpXRZV+yxEc1RRdVgC7iNw2rsvzH9kmA8DoMJ-LUMDTDw0q9pSMTawaRo3AGN0Fjjua9Z5uOw0euk1mod7Rt1OPvXCdW0zoUs2z52Upz3NKlL91Cy9XtvR9X0pw0acG29k9zwszqQ6TSsF0J2mi7X+NzXtTcGy5AfGzTHf74TCU9zbfd2wPUUN+OztJ-tT8nh7j0yVlTE5Ub+VgEKqHTC4dqpMSjmAiqtVGi8Xjq-NWCd1brW8hLIGIMV45w3vnPaqt4ZI1vIJIIQRaDGG5OUYk1ktCji+rUOYogygQFYI0dA7B8wABJBC0BqOw+8jBtAxAgLqJQYBdQhiAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} } } } diff --git a/man/tm_g_ci.Rd b/man/tm_g_ci.Rd index d43f5cfb8..7f3fc462f 100644 --- a/man/tm_g_ci.Rd +++ b/man/tm_g_ci.Rd @@ -65,8 +65,7 @@ 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADLB <- data[["ADLB"]] @@ -136,9 +135,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQSvxQpFD6RlzUAPqh4dYhYRGGOgDutKQAFrQQ7PFQuDogSjo6AIIAIgDKADKROqQwBDFwAB4xUPyi1KUVlbUAQg1NLe2d-NT0SgC+QQBWRLkxANZwrKL5yTap-HDGUMKkMQT8tKIti8trG8DQ8JsFcgC6rhBVdQ0FwMAKYB+1P7PV7vAbDXbJH5-KpDIEgpRoVANXKZdh9Ao6AC8OgKuD6fCEIlEWJ0BOEYjREDKZSaMQA5idaJTqdTqFB6HBqCS-gBhEjGWh7cy6ACSKkYmm4OgACv5SH88VSWToOpLGCSCq02qQ1MdRKg4ARmcqygV7rpsdCaoC8H0TaJOYbSCSHSJ1DF9YbjSaygQsksCGISUboVgALI8yoKnR-QZhrAAaSwACY-nJFT7qa6nXB+MG0f9w5G0xnM6SjrRUCISQAxcq1apOUuZgVtXO1+uNu3KoIm9PdsqsGJqjXJLU6qDuz0hpUms2wC0x-5ghUD6kC6jkdXYuiiUjen0brceg0zsvUtXEy1gaXlLDlCNR22zst+gNBndwbTUTYwwYAElve9H37F9M2zdR20-b9fzBQC7wfSM5GAABGZ5mzLGAKyrRc6wbJs1xNNkOS5a9qkddQdGIxA-kI6lQPPI9VBPL06JZS9uX+AA1EVqhFWxVzAn03xkD8qK-TlYKGf9yh4vjbAY88dAg8g82gyT2D-GS5P45C0IwzMsM3Stq2xPDGwMn1iM5TjyLdZ1NHOTIaLANidF7H1FPtCjnWxFSWLPMtrNIpdymgahWAAL3bLjuEEOBBPPETAyvHQQ24+to15AAJABxEs3JUqDQq4zLn3PIyNBwjt8MsllW2K8yXCEsoPJZLzqT8AJR3CcddQCg8WXneBOIBRKfRUl0fIGtzgs4vl-HVehWB0NVaHZERxszZKxPSxsAA0srAap7HKWxyhQo6Tvvc7UzADrvPs4q9tO87LvuurqUqkzcM7AiWvXWg2zUnQmrotr6O7DygiCWhjB0dhci3ScNG0awbBKJVRByCBWHKdB2ERf9BFoIoiYdCVVCCGYlDAGZniAA}{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 124270038..c627cc585 100644 --- a/man/tm_g_forest_rsp.Rd +++ b/man/tm_g_forest_rsp.Rd @@ -132,8 +132,7 @@ data <- within(data, { 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADRS <- data[["ADRS"]] @@ -208,9 +207,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAygAyyTqkMARpcAAeaVD8otT1Tc1YrV09fYPD-IyiOgCkAHyrEw0wgonk7I0Aao3tAMI6ALw6-GkkxGnLqGnUUPRw1Icn5zYbWxANQGFYolF5vD7sBRgM4lFhQdSqHRYMTCUgAegAYuV+OUAOZQuS-TbbEy0ajkRjsAAKjSwjQAsmdmjoAITXKEAeSOWAAkgA5I5QnQAHyaRx5rR5tiu7LAGI57XaHIA6joHFSCUoAL5BABWRHKaQA1nBWKJKokbPl+HBjFBUWkCDjRH19YaTWbgNB4ObcnIALqxFodLq5YDAKHB9pQ-2BiAtaahqrhyNTVoxuNKFgwR62x1EGCoLp0USkSEAppYelXHQlsskxi2mtQgBCiB0VNeBDg9CIUNwJOIhZrBEhYEa7eajEEuJ0AA1+zooWd22cC-RyglLBBNRW5AOK7TGczrnXy0DG8Zm+OqzoW-3BwWi9dR5Hb41F2-q2ddw0gkEs3QLpymKc8biqGtcgPHYBGEMQaz4IQRHNEkejSXE0mMAIfEeURUDAoFXneahrwxbDSyRMRUBIUQ4AfCsgVyb1dFlBN0zwEkGmzNJNBYEcSgNbtRDSWiRARfgCKBHReMYWg3hER0BJkMRDjadoalfG96U-LSmQJfdOMBL89LAQyDIYwFuMvfNh2uKy8yHVBoKk1A4V6fh+MEsQRI+OBxMkoFeOoQQ4EUrzzTYmooRpOljx0mKGQJZypKXMB+SOJxbChMzksBURBHoXFGCIQRnhkzzlOE0S-PICTDIaGS5PoBSCCUoTVI6GpmIitTCVyoFNJbeksAAaSwAAmHTWicBcwCCFLzJS0tmESHi+JfNrvOq-z6uklgmpazaes6nRNNaexGlsRoAEYpouq7JrmxaUtS866Qe7KLL-fqdEiIhSDSEo4FoXESlIEd2AANgABmh9SdHG2H4cRpHnsY217XJXM8Jo+DT1oUsAsBFsnFaaYqR5Gsz12honghqFWkSZrdGaAm4CgWidHYVpmkUPBUr5f6dCcILBHk3R2D5Jw+bRl6RG0agVhfImUuXJ8RHISicYgTn2DOLA+aisAqRYDRuC16idYlqkDampmRB0VnaI5iWecNmmjON4qirEUQtBZtmXa5qleZ0wXwZF7gxeZrmpb5j35pe2WgXSzKqYJ+svqkunlbVwsNd0ZFtd1-XDdSk3GDNkii8t3WbZln7CLgBWldOlWpLzyI4E1mvca50uw6FyPgvF2Ppfi025Orqi++pW2OKz1WvaIH3RD97RHcDuvQ-5hn7YD53dbdz6XsBROFsbnQuV5AV08Jj2c7b6LvcbNf-c3w-rZ3o3GdHp32aPjvZOUl5YfFbppKkL9fbv3-kHak39Xr7w-gA12CCoTh2FqLUektx5zV2ufM+JJE7-iULQK87BygUnhBobQ1gbB1ArKIMoEBWCNHQOwNAqAAAkghaA1E4Vw2ijBtAxAgFqJQYAtT+iAA}{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 b5430e246..fd262399b 100644 --- a/man/tm_g_forest_tte.Rd +++ b/man/tm_g_forest_tte.Rd @@ -131,8 +131,7 @@ data <- within(data, { 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADTTE <- data[["ADTTE"]] @@ -186,9 +185,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAygAyyTqkMARpcAAeaVD8otT1Tc22tk5dPX2Dw-yk5BMtHQAkWI0AwrP5-IxEkXDa1KLs6+1bu042AKQAfPeFxSVp1FD0cNTsCmBYKAEOD-IIAXyCACsiOU0gBrOCsC65GwHODGKDCUhpAj8WiiPrQ2EIpHAaDwZFVOQAXViVy6uWAwH+V3+1NpEBa032RkZzLAXJmbI5ShYMDSjHROKIMFQXToolIfwgDUaWAAsjoALw6BVKiYNSXGbU6f4AIUQOgACp9gfQiP9cAadMRZSaCH8BZbmoxBABzHQADUdprAO0tOxl9HKCUsEFBEzkTpVTQ1O2aJr1yoahvRJpZGp0Zsdztdcp1HoLmsaIarOh2CZTQSCovQXXKxWzOlyJtyyYafCEIlEJsHwjEXYaPTSfrSxgCPjSKzgk5zn2+1HzYAAYgvFTpWoJGJotNwSymc92quTdDqWVMhXhnQ0xWlNCx3SUYcDRGlRD84HUOB+FXS930YWgvhEHEvxkCcrhqSsBQ1WtkPVdNQSTZ8cyrDCwGwrCLxzV8jWlN0dRIqUy37S8dFQFhYFxT9vzEP8AKAkDsIad9qEEOAYJYi5BScGp-itNVGnQ5pUPE7Z1VBGjaNDAB5Vp-gIxSc1EQR6D9I5BFQN8PwrWCfzYkQONAnNwMg+hoIIUz4LadoahvITnLkQilIaJCzXVLAAGksAAJlQ1onGDMAgiUrzaMVZhEiMxhmLg39-ws8hOKIsCWFs+zHPcjpEM9Vp7EaWxGgARjCsqKtCqLYqU-5Su2Or1OynRopzLrmyUWhjXYcpyDUDRtGsGw6hTUQyggVhGnQdg0FQDZBFoGolo2f9j1UcElDAMFqSAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} } } } diff --git a/man/tm_g_ipp.Rd b/man/tm_g_ipp.Rd index 7c70ab6c5..907e24fc6 100644 --- a/man/tm_g_ipp.Rd +++ b/man/tm_g_ipp.Rd @@ -114,8 +114,7 @@ data <- within(data, { df_explicit_na() \%>\% filter(AVISIT != "SCREENING") }) -datanames(data) <- c("ADSL", "ADLB") -join_keys(data) <- default_cdisc_join_keys[datanames(data)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADLB <- data[["ADLB"]] @@ -174,9 +173,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAygAyyTqkMARpcAAeaVD8otQ6AKQAfBP1DTpjMnDsAIyIAEwADDbTsxDzOvzG-QORMsVp0Nn7Tc3tAEJdPX2Dw-zU9JMzcw3GtNTkRjsBytBz3ABSAElmpNyhNbh0ACQgsFQ5o7b43BpHE5nAgXK4YvYHP4A1TsRoANUhrUhth0AEIALw6BRgVoAYSwTicADlIbyAOJsoIAXyCACsiOU0gBrOCsUSVRI2fL8ODGKDCUhpAj8WiiPpSmXyxXAaDwJW5OQAXViLQ6XVywGAbId7TZNrtEBaDydVRdbru9093qUaFQXXKxXYc1yOhZuVwcz4QhEogTOlTwjEsax3RgaQA5mlaOg8wcGtQoPQ4OMWWzIXEtLQhNwdAAFBK0CikTv+Uhs5P57FVC26BtgX0hvA-eYsQuaFiZgglaUEMRpUR1uDqOD8CuVhpL6iCOC6tdLJXTmpurAAWQ5zRFw6PDTv96abLnDTkr8rqAsLAeorpeG6iFuO57geP7zCeZ4XuuuY3qyYAdo0WCNI+z5gH+sHvlO7S2N+I46HhpFQCeaRLowoFIRB24iNBh5HjRtA1iIiFXhSwY1AQsZTpSjQengqEcgAEsKuHkW+qFUsJJFHjJlaUdwgjUcuLKrvRkFMeQMGkceLDsfQnHadxKH8W6QntA4IrKUe1nCXZs6GSYtADPumb2M4sEOfMrYabRWlgZujG7vpLGVmxHHnuZ4E8Q8fECSiELQvZ-6OWAqVokO+HuZ5-DeY4Likf5x4GhcNF0VeukRfuUUHDFplxaF168ToVmCTSdIZfl1k9cRYB+Zl8z0FAjHlOe1UhTp4XMflzVmW1iX3MlbL3I0rQuNJo0HBtW07Xt8x-IVxW+WVx0jPwaTjZN3hpCUUgTjoABiwnbcd26Acw5C3awaREPQGYsu97TbXOQS-koQS0MYOjsOUgJQBY2jWDYdQ3KIZQQKwjTlhGiKCLQNSE9ujDaDEECikoYCijaQA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} } } } diff --git a/man/tm_g_km.Rd b/man/tm_g_km.Rd index 0e29def52..02308139e 100644 --- a/man/tm_g_km.Rd +++ b/man/tm_g_km.Rd @@ -116,8 +116,7 @@ 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADTTE <- data[["ADTTE"]] @@ -171,9 +170,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQSvxQpFD6RlzUAPqh4dYhYRGGOgDutKQAFrQQ7PFQuDogSjo6AIIAIgDKADKROqQwBDFwAB4xUPyi1KUVlba2Tg1NLe2d-KTkSgC+QQBWRLkxANZwrKL5yTap-HDGUMKkMQT8tKIti8trG8DQ8JsFcgC6rhBVdQ0FwMAKYB+1P7PV7vAZDL7JH5-KqDFxgYFvFgwGKMfYnIgwVANOiiUjsPrlADCtnKWAAsoTKjoALw6HF4vplVHGGk6aHknQAIT+uEZOmImNZBHx-w55R5bNFZJ0hL+QTKcl5EDKpOltPp+OVZR0zNZf05iB0AAVqFACHB6EQeXyBVjacLoYbKoxBABzHQADQlf0JhsJGPouTClmCYHlOiCQSUaCxqVymU1ZQKrIKSrKfCEIlErIzwjEie1TRirtWMAL2rpUHocGoerAAGk0KaIAYyXBaKpjf5SNatRWCvddLToWC4WmKzokTFNCwhVklubRDFRDW4Oo4PxyxOZ4xaFWRCd5zJ8wCig6pd6pZTL0SSeTr2HFXyK+yyX9nxHxxXUCxYKc5wuYjLqu66bh+ZQztQghwIegGbDCQxFH8RqkuUFKVJeKFYGhcpfhOfwAPLVO+fbak+pFlFOzLooKtJUWitp4WUuLMOE06zvaR6LsBIigVuFY7nu9AHgQXEnjUtRniK1ROF6eCSpyZJYPWWAAExyuRE7an8MlyR+mkTgc5rHDuAHHkuK68eQYEUdqgn7jBolwewp78tJsmXopylqRpTHagAcg4tSArZ4YKn0kZKLQLLsLk5BqBo2jWDYJRaqIOQQKw5ToOwMYACSCLQRT5SujDaIEsxKGAMzPEAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} } } } diff --git a/man/tm_g_lineplot.Rd b/man/tm_g_lineplot.Rd index 1ad25a410..0f3dbdf6f 100644 --- a/man/tm_g_lineplot.Rd +++ b/man/tm_g_lineplot.Rd @@ -121,8 +121,7 @@ data <- within(data, { 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADLB <- data[["ADLB"]] @@ -160,9 +159,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBbgyhHMYBsqSiQUr8UKRQ+kZc1AD6GVnW6ZnZhjoA7rSkABa0EOFluDogSjo6AIIAIgDKADI5OqQwBPlwAB75UPyi1O1d3f0AQkMjY5PT-NT0OgCkAHx7Cx0wglnk7J0AagCSvbe2OgC8zybq+YxwAfyqV3cPWwtG73R4AORaMAaciCAF8ggArIgNfIAazgrFETSyNgqv2MUGEpHyBH4tFEYyRKPRmOA0HgWKKUDkAF1XBAegMhkzgMAFGBOf1+Sy2Rylqs8WVefyeithaKlGhUEMGjV2AsmS8dEzcAs+EIRKItfrhGJ1RAOh0RvkAOb5KRwSJEUjmy2W6hQehwaha-n9Bq6AAK-lI-N1Frd2rK9N0bxl4rDJ0tolIzCyWoItWRBDE+VE3rg6jg-FdkY6mhYtE9IhJWZkZsFLQI6oFWAAsmGdDL2wBhbqdmU92ydXv9sAw8NljrdjtgJMdOSTyOsDN1nOiPMFosl+eWiuMKv0GuZ7MN8VNls3TpCvBdsDLTq9Fy3-k9gASAHEB2BA++v+PF13acBWua9+V3QCIzdVAWFgVdTw3fMRG3UsywrahBDgWsEKuc870DEdOjbPtvwIrAiP5SCpzva9bHAqDLSCN0mJ0IIgloYwdHYBpyDUDRtGsGw2gjUR6ggVhOnQdglQAEkEWgWlk-NGG0GIIFhJQwFhFkgA}{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 8c1390b7c..a5e56dd54 100644 --- a/man/tm_g_pp_adverse_events.Rd +++ b/man/tm_g_pp_adverse_events.Rd @@ -89,8 +89,7 @@ data <- within(data, { ADSL <- tmc_ex_adsl \%>\% filter(USUBJID \%in\% ADAE$USUBJID) }) -datanames(data) <- c("ADSL", "ADAE") -join_keys(data) <- default_cdisc_join_keys[datanames(data)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADAE <- data[["ADAE"]] @@ -140,9 +139,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACKNTsk6pDAEaXAAHmlQ8XD1Tc0AygAyHV09-YP8otQ6AKQAfCujDca01OSM7A7jDgBCAFIAks2r5StjbQAkR6eXzUEAvkEAVkTlaQDWcFYokqiRs+X4cGMUGEpDSBH4tFEPR+f0BwOA0HgINycgAurEWlMOrlgMAFGAiZMKXiCRAWm0SVUyRSGS4wLTYmhUB1ysV2KNcjoALw6XK4UZ8IQiUQinRS4RiAUQBoNLppADmaXQC20jFEcF62jIIK2quoUHocGWotZ-D1Bp0TmNpFEFIlKtVDVyWN0tsprXZHq9DVQLAopF9ctZE2peDNoYStAj8KINp0FOe5yu7oTOkiRDhJTgtA1JVIcoI7AAbAAGWuTGoAJnrjZ0LdbcmDIagcH2MErJV+BDEaQNInUcH4ypDqoIQ5kYjlmhYtEtInhC5HILZNVZTlsTiwAFkKV28w1x3BJ-xo5SD0fT2A8+fPV7SEQBhrmJDB8PR1eN4zrOOjzv+sqiiujBrvQG5gYuO6Bnu962AA8gAGgA4lgZ7drOgHkLe-ptGhWE4c+b6qq+s6yIIojcMUrB-ghY7WtehHATRW5LpBq7roa8Hbuwu4ZveWBOHG1EgQRU53m04lxi+eGqkQgi+EQ8DMdurEThxF6gdxEE6FBMFwYZwlIaJbSoQ4ti4fpMlEVZTg2XZFGzlJXpQBYJBaQBbFAfpgk8cZfGwQJ5kifujQAMIAHL2ZRXqOXJTixQl7khp5qoaJporBaIOnsVOnEhgVy5hWZ4EWW0yGNOMtjNAAmolIE6ClxENc1FJKXmkLEE5cUOJM1KUUEDRBEEtDGDo7DlPs3kaNo1g2HUnqiGUECsI06DsNyDyCLQNT7QajB6h8ShgO8eJAA}{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 2b73f085f..5f34a838c 100644 --- a/man/tm_g_pp_patient_timeline.Rd +++ b/man/tm_g_pp_patient_timeline.Rd @@ -120,7 +120,6 @@ data <- within(data, { ) }) -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 @@ -187,9 +186,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACKNTsk6pDAEaXAAHmlQ8XD1Tc0AygAyHV09-YP8otQ6AKQAfCujDca01OSM7A7jDgBCAFIAks2r5StjbQAkR6eXzUENLQDCALIz3b0DIYEGCrDZbHQwQSJcjscENH7jWzNACaOgAvDpZKI4GkCiUKLCIA1icSfp9GrZ0RiFGB4PxJDoTjSdAA-HQAJgADLg4aTvuTKWjqbS4PTlp9mWyAIwAVm5vIa9mcrJ0Ut5NnWdyKpTS1Cg9Dg1FhYHGpEE-FYOmaUEtRGMOlNLFIOjtOm+opkCUsEBpch5RJJOh+TgAcij0ZioNjcfiKgqg-yKVSdDS6QymWAVQB2TnygOBhMC5Op0UMiWZ6W5vMFxWOdpsuWc9WgrXFEq6-WG42m82W622+1OOIu+3u-iejQkX3+gs-RqI5q2X4Y+dIpczwNz0OL5dNbdL8FBAC+QSUACsiOU0gBrOCsUSVRI2fL8ODGKDCUhpAjj0Q9C9Xre97AAQxotFMNI1DSLRtJBKZgF83y+gAukoQIwDed6iB0oE0oiDgolccE0s85xEXg8GrjuxFgAiTgAIo0RSnxqhR0G2J87JMRxADM3GfAALL656XhAmH3o+UByMA0HND8TFyUhYDIR06HiaIImAVhknSbJsFsQhik0ip+S4SatgEci5FQWApGvMJPrQOgHTlMUhINLkEa5BufBCCI2EYr5whiO5xJdGkADmaToNFXoUF+GjwFIcChSSeoGsswoAApxWQdi0El5QjHgvK5NA8ALFAujCjBLglfmxJlbAOLoRGsnyfVBaoCw8XldVlETJMkG8t1Gjxd+RCZfBdnWSN-hfvitARSUzoYqBABsuaTDUXKcttHJVpMfq8sCr7EPwEYECUl4EGIaTYiI6iiqlgZXTdYgRpoLC0PqIjftdMghbkwAyYZHXIchNk-M0TifAA8s007xg9cBPRdwrQ7DCPDQ1DTHbjOhVfsIJrQDt2iPdhqo+Q-AvSSb2AwFOhfYwP30H9DPk5JIN6XVEM2W0thOFgSn4zWOgo2jl1gU4Qsiw5BZi4GRMFTioiJIwq2YmTd2SzTdPEpzH0YizbMczrD7A6DtXGZDlELgeYBKwWeuitL0EO6L6obiSKsVRQ6Pa+9FOu7T8ZG0zpu-TiEfc9brR83b0H7qLPuBqH7sISnCuBs7jXq6r90a1rEeU49+vhxbn3fdH-3B3H7VKfz8Fzp7SMEw0Gdrcardrl7BN5x5Bf+8OpPB2X1PPZXwfV6ztex1bje21D3xtGGjuD8SXeYj3q-Z073u8lVjCGvErBF06l0WxPaMGw0Eez2bMcWw3hn6c3HtIsi7fi9vZlUd-A+A804NGPqfG0vRR5B0ZjfCuHdoHk0fvPF+i836JwFtuQBm9O5Uylt3ZOYYsGHwJosE+1Az4X01lfceoc74IONszGu7Nn711QYhZe9sv4-xrH-MCC4iHANKqIMhFCA7UJgbQ6ejMkHMLrozV+7DlJJyzoQ7hLtcE00zmvFEOcSTvGJPooIQRaD2nYOUfYUALDaGsDYOoAZRBlAgKwRo6B2BoFQA8QQtAajuIeNiRg2gYgQCPEoMAR5kJAA}{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 9f8ce67ce..f91584fa7 100644 --- a/man/tm_g_pp_therapy.Rd +++ b/man/tm_g_pp_therapy.Rd @@ -103,8 +103,6 @@ data <- within(data, { 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 @@ -172,9 +170,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+gDModaABY6UopRBdZyCVA5MBVe0A20M2B1V1tTBE6JYhS5vlcsA0+TFWT1ZqIF8uuXK7Sc3WteguuViqSIA1cjoALw6XK4CZ8IQifVD8fCMQ9hoNHppADmaXQaVKqjQHAmC501Cg9DgayHZNsJS3qFYVN3C9yuN0p6rarwt4aqBYFFID8H9pLN97PcdA-DQvxFIgT3ta03gAoDgP8YUL1oZcSlIX8SQANgABiwmYaiDHC8J0AjCLkUdAL3BJaEYY90JKZkCDENJRGPOB1Dgfh5zgnQCHomQxF-TQWFoQ8RBFPjGPxL5qW9S4sCcJUwDIt8FxYkR2P4dDSVk+TFI+IDlIohcxj5YhNKHXiGKYtS2PITiVIaSz+KnHQhMYET6DEpzJPYaT7Q6ZonFaAB5Zo6XI7idBsjTfxddpApCsKwBUwy4LGcpRjoqzRGY1iNK4tKJIEoc3I8ryiqkrMZI6S54VacKHKivK7NisAarqskUoioCTKIFisuc3L1LsgqeoqwThNEuBxOy3yqv8+LgrdBqjL3aKWqfAKlpcZLVp0VKepgUhGDQiyKqG2yONGvdvOK1zJs86bbsqjpqvaexbBWyL1o41qOg+zq9oOm6YH4PrBAGySLvyxrnom9yppm5y5tehbmiWhwvu4n7zJ47StpOWMge6kHGCIQRyEh6zmqu2HxpKh7ytmvy4qwYKHFsHbgaAnG-vaNmOZ2rqVN60RjEYABHKmcpx67jPp+6EcepGfJZtrFqmAAxLBPSUkmeZp3G4vRrWdcBuDuccmBRFIfhWGl6GRrp7L4bKp6KpR9oZPBM0sbg3mnx901zYM-WrYoO2Hdl53nNdxHns973UWDvXGoDv9k5Dvd9IafSgiCWhjB0dhygOKALG0awbDqQDRDKCBWEadB2DQVBHkEWgalbx4WMYbQYggdElDAdF1SAA}{Open in Shinylive} - \if{html}{\out{}} - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQ7sxs7Pyo1KyBrhD8UKRQ+kZc1AD68YnWSplJhjoA7rSkABa0EOEJULg6IEo6OgCCACIAwgCyyTqkMARpcAAeaVD8BDD1Tc0AygAyXT19g8P8otQ6AKQAfOsmtNTkjOwOUw4AQgBSAJLNG+U7LR0AJMdnV81BDQ-tjx2NU7bNWydfJfR5-AFAiag35OABygOBRlBjThCKUAF8gkoAFZEcppADWcFYokqiRs+X4cGMUGEpDSBH4tFEfVx+KJJOABHYCjALVmvJqvK+vLkAF0lCMxoTiaIutzef8HM0AJrXQU6XkvC7qvCavn-NF63kdKZOACKGuFtlaAEYrXybQAmB2NG0AZldNoALKKcXiIDKSWSoHJgMK2u1XZHeWKulKYEHRLF+XNKVVgOG+dMZrGJRAvl1cpmIx087E0KguuVijyIA1cjoALw6XK4CZ8IQiOUtzvCMR1hoNHppADmaXQaVKqjQHAmQ501Cg9DgaxbvNsJRnqFYgvnQ9y0Hgzf1Irw+4aqBYFFIR906+zAvP9YXOivGhvDKIa-12ree5fBdIiIekt1oUcSlIE9uQANgABjgmYaidBCkJ0FDULkdtAKHBJaEYVdoJKPECDENJRFXOB1DgfhB1fBoCGImQxBPTQWFoZcRAZJjSNJL4hUdS4sCcXMwCwi8hwokRqP4aCeUE4TRI+V9xJwhiYCpYhZJbRiSLIqSqPIWiJIYniWJbNjGA4+guN05i+MjASOmaJxWgAeWaUVsPohoDJkk8TXaFz3M8sAJNU+ixnKUYiL00RyMomS6Misyex0SzrNs1L2H4-UOkueFWi8kydD8oyArAfLCt5cLvNfMZ+CICjYvshLpKM5L6tS1j2M4uBuLinLHLyoK3LNYq1MkxLyofZyxpcMLJoi+qYFIRgoJ01K2sMmjOoXOzeJ6qy+oG+yho6Jz2nsWwJp80rppoiqOmumqlrq-aNKawQWt47akpKg7zPS3qbP6wGHIukbmjGhxbp8srHp0+S5pOP03oksZGCIQRyB+-SHuMybTLio7MrB7LcsCrA3IcWwFuW+iEe0kbqdphbaoxz7RGMRgAEc8fipm9qHcHSZO8HzvaS7oamAAxLBLTE97XyZp7RrlhXXvohmRZgURSH4VgBb+jqAe6iyQaywbKYNAEVThxmCYq8FVS1lTlfUihDeNoWzZJi3jtB07eMlgSUXhe2lZK1WH3D13Fu1-dlKCIJaGMHR2HKA4oAsbRrBsOoX1EMoIFYRp0HYStHkEWgairijGG0GIIHRJQwHRMUgA}{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..e4562143c 100644 --- a/man/tm_g_pp_vitals.Rd +++ b/man/tm_g_pp_vitals.Rd @@ -78,8 +78,7 @@ 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADVS <- data[["ADVS"]] @@ -116,9 +115,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsOEMaWLUijIoQSvxQpFD6RlzUAPqh4dYhYRGGOgDutKQAFrQQ7PFQuDogSjo6AIIAIgDKADKROqQwBDFwAB4xUPyi1KUVlQBq1Q1NLe2d-JqiSgC+QQBWRLkxANZwrKL5yTap-HDGUMKkMQT8tKIti8trG8DQ8JsFcgC6rhBVdQ0FwMAKYB+1P7PV7vQbDXbJH5-KpDIEgpRoVANXKZdh9Ao6AC8OgKuD6fCEIlEWJ0BOEYjREDKZSaMQA5jF0DFNJluJs+tSdNQoPQ4NQSX8BqzqNM8BzqQV7rpsdCwX88VTOTpUCwKKQpQL-jVAWLFZyVRo1SciPyZWAHNUHAAhABSAElKvLxWVUP5jlk4LQ6VlSCSCOwAGwABiDtSKACYQ2GdJGo3IFUrlSxYKc-VklgQxDFRHy4Oo4PxKYmygR0zIxCTNCxaDyRCcy5nNjDqkU-gAFcpYcoAWQAwo6wPHndScyJ8-xNR2u32B8Oh3rqW0oG1zmmM1nR3nyIXhyWGxXsVXGDX6HXS+um2DW1qAJp-efFnSb8eaqp3sBzhNKqBV2JHtflqI2a5uORbFuegGVtWtZwPWF7sM217lAM5Q6g+xbPtur4oTqc7ikEZRBEEtDGDo7C5OQagaNo1g2CUiqiDkECsOU6DsIiAAkgi0EUnE5ow2iBLMShgDMzxAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} } } } diff --git a/man/tm_t_abnormality.Rd b/man/tm_t_abnormality.Rd index 5cfb9d15b..a1d061747 100644 --- a/man/tm_t_abnormality.Rd +++ b/man/tm_t_abnormality.Rd @@ -114,8 +114,7 @@ data <- within(data, { ) \%>\% with_label("On Treatment Record Flag") ) }) -datanames(data) <- c("ADSL", "ADLB") -join_keys(data) <- default_cdisc_join_keys[datanames(data)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADLB <- data[["ADLB"]] @@ -162,9 +161,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeXVAEJ1DU2t7fzU9DoApAB8Uz0lMIKh5OwLJToA8gBy9rYAYrUAvDqyonBRKRkUaxAb92UAagCSlc+209lTp2tglQDCWCcTm2z22AHEFHgdFD+qVKk5qmCXGAbAA-GFgKG4db3ezOHQYqEATShuJ0Nlm3zSmSi1Cg9Dg1F+mzutkYcBC8DIOiwcGIjH4On29IA5lCAvcAgBfAIAKyI2SiAGs4KxRLlEjZkvw4MYoMJSFECPxaKImgqlar1cBoPANXk5ABdVwQCo1Op5YDAKHu6pQp0ut19QY6xLe30hgNBpRoVB1bLpW4lPI6E55HF3HR8IQiURp7MCYRiZMbBpRI0MiBERgwbjpDjk+mM6gF330au1+ukVh2BkibHkvJ23QnSMDQdZ+4sGBRTQsAsEDKKghiKLnETqOD8UsPU7LmRiAvzxi0fsXJcrkt+gqiQT0c6kRe-UpYACy2Mxr7f-3KErkmZ7iUG78uQQpjmA35klOGwAeSHT8BWRChK2Jz7KU1QIoBDz0Kwc4sPmJyXoeojrkyoHbruDzEauhE6CeZ70CIxoHrR7AVAMt73o+z5QgM-ylLYn5QgACq+pQftCvovG8QmonBMH3CBW7gT8fH9AJckFKJ4mSQpQE6KqcCoFENa6owBb4i4ikUth9z0FAG7ZBcJ6Lqxa7KWBVH3Ax54sVeGocf0XEPnAT4Qf02xYGCf6onZDyedubZgJF0XbLFBTGLQLRJScVnkvpDyiswupuQFZGbl55IlDRR4nL5TEXu5gUhiFPEQaUUUxRK8VKeRKnJZ1aUZdVJjZbldiONZe6FdOHY1nWqE6HQoikOw1BECkyXVJsADqn5ZKKGTJQAEs84InT15KtJIgi6lEDnnO0HYFuhmHTbBPQBAEtDGDo7DZOQagaNo1g2EUWaiFkECsKU6DsHGAAkgi0AUSPnIw2j+Eo0pKGA0pOkAA}{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 6dc65ab4d..555ecc0f8 100644 --- a/man/tm_t_abnormality_by_worst_grade.Rd +++ b/man/tm_t_abnormality_by_worst_grade.Rd @@ -99,8 +99,7 @@ data <- within(data, { ADLB <- tmc_ex_adlb \%>\% filter(!AVISIT \%in\% c("SCREENING", "BASELINE")) }) -datanames(data) <- c("ADSL", "ADLB") -join_keys(data) <- default_cdisc_join_keys[datanames(data)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADLB <- data[["ADLB"]] @@ -139,9 +138,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeXVAEJ1DU2t7fzU9DoApAB8Uz0lxrTU5IzsAISlAGoAkpU7ttPZUzoE7ApglQDCWE5OAHI79wDiFwUX-aWVTtVPLmByAIAXwCACsiNkogBrOCsUS5RI2ZL8ODGKDCUhRAj8WiiJrgyEwuHAaDweF5OQAXVcEAqNTqeWAwAudOqF0p1NpfUGyMSTJZ3PZnKUaFQdWy6XOEBKeR0AF4dHlcD0+EIRKJ5TpVcIxFKSiUGlFMVB6BAiIwYNx0qwovQbSlzaJMQBzZgovX6krUE1waiai7VE3mkLm1h2MSkHRYMQYjVpTI6AAStGdGQjOmebt0AAUiE6DP0oKJfdk4G8Fvq8qTdAqBQNy9LPToWDAopoWJqCBkIQQxFFiyJ1HB+B6m6duzIxJr24xaCaRFiJ734ayCqJBPRi5GFWcWVgALJvHR7-dXcoXQHKxtjgdwIf8f1gUoHi4VkpyK9j1AsWDYztLvtb3vUcmy7HspwVdtqEEOBF3AlduXeMBs2fUpT3PPBj2Q1DDwBT8xx0IDyAfHdzifapbCPC4bmzKiwB2Z5SgvN8dA-FiOn4I0iFCP0FQAMVKapvgrAJ33wpYVlUTVIn7OhlxAmSuknMjWToypSj4vi2Uwojh0fABNC98INOBuFk5S636OiAHl7nsWwtKPXSSKwwyAR6AIAloYwdHYbJVigCxtGsGwikbUQsggVhSnQdhRQAEkEWgCgS4tGG0fwlCBJQwCBSkgA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} } } } diff --git a/man/tm_t_ancova.Rd b/man/tm_t_ancova.Rd index 4ae3312b6..82c76ee1c 100644 --- a/man/tm_t_ancova.Rd +++ b/man/tm_t_ancova.Rd @@ -100,8 +100,7 @@ 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADQS <- data[["ADQS"]] @@ -163,9 +162,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+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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOyARVyikrLK6v4AR1ElAF9FCAArIni-AGs4VlFE0Jtw-jhjKGFSPwJ+WlEy0fGpmeBoeFmkuQBdVwgcgqKk4GAFMBv8p-PL6+bWxdCHp5yWm8PkoWDA-IxlhsiDBUEU6KJSOwGpksABZHQAXh08MRDQyEOMmJ0TwAQogdAAFahQAhwehEJ64PE6YgwokEJHPcnZRiCADmOgAGoziWAAMLksXQ+jxDyWCBPIYZORMiAZTJi2wo1Fi7JEnFItUZHQEon-NE6EmM5ms2FYjnm9GZEWOnRixUNIZDEHoIrxaKGjJJIlJVUZPhCESiIkR4RiQPGkp+dZQcxETRQBPG7FQehwahm54AOTFAHkAGqZOy5kTWo3ZpLHXRY-5fOvZjJQTTbaLsmJjWmiPyifNwdRwfhZjsEfsyMREjPUQRwDazwfsAG5FL-csASVyu9sirDHYyI5E4-4hYA6k4nABpHQARh02UyAE0dAAOJ7M5Un7NQT8DNGD7AcxGHUdLynbMZ3A6MsRA2gaxXOC51mF4UgdZ40RdZ5NW1XU8MI7JFRVP9jXPMdyCvFscJ1UiwAo8j62NICCShNksXYyFbQAtjF2AlgwPQyCLxomDjTQwcFxYZD6BEVd4I3L4sM5MUAAkAHFiMrV4wDkFjTzPKCaMLTSdKY1j-wo4hNCE0D7TXCCqOgiiMmk+dELklClPQlSWjU0lMlyFw8FFXJ7EyLUnzw0LhQMozjNcsy6MirBosyWKrNPJLs1QFhYE2ETBzE6iJ0kjznIQnRF2XPz103bcwApFFMgYvDWoy1Fj3cnQUonQsADF7wPAwhuvK0co7PLjXicg1HWECSpc0yKr6zyaqQ3zNoCrcWU5EkQrC5r0sy7LTqcBLDP47MBtoiKopi39rJ0JVjXer0lFoQl2Hm1QaQ0bRrBsNIjVEOIIFYTJ0HYNBUAAEkEWgUnhhGR0YbRGCGfolDAfpziAA}{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 f10ab5bc7..63d00a333 100644 --- a/man/tm_t_binary_outcome.Rd +++ b/man/tm_t_binary_outcome.Rd @@ -133,8 +133,7 @@ data <- within(data, { ) \%>\% filter(PARAMCD != "OVRINV" | AVISIT == "FOLLOW UP") }) -datanames(data) <- c("ADSL", "ADRS") -join_keys(data) <- default_cdisc_join_keys[datanames(data)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADRS <- data[["ADRS"]] @@ -197,9 +196,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeVYlXUNTa3t-IyiOgCkAHyTPSUwgqHk7PMlZQBqpdUAwjoAvDr8USTEUeOoUdRQ9HDU7KVbuzYzcxDrH6npGVc3d6tgHYZFhQdSqHRYMTCUgAegAYtl+NkAOYKMABD4vWZrYy0ajkRjsAAKpSwpQAsjtyjoAISHNEAeQ2WAAkgA5DZonQAH02LMqLNsB3pYDhDOq1QZAHUdA4iWiAgBfAIAKyI2SiAGs4KxRLlEjZkvw4MYoNCogQkaImmqNdrdcBoPA9Xk5ABdVwQCo1Op5YDANHe6pot0er19AZGxL+wMRkNhpQsGDnE0WogwVB1OiiUird5lLCU6mHbO5xgmg46QOFnQAITRBWIGcrBABpPJZQbVbA7Z0OwVclwPV7JdoOfY5eMlbRtcQOiJ1wIcHoRC7Tczh1bgbn5UYgmROgAGl20Ts5zt0-RsiFLIF0QEAmhM8lsuk8yU8pW8kP83whCIJkOP9hDEd91gaKJSCiK9oDYE4libOAwI+a5bmoacwEhURUBIY1xgbNYP0SJ1dBFCp+gI-MPlQEFGn4FsMnVJdRCiUQ7jgMF+GQz4CEYmQxErTRuEEOALT45iHgjAo0RJMkixPMBZIpBUf0+dY2JETiMNrJxKn6IkWTRQidEHYykyiITGAYpixFY9jOO4j5eJswCdEs2gbhEMSXMk-pGzbQsFPbKkgp2WxgvKAdVLUnQNI48h6LIwKwGM0yqPWczJzTZtDky1N12ij4c2YUILJYaz+JYuKHOMkpnMqwSWA8+gvPqiTyMqfy0UqJxjzwbta3JLAAGksAAJgUskdhce9Cs+aqEowqaZtSuaPxNM18RTbCSDY1zS0c9YdL0yoDMrA7avWC4WwBC8MxEcgITEHCIDYnR2B2LBFH6mSWA0bgnp217dGJL6VMukoRG0ahXK3dKYu7O6fDgR6sJet6PrBn7FL+jz0LR3aQaJLG1pi7rQha3RyjHOAoAxypym+6TFMYIhkXLURRC0KmabponGaM+HPgxGK0oR9kNicIVR3HCGdGuzcAUqCmRB0am2L596GaZ7s2SIUgdCcITqEETyQbZJxvrFhGdChu5YcOtTT3TZHUeewn3s+nW0T1g2jeEs33ot72ccYf78fd4H3uJpm5ZKGTWfZsQue0NXeYxokBex5XA-V2n6azuWRbU621KZVkOXOsdczlhWdC3Fm2Y5lOeY1jOs+ZnPKbTtuQe18GhZQuBoYdhOm+T7me-z-mQ671W8819h++x33DeN03u-YYOFUu4v1j3kWHyUWgp3YbICVBDRtGsGwinzUQsggVhSnQdgnwAEkEWgCg-tjGG0fwShFRKDAIqN0QA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} } } } diff --git a/man/tm_t_coxreg.Rd b/man/tm_t_coxreg.Rd index 7915e7152..ab7fac86e 100644 --- a/man/tm_t_coxreg.Rd +++ b/man/tm_t_coxreg.Rd @@ -135,8 +135,7 @@ 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADTTE <- data[["ADTTE"]] @@ -202,8 +201,7 @@ data <- within(data, { ) }) -datanames(data) <- c("ADSL", "ADTTE") -join_keys(data) <- default_cdisc_join_keys[datanames(data)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADTTE <- data[["ADTTE"]] @@ -245,14 +243,14 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpQGI3OgGK1Go0jpwAB6wqCLungC80TGxMRF2ABa6waEiOvRw1EQA7jq0ohlQonD8OiQ6pMk6gqKC3DpoqIxEUASJ+RCaRNSatBAA5joEjHBQGhVExglQOswQ-EQwOgDCACIAkgDKKzr848VwAVALlckQc2bKQ1W6TXSyExAYrtCMMAD6o8YfxDCo+iMdH87CUOh0AEEVrYIVgALLrHSRHTA0igi7guZwYxInQKMCwuE6ABC+NwYMxfwByIIoIJ8MhZLx9KJK3xigxcnJGMJuNR6MxWJxyPxxMQOgACtQ2nB6EQyRTwVTcbT8RDxWtGIIhgANJn4lbilZLej9caWCDsikcjlKfakWaGSpjagfe1Qax2g6AnQ5WhVfrsd24HQgCkQtZbAAyPtIMAIH2CHyg-FE1HDa1sticsfjiaCyf4pHISgAvhyAFZEfofADWcFYoiDBxsTv42KgwlIv34BQTVZr9cbwGg8Cb7rkAF1XhHoz73cBgGrI1H8ZPpxAI1mc22Dovl9u1xulE0ff1-QK9t7kcGKXwhCJCsj78IxJfwXGPt3iEFRgN35i0qZNQuIGkQQQ6FgcADC8eCKpi7qjroIoEpm2YKhigosJ8mgsCqiTVgQYgfCUIjqKU7Cqiy+osusNFQjC8J0WAXLMoS7LcoK4LYV82K-Es1KNO8vE-FSnFcagLCwAQZQ0gRMjEaRcDkfwAGCrh1CCHAvzyURTZbtmIb4hKsIQgiaw0SZWBmRxzIAPJbPi8Hglyzk6P4zAOh8uGMPhhGKVkynkKpblKnSKx2Q4ABy9gAJo0Vs9gQjCACMCVJTCABMtn4ol1mpU5mGYq5RVKkQmjeXhcn+aIJGBSpamUnSEIAOIuHgzLEnCWAANJYGlHWit1fXZYNYBYE4LUbHZUUDaxaptYVXE6CVy0wF2WgsLQ4zIXYjguEVHIuUoHK0Di7D9OQagaNo1g2GGGKiIk-SsBC6DsE0AAkgi0CGX0lIw2iMBypZKGApaTkAA}{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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpQGI3OgMpxiEfjpwAB6wqCLungC80TGxsRF2ABa0ojoa8Lg6UDqirGSJcBoEOqhQtIw6RMY6AIIAIra2TgD09V4AMjr8UKTZKSZQTDI9cAHGRBUAwkRBOoxwAObzoqKWEAkA7gXzabRiWf4lmtwA+vCkiQI6MD3kjBhKdEwsHPxhrIyK6-492YZpcFO3V61iUwL+Rg2tAutAg7HBmRASh0tQaTX0RnBGGMzHg7GRKO8tgcdQAmgBJOo6SI6BRgdoOAByAHE6bgCSiagA1GqdGkEdgAFkyAGZMgBGCWZABMMtFUp00rk7IghJ0k0ZXiw1J0AslOn1+oADArjZkTTojcqObUsABZSZUmnGKDqCb41Vq3XsC2G03mgOW83Wz1q6iDODUVL8-FgGr22ps2lxhMAITpXzVIbVXicAA0dS63YwPV7vRaK4G-QbTdmveH6JHo966QAxJN0u0Zm11lHkzW2Quu0jugV0moduOT9N4ZMzzLj6eTiezunz5MruS9nKkRiwhaiGqiVvDibN1u83MEzOoxpODFzeiw-jsep3zJvpoftFOb93m+fve-xQKIJwaPQ9AiK+P43qIhQYHBozsOKAE-gAJP2XiDv8oihFBgEYQOqF3mhNTMkBRi4TAYRwOwcEAI7sAArJkADsLE6Exyo5LQABeug0hAjBEBs0H-pk8xhK6Al2I4TjEU0aEOF4DipgAUpSD6lKI5CxqIgj0Em4qIEJIliU03EEZhtiZHBqA6nSBjdp6BEAArxjUdoPm5HkOlS-x0gA8l4dIEm0nQ4QZcGkKWhKASqapwSI6g6mOYDKapGl1JOWEkhS2Wrimfk5fmk7Wcu5HOSiXwAL5fEoABWRCwicADWcCsKI8K-DY-z8HALrCKQJwEPwKQECcTUte1nXANA8BdeCcgALquBA4UPuCwDAOOdQdHSy2retP6bb8227XeB1HQkAAGXDUDdWToHQsgaCQCQGJ9X3fT9TkQB4OiMkQ5BpIkPSg7o2rEP1gRBKgEzkAE9CsDoN1eJcGw6Nq0z9Y9-BEPsEDAzosKSIIMMXLo4IJKg8wGLTRAEGIqwQAsGA6KSRCCDoULUNQOgQHAoxpEQurzCMENdL80VZKkgxENoOiNuM8wJIwZjKAskvBPDjCI1juoCHADzfCwMAnPMxgjUQ1EPnQOmvvajo6vbMWWw5RWJrOxC2zG45phmW5rWg9n-LC0KxeCOoIgSfBCCIzZx8IYixSipDm8NxBBPMCyp4SDaRh70yzFgiwPHgNoouC80yRdTRspXWSMObxwVPylwyGIJxJb4iPsGl8bFWA3H+0P24ombFsDdbvtN+blsz6gCVeqUuKjalHdM6BPfqEhjcosc1CCHAI2byn8XJu5WCeY6k5X55GYLmAwWhaGhLjzuzC9Ccrcb81W-d0jL3JCaVyrD0yIyBw7R2gf2IJoH+LA-6d23kA3eL40q5jzBVFw4DkyYMfo3GAQ0tAsFoBLGk9hnA9mvEoL4tBqjsFhHcYcWhaJbh0EiT0ohkgQFYDUdA7AQ5oUELQTIQi4KMG0J8JQNUlBgBqstIAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} } } } diff --git a/man/tm_t_events.Rd b/man/tm_t_events.Rd index 17c6c97b2..88c500d09 100644 --- a/man/tm_t_events.Rd +++ b/man/tm_t_events.Rd @@ -101,8 +101,7 @@ 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADAE <- data[["ADAE"]] @@ -139,9 +138,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+UWp0rOzMpyKSssrq9zglAF9FCCToeFFE0JtwgnYFMByC6ZTpnObp-oArIni-AGs4VhGk8aN+OGMoYVI-An5aUTL1zZ294EHYMVHPOQBdVwhZwvCksBgIs8vlpp9vr8mi0AaEgSDlmAIT80KgivFolMIBkkjoALw6JK4Bp8IQiUT4nSk4RvBoZEp+C5wbRkEZ0jI6ahQehwaiUxb8bSMUS6Jws0h2bkiebsnGhIa6AkIlx4WU6FgwPyaFiUggxDYEMR+EUidRwfjsSaLLAAWXmOmtNoAwtkVgsZra3WrqNQJQS9QajSa4GaLWqMgGZGJKdrGLQpXBLvqoyMlk4UlaZk5bE5PXgHVnsk4nQB5V1gORyYnYjm14Oh3VTQvFssrNVVtUxX265OG0TG3kh8hhmu1iO96ME2Px+giJOB1PQjNN5oAITLuQAmrl7YsnLkS06Vh3R2P68P+Vn13lt9N29Wx+r+PxGURPHyCfZnA+x8yKBdSFYVBFQLGohRFHQ-zIO9T36DJ+n6WhjB0dh4nINQNG0awbDSGtRDiCBWEydB2FRAASQRaBSciRUYIV+h6JQwB6T4gA}{Open in Shinylive} - \if{html}{\out{}} - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOzMpyKSssrq9zglAF9FCAArIni-AGs4VlFE0Jtw-jhjKGFSPwJ+WlEyoZHxyeBoeCmkuQBdVwgcgqKk4GAFMEv8+5Ozi6aWudDb+5zm59elGhUEV4tF2A0kjoALw6JK4Bp8IQiUTQnSI4RicEQDIZEp+FZwbRkKYNHE6ahQehwaion78bSMUS6JxE0h2Skie7w7Fk2GhA66GE-d5c0k4lgwPyaFioggxYYEMR+JkidRwfjsAjgh5YACyXJ0Pz1AGFsvc5CkjfqwBaxRlqNQ2TC5QqlSq4GqNXacS6ZGJUdLGLQOXBVvK-VNfk4Ulqfk5bE49Qa49knMaAPJmm22nm8nTuz2y7XNVMZrP9PM5vMxR2y8OK0TK6ke8he3O830NgMsYP0ERh12R94x4tOABCmdyAE1csmHk5cunjeaq3n883C0L5xO8jP7t7V2Savx8URPDSYfZnNy84SKCtSKxUILDSh6aomTo72R9+2Kzp+n6WhjB0dh4nINQNG0awbDSHlRDiCBWEydB2CBAASQRaBSDCmUYBl+h6JQwB6E4gA}{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 492febf7a..158dcdced 100644 --- a/man/tm_t_events_by_grade.Rd +++ b/man/tm_t_events_by_grade.Rd @@ -92,13 +92,12 @@ library(dplyr) data <- teal_data() data <- within(data, { ADSL <- tmc_ex_adsl - lbls_adae <- col_labels(tmc_ex_adae) + .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 + col_labels(ADAE) <- .lbls_adae }) -datanames(data) <- c("ADSL", "ADAE") -join_keys(data) <- default_cdisc_join_keys[datanames(data)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADAE <- data[["ADAE"]] @@ -137,9 +136,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEPxQpFD6RlzUAPpBIdZKMaGGOgDutKQAFrQQ7Am4OiBKOjoAggAiAMoAMmE6pDAEkXAAHpFQ-KLUhToY1PTUoq1BuknEUdRQ9HD9nPWNLW1QcAFFZcVONXUNzYOLOgCkAHx7XUUwgiHkkbTG7LTiBOksUOqqeVDixs+kRP46AMQAch0kx0BFUISyOiIxh0j00WQA5iYvj9RF1RpFxpNpqsnDYkj0+gMFnAlABfAIAKyIWUiAGs4KxRDlglB8UZ+HBPsJSJECPw7g1qbSGUzgNB4MyEnIALquCBlKo1BLAYAKMCKyrqmVyhWlNbK1mq9W47W6pRoVA1LJpdhdBI6AC8OlyXT4QhEoidOndwjEdogRSKdUivLg2jIA3orEiCOYnIDQaDWKm3pN-G0jFEuicEdIXujOgA4vHdLYJiJ1bgTkGEhLdM6TfqXHga0UWDBIpoWN6HjSwQNsyIXvx2AQ7RqsABZKs6E3TgDCpXVcjy85nYFXbZ01GopF76X7YkiQ7gI8TSaDfZkYm93cYtArcD5h5vzNxeXHJqctic09n36lE4C4APLLpuW6BpeRSniOvYTmsQGgeByyXpB0HpHuB5HoOUxnuQo7bkU14DneLCPn0z4kf6H6gghTgAEJgeUACa5QARqTjlCBC4ruh0E6LBBFppxTEVGx6rbvxSZxm0Dagq+A4nnh55EQpOFkQ+T4vjh7C0V+nG2CBAAaRZYBxazlE4ABqfHVlB0FCXA-AiWsRmmeZYBSTWqEBAE1w6LcKhqBo2jWDYBRQaImQQKwxToOwloACSCLQbzoEl2aMJmARkkoYBkjKQA}{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 31d84b6cd..d5a2b8702 100644 --- a/man/tm_t_events_patyear.Rd +++ b/man/tm_t_events_patyear.Rd @@ -98,8 +98,7 @@ data <- within(data, { 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADAETTE <- data[["ADAETTE"]] @@ -170,14 +169,14 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeWlTra2TnUNTa3twXCk5DoApAB8sz0lxrTU5IzsAAqlWKUAsgDC5XPZszoE7Apg-YNOAIzXBde3QwBMTzovA0MAzNdyGwLJYQEolGCCULkdi0UTNbRkHQAXh0hwAcpUsMiUQAGIGLZY6CFQuDsCDwiikUTInRQcTZcgAc1UMLhcARpEBSgAvgEAFZEbJRADWcFYolyiRsyX4cGMUGEpCiBH4sKaAqFovFwGg8AleTkAF1XBAKjU6nlgMAXlVqtdDcbTX0fsMZYkrTbXi4wA6TUoAMQ6e4YHQAITpMh0ThasB8cBNaFQdWy6SuoJ0eRpeVwPT4QhE1JReeEYjTYPqMCiSvZlLhqBCrDgLDL5Z01Cg9Dg1Bp3x0WBCulK-D5glE5H4JiIjB0WxCtEpBgAmk3GNTSqQ+7DhXYOyInoSSnldboUZ6Xfv0+WWJXNCwaQQMoKCGIoqIu3B1HB+C3WxdHzIxBpW9GFoXc4GVf9nwlM1qgKS4XiwfZPgQo5ygBOQc0vVs3xET8J1PG5EOOa4Dx0DDSI6fgqyIUJuxRexnEw38azIOFgPvSCXxwj9xx-VsHyfQCUWA0D6BECDBOg507meSAKVYgEmN-HRuLwns5JYqkL2UkxaBaL8aQYlwsJKciTJ0etmEafC-0k193zwvjywEgDCx0W9qEEcCXKg9gKi9WSdj2VDkLAIKDkU0iSlU8d1K9R4wFIgJy2SsilACWhjB0GEVDUDRtGsGwinTUQsggVhSnQdhEwAEkEWgClqt9GG0fweSUMBuUNIA}{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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeWlTra2TnUNTa3twXCk5DoApAB8sz0lxrTU5IzsAAqlWKUAsgDC5XPZszoE7Apg-YNOAIzXBde3QwBMTzovA0MAzNdyGwLJYQEolGCCULkdi0UTNbRkHQAXh0hwAcpUsMiUQAGIGLZY6CFQuDsCDwiikUTInRQcTZcgAc1UMLhcARpEBSgAvgEAFZEbJRADWcFYolyiRsyX4cGMUGEpCiBH4sKaAqFovFwGg8AleTkAF1XBAKjU6nlgMAXlVqtdDcbTX0fsMZYkrTbXi4wA6TUoAMQ6N4YHROFqwHy6NKZepQegiHSiHzpHQkIO0xgwKKaFg6HOMWhxkSiE1oVB1bLpK6gnR5Gl5XA9PhCYs05vCMTVsH1LNK9mUuGoEKsOAsLvdnTUONwag0746LAhXSlfh8wSicj8ExERg6LYhWiUgwATVHjGppVIC9hwrsRbgT0JJTyut0KM9LsfNe7LCz+ZpBAZIKBBiFEogznA6hwPw44ThcQEyGINL5oW8ZwMqCEgRKZrVAUlwvFg+yfARRzlMRYCVE4AAaAJyI234TuBIhQVuKL4TchHkZRNFgAEcF0U+tL8PwUSkEQoSzii9jOPRcH9mQcL-mxmGgUxkGbrBE6AcBSEoih94YTp2HOnczyQBSCkArJcGJhBLFzuZ8lUl+NkmLQLTQTS0kuAxJQCb5OhDswjSsfBRlgXZGmCSU2mIdSencII6GxVh7AVF6Zk7HspHkVlBxWdFtnMZuDleo8YCCXxYJVQEAS0MYOgwioagaNo1g2EUNaiFkECsKU6DsGWAAkgi0AUw3gYw2j+DyShgNyhpAA}{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 04b868d34..8aeca58dc 100644 --- a/man/tm_t_events_summary.Rd +++ b/man/tm_t_events_summary.Rd @@ -126,7 +126,7 @@ data <- within(data, { ) ADAE <- tmc_ex_adae - add_event_flags <- function(dat) { + .add_event_flags <- function(dat) { dat <- dat \%>\% mutate( TMPFL_SER = AESER == "Y", @@ -149,13 +149,12 @@ data <- within(data, { } #' Generating user-defined event flags. - ADAE <- ADAE \%>\% add_event_flags() + ADAE <- ADAE \%>\% .add_event_flags() - ae_anl_vars <- names(ADAE)[startsWith(names(ADAE), "TMPFL_")] - aesi_vars <- names(ADAE)[startsWith(names(ADAE), "TMP_")] + .ae_anl_vars <- names(ADAE)[startsWith(names(ADAE), "TMPFL_")] + .aesi_vars <- names(ADAE)[startsWith(names(ADAE), "TMP_")] }) -datanames(data) <- c("ADSL", "ADAE") -join_keys(data) <- default_cdisc_join_keys[datanames(data)] +join_keys(data) <- default_cdisc_join_keys[names(data)] app <- init( data = data, @@ -168,14 +167,14 @@ app <- init( selected = "ARM" ), flag_var_anl = choices_selected( - choices = variable_choices("ADAE", data[["ae_anl_vars"]]), - selected = data[["ae_anl_vars"]][1], + choices = variable_choices("ADAE", data[[".ae_anl_vars"]]), + selected = data[[".ae_anl_vars"]][1], keep_order = TRUE, fixed = FALSE ), flag_var_aesi = choices_selected( - choices = variable_choices("ADAE", data[["aesi_vars"]]), - selected = data[["aesi_vars"]][1], + choices = variable_choices("ADAE", data[[".aesi_vars"]]), + selected = data[[".aesi_vars"]][1], keep_order = TRUE, fixed = FALSE ), @@ -195,9 +194,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otQ6AKQAfD3FJTowgqHk7EPDOuW2ABIAYrUAvDqyonBRKRkUkxDT0wCEtOLQ7LNzszYAfjoKYACa97hTB-bOOrf33-sHNv09VLpDJRahQehwaiTMCVQT0ABWcHUMzgIQyOgWYIA5vcAtM8WVyqUnHUGk1Wu1gnBXL8MB1+M1tGQosZsaI6qZzBorLEbEVfiVYnUhQDXiVRuM4HsDsNbABZAAKSyilScWB0q2JqvVy1W9yeeDFssVyqwThWZTV5o1esezyNJXlSuqUQA4lgAKway22ADyAA13Ta7mAPfaBW9FSq5QBFAAMAEZvcdTlB2JVY4mAHKlOVyF4R6ZO6PxgBMyZOGDOGbLObzBZljqjAGF40nVimq2nW9ncwT8a9iNRBDAIKDwZD2ck6KJSNLI86VWrvfdKqpLIJ2cTwzKnabrbasJCQnB+Jadwvle6vbbXcx+LovdvDYW7FGa4nvVAxLRxxCobEwDAKumYJnW9wALoQQUgHATCoGVM2kEQfmRrFh+5arN+oi-mC-7Qg8GAAJzEaRREAPQAFpkWRlqVAAkriDYLlEPbtjo2G4ROAEhEB9xseBYBQf2OgiUOf6TrkIRyMA0DwKI7BDiOY54ZOcgQXUUDiAQGQsFA6iqIpRDDqOEnUKIImxEMAC+NIlAAxAA5DoroUKoITZFiOibqoBgPsY2SnjocBMqQJhshgQwVMSdTRSSAI6HS-AMiFFCkCybLxIEtLfu0EDRJoLBTkYcliOwcUybOLCkKIADqwLsKVCkVQU9x7i6uIQUMdI-lEhWMMVOhNeVRJOJVoSMDV9WZI1sBlS1IbFp1SjWQE8JENkUQANZwKwCl5DYyT+VAwjpQQ-AnE062bTte2yXN+2JOpNJoKgdTZOk855N6eTMXwQgiOyqz-cIZWvA0UTpalZCiFEogjjAnjztMqndLapT8NoA26E4oXsrCMCI2wF7THkpUrmAcUk8MLAwH1LDejpG0EGIcOQki5D8MjBxMzIYjev1tDgiIUS8yzCn3BUNTPGs0KlFgcoy5LCvNuUuKoa+JQbCIBlnujCs-DKGsyqyUBYvTjB5WjawZMzrPaxzp7c9MYv86sgvC5srsS5To0y3kfFgD1VsW6IyHG42Du6z9iSB8HUD5aHyHAAm0EOjoO1wKgUREIwD6MN67xOMxJu0C0QWrAspTVKqRoR9Mpvm-17Q-oztt87DUec87wzewLLBC-QIve3Lft4DoAdwT1OFJ0JKElwcXcVxPsdT5xs9QSnaeaxncBZzneeqIXjjF+nAXl3rGLV7Xr71zTyWQ0QoTW0XrwEgEAS0MYOjsNk5BqBobQ1g+RDFEFkCArBSjoHYK9AAJIIWgBQ4EbEYFjAItkIBgGshBIAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} } } } diff --git a/man/tm_t_exposure.Rd b/man/tm_t_exposure.Rd index 666ce48ba..7aec2d4a8 100644 --- a/man/tm_t_exposure.Rd +++ b/man/tm_t_exposure.Rd @@ -107,7 +107,7 @@ data <- within(data, { ADEX <- tmc_ex_adex set.seed(1, kind = "Mersenne-Twister") - labels <- col_labels(ADEX, fill = FALSE) + .labels <- col_labels(ADEX, fill = FALSE) ADEX <- ADEX \%>\% distinct(USUBJID, .keep_all = TRUE) \%>\% mutate( @@ -117,10 +117,9 @@ data <- within(data, { AVALU = "Days" ) \%>\% bind_rows(ADEX) - col_labels(ADEX) <- labels + col_labels(ADEX) <- .labels }) -datanames(data) <- c("ADSL", "ADEX") -join_keys(data) <- default_cdisc_join_keys[datanames(data)] +join_keys(data) <- default_cdisc_join_keys[names(data)] app <- init( data = data, @@ -161,9 +160,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeVOABp1DU2t7fytrhAlonCkGDNw-OwAjAUA1tn8OgC8OgpgALKqMxAQcAa2aaLkjPsBJRjUUPRw1KJ1xNFPL2-sFQMFYy0ajUHY6ABipWqlSc916Azq-0GAFIAHzInolfi0a7ZdTsByVBwAIQAUgBJcoFDBrOBwVDtEFg+zOGxojFTEo6GCCULkdiYrkABVKWFKBwAwuUwftbOUHFhyvtcIKSiKxQcZWAAPLaZhMoTMDQkHS5KCsUSKPCqsoANShYNEsB8cHYLUdcAAjisCgAmAAM-rkBVEtAAXrpdjlgzpGPSngRI3ZHLCVZyuXaoQ4teVzaJ9oK2ejBfRNlFGEQUqI-n1+nDPlFvq9q0ibMlHs9m0oAL4BABWRGyUVpFrNoTbRnGxigwlIUQI2NETQHQ5HomA0Hg1bycgAupM0Kg6tl0gLOXkwXk0yU+EIRO9drfhGIzxmGlE561UERRII46+Mx0JtQV2fZyj-EJLCmIhjB0JwWm-X84zsZ4RGVG08k3JN9iRdD0y5VAWFgBcwQIDJB0TUQohmER1EWADAJ0MiKLEMFNG4QQ4HnciZBfPJgGAHDa32XddwKfZ1XFKVlT2MBJIOO5r0YnQaLgOitlAsA5QVJUwBtYMbQbehWCidjGFInjKOo141PIJYbRKZjeIfHQzNoVCuKcyixygAShIGESxJUwR6BmUhSIFMAYX6GScKwBSwDkAz8IzVT1K1aKCxSnRksYisUiiYzTJYCyWKotK7IYwCvNY3Y3I87iyp8vywFwsBRJDEKwoi-YxQlFw8FkrAnAAcXJbUADllliqL7FKWxSmmwb9kyxLcuUirFi1PqBv0pSM0IxhZHC3YavKmz1KqjMzrYjjPMsvjEhatqOtk9UJXm31FIclSLrsnNGEEABzMossY9aMw6fgPyIUIQIhKEYULHp1qBagbjBSJqLobysa6XjIoqGoZsqUpwXBaoZM2jTZIATTuAIAloWD2GyG4oAsbRrBsIpOVELIIFYUp0HYQ8ABJBFoApxZmRg9QCbslDAbtdyAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} } } } diff --git a/man/tm_t_logistic.Rd b/man/tm_t_logistic.Rd index cf2d024f8..41a8e2bad 100644 --- a/man/tm_t_logistic.Rd +++ b/man/tm_t_logistic.Rd @@ -80,8 +80,7 @@ data <- within(data, { ADRS <- tmc_ex_adrs \%>\% filter(PARAMCD \%in\% c("BESRSPI", "INVET")) }) -datanames(data) <- c("ADSL", "ADRS") -join_keys(data) <- default_cdisc_join_keys[datanames(data)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADRS <- data[["ADRS"]] @@ -131,9 +130,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEEr8UKRQ+kZc1AD6waHWQSFhhjoA7rSkABa0EOyxULg6IEo6OgCCACIAygAy4TqkMARRcAAeUVD8otTFZeVYlXUNTa3t-IyiOgCkAHyTPSXGtNTkjOwACqVYpQCyAMLlU9mTOgTsCmAAQk6V-WsAkucF53cAcgBqTrbncgEAvgEAKyI2SiAGs4KxRLlEjZkvw4MYoMJSFECPxaKImkCQeDIcBoPAoXk5ABdVwQCo1Op5YDAc6U6rnElkil9AZwxK0+lspkspQsGBRRgI1FEGCoOp0USkM4QEqlXa2TZ7A4AXh0Upl8x0wuMOnV9Kw2x0F0e2uI4v1JzOYGVZUeOkNxt23x6clwPTt6s1spKJV1VvOF0QOjW1CgBDg9CIZrlfotEvVp3pIfKjEEAHMdAANB3nXYh3Zi+jZEKWQJgAIlAIBfnoOrZdK+nR5K15D1xvhCEQTdVd4RiZslBpRFHUIgZjEaZNxv0aqD0ODUQNgaoTqcyHRYOAZ4WiUTl2Nzkp5Am6A22nl4bUlAVRTQsK0EDLAyOiKKiJdwdRwfhD4-Pq+YhWg+jC0AuIioi+MiDhU-QFMmtpGnmSEqt87o3n6n4iD+-Arsq5yYRhs5+neuqipa6pkSKCYdseOioCwsBok+0Fvh+X64f+c6ATBvY6A+1CCHAUFAVCcGVE8YAbFsaF4I60mbDs3x0fROjYd+5B4ReVw3JU9yESR1aqTxRCaPej5JmxYgcThWncfG1n8YhlROLm8n0gA4i4HmXNsWAANJYAAjChFz+UFABMKmYSUGm4SurnuUR2pVjoNZKLQersNkKwRho2jWDYRRxqIWQQKwpToOwaCoAAJIItAFLVdWfow2j+EovxKGAvwkkAA}{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 7b44f33ae..7eb44136f 100644 --- a/man/tm_t_mult_events.Rd +++ b/man/tm_t_mult_events.Rd @@ -85,8 +85,7 @@ 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") join_keys(data)["ADCM", "ADCM"] <- adcm_keys @@ -126,9 +125,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+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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOyAYQBZIpKyyur+AhglAF9FCAArIni-AGs4VlFE0Jtw-jhjKGFSPwJ+WlEy0fGpmeBoeFmkuQBdJRreyenRIoJ2BTBc2wdsgE0ASWznlOeHLkHAAhABSPz+OmemVe2VsLUhz1auScAEVEWBMrYmgBGDFYpoAJnx2IAzCSmgAWZ5DPYQW4zOaeOTAaHNBF4KGY9nPc5Fa4wBmiVwQHIFIpJYCs7kFXmXUXsiWhKVs1pykVoVBFeLRJ4QDJJHQAXh0SVwDT4QhE9xNluEYj1GQyJT86xga3K2jIswaTp01Cg9Dg1GNXKaJGIMGiUDIOhacC2sg0JHu9FYcYTMg8ln1TQDonuMf4OgACoxlqpy8WAHKwOB-X1OpLHXQm1Uc836v06FiCzQsUMEGJjAhiPyiYNwdQJ9iPaFYDtczILpq-MByf6Yhc0zvdnQTgCOfn7jEHw5kY4nImn-CeYGRaMhV6n5GLbfvLRR6M5xloFQTob2M4G6NhkMTUKQZ4jpek43o6e46EO0E2joJ60IGIgbOeo6zDkrQpHOmLYninLQtixKkURTTkpRBLUuuIFdnuz43oOd4EiRm4EhRXFkhS9FDHujF7tQEFQReojjrBr7wXuSESaGaEYXAWHIeweEtARd6tNkThNAA8mucjCQhLGvmxSItLpBlGaBOgmX6NT8K6RCeCGJpAU4u7dnAXrrKQrCoK2XKkOWHjwGQzyNoJ9lKEMtDGDo7DxOQagaNo1g2GkXaiHEECsJk6DsJqAAkgi0CkpUTow2iMEM-RKGA-TnEAA}{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..9138d5e51 100644 --- a/man/tm_t_pp_basic_info.Rd +++ b/man/tm_t_pp_basic_info.Rd @@ -40,8 +40,7 @@ data <- teal_data() data <- within(data, { ADSL <- tmc_ex_adsl }) -datanames(data) <- c("ADSL") -join_keys(data) <- default_cdisc_join_keys[datanames(data)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] @@ -67,9 +66,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWolAF9FCAArIni-AGs4VlFE0Jtw-jhjKGFSPwJ+WlEyto7u3uBoeD6kuQBdVwgcgqKk4GAFMF38442tiCU0VCL46PZ0nSSdAF5n0NwnviERUTedD9hGJHhAMhkSn4Jug-PQoKIZH54sYiKDweDqFB6HBqADjgAheEyHQASQgKOOXzB6I+nhWunex1OlKe6NQHloFAmxFxjLADlyDnxACkSdkWdT0ZoWP93gQYu0CGI-KIcXB1HB+GiaRl5YqxADpYxaFiRJMFTIQac5FSdRlVSINfwAQRHicsABZSk6JkAcRceB9YFyTgAGt7jgBhADyDgAcvYAJoRsBYTKRgMpY5OaO5XK2WzHZo64vg0vNZq0Yw6djxchqDTaaw2NLU0RxCCsTLodg3AAkgloKX7qsY2kYzQaSjADQ2QA}{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 527289156..f4d00026c 100644 --- a/man/tm_t_pp_laboratory.Rd +++ b/man/tm_t_pp_laboratory.Rd @@ -71,8 +71,7 @@ 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADLB <- data[["ADLB"]] @@ -119,9 +118,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOz8gCEikrLK6v5qeiUAX0UIACsieL8AazhWUUTQm3D+OGMoYVI-An5aUTKRscnp4Gh4GaS5AF1XCByCoqTgYAUwa-zHs4urptaF0PvHnJbXu8lGhUEV4tF2A0kjoALw6JK4Bp8IQiUSwnTI4RiSEQDIZEp+NboPzUKD0IjMUgUjgNPE6Un0ODUdGPABq0W4okeiNxdPhoSOujhf0+3NpeNQHloFDWxGZwrADlyDmaACkAJLZMW8umS5ilfjoggxUYEMR+URMuDqOD8HF8vHG01idGaFi0MkidYmmTY-7NFKPAAKmSwmQAsgBhLVgOQ8h0ZS0iG2GhUhsNRmPijJx7M6PWwI0+s2iC1WlP2hNO31ouFuxge+he6sl9j+wNgdMRx65nV8pPW8ipnTB0PdsB53sOjTwVCjMi1nQt80Dit5jLLxf1xvN4t+z4dnIATR78YTq6HLKe2RPE77ObPdKgEAbEGHm7LyaHlYdm9d7s9OBvWdGZ2xHJ4ADksHVCCYync9y0vBVMigmCs3vHR4KfN1-HrIsQM-QdbR-Pk-zrACmyAzc2wPcDMlZTIXljR9+0Q20r3oxjHknFiMigHDBD8PC4Q-C9iPXJc9y3CjdxAmiWkPBj8gcU8JLE4c-iUlS7wdQY6T0zClEGWhjB0dh4nINQNG0awbDSXlRDiCBWEydB2BBAASQRaBSTzLUYbRGEGPolDAPoziAA}{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 cebbb255b..0de76f252 100644 --- a/man/tm_t_pp_medical_history.Rd +++ b/man/tm_t_pp_medical_history.Rd @@ -52,8 +52,7 @@ 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADMH <- data[["ADMH"]] @@ -89,9 +88,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOyAWQAJIpKyyur+GBilAF9FCAArIni-AGs4VlFE0Jtw-jhjKGFSPwJ+WlEy0fGpmeBoeFmkuQBdVwgcgqKk4GAFMBv8p-PL6+a2xdCHp5zWm8Pko0KgivFouwGkkdABeHRJXANPhCESiOE6FHCMRQiAZDIlPzrdB+eBbWT+OKiUhENi4-H46hQehwagYp5NODk7g6FrbGlsJ5IvEMhGhY66eH-L5ChoM1AsCikCXs555V54OX4hUaJUbIhsqVgBy5BwAIQAUgBJbKykUM3rkRgwDEEGJjAhiPyiVlwdRc+mijJuj1iDGaFi0ZkiDbumQ4gEtFIEKFgVq2JxYJpPORyYVBjI+kT+-iq9OZ7NgLUZPPVzExegCUQzV1xz2ib2+kuBoMh+Po+ERxhR+gxvvt9iJlIclpmgDyeQAmrkc-mC0W-eRS0bWvOlyuq-b8bWjxleltqR5W6GOxvu3Xg22w4PI9G4LGb5OvtO0y1slbclsTJbFXB8dDvLcyz-ACgJAw8gyGBlEJ0IYhloYwdHYeInSgCxtGsGw0hFUQ4ggVhMnQdhQQAEkEWgUhon1GG0Rghn6JQwH6c4gA}{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 9a523d3b3..2992351ab 100644 --- a/man/tm_t_pp_prior_medication.Rd +++ b/man/tm_t_pp_prior_medication.Rd @@ -59,8 +59,7 @@ data <- within(data, { ADCM$CMASTDTM <- ADCM$ASTDTM ADCM$CMAENDTM <- ADCM$AENDTM }) -datanames(data) <- c("ADSL", "ADCM") -join_keys(data) <- default_cdisc_join_keys[datanames(data)] +join_keys(data) <- default_cdisc_join_keys[names(data)] adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") join_keys(data)["ADCM", "ADCM"] <- adcm_keys @@ -102,9 +101,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpXSYsO-VNVaNFEPxQpFD6RlzUAPpBIdZKMaGGOgDutKQAFrQQ7Am4OiBKOjoAggAiAMIAsmE6pDAEkXAAHpFQ-AQwhSWlAMoAMjV1Dc2t-KLUOgCkAHyTJrTU5IzsDj0OAEIAUgCSpVNZc2VVACSrGzulAUVHlcdVxT22pbbVSTfHD08vXe-3TgByz1eRnexQBQKUAF8AgArIhZSIAazgrFEOWCUBsSX4cGMUGEpEiBH4tFEDThCORqOA0HgaIScgAuko2h0kSjRDUCOwFGBHg5SgBNXa8vK8s5bEV4HS8z4Q6W8qo9JwARVFMrAxVs5QAjOrZdqAEz6zXagDMJq15QALLzYfCIOzUeiQnJgLKKpVLZ7eYyaqyYE7RK4IGV+jUEsB3Zren1fczQ56Ixiox6qvGQ2hUDUsmkeRAigkdABeHS5Lp8IQiTmlyvCMT5opFOqRQnoSKoRiWRiReAk2QaKxdJs6ahQehwCal3kABS7REYOkqcH7wUsEFFw6bCVpumnMfTeC3RVQLAopF3JY1YbjR4LI50p4056JRCnGolF0395Ha8Yk6vAh0nhAgxEiURJzgdQV0bB8iiAkCxCvTQWFoccRCJYCZAbG4xVNbYsCcW85FwY8mwgkRoP4K8DQIojeTIkiyI6HFiGo0sEOw0RwMgqjYLgzjQJrHQUK7dC4EwxC0VwjUqlKJxygAeVKO1SJ-B8KKg8h2Nkyp5KUlSwEYtSBJgLJ2kArChJ4yjtP4h9BKQ0tRLQ+gMMc6TPTwqptkBcpVLIopNKomiwB8vyGPUoomKinQOlEUh+FYSypJsrSYMCuKrKckTUPEySuPYGTZUeIUAtioLeO00K5UFSK4KuJtGoCAJaGMHR2CyJYoAsbRrBsAp71ETIIFYYp0HYLNjkEWg8imiDGG0fwoSUMBIUZIA}{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 2105c4889..93d7ea80c 100644 --- a/man/tm_t_shift_by_arm.Rd +++ b/man/tm_t_shift_by_arm.Rd @@ -95,8 +95,7 @@ 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADEG <- data[["ADEG"]] @@ -145,9 +144,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+UWp0rOynAHEikrLK6v44AHMlAF9FCCToeFFE0JtwgnYFMByCuZS5nJa5oYArIni-AGs4VnGkqaNu4yhhUj8CflpRMq2d-cPgEdgxCc85AF1XCAXCuEksBgCs8vk5t9fv8mq0gaEQWC1mAoX80KgivForMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K6iOLGK70VjVRgwHEZfk6ahQehwajUua5NmkHScrI8uzCkRLBn8t7wcXzWHK3ECnQsGB+TQsakEGLbAhiPyiUVwdRwfh83UZI2MWiKuDXM0yD4AlKiQT0a3SokzFZYACySx0YfDAGFsus5KSdU7rSI7fwNZkI3MVRkk3mdKgWLAbiavRbRFabRnHU6jdRBB7TeafbDlmAAArZzJxhNgAsp3Vp23kTNEuYACSwuaH+eT9bu0UNxpDFctI9rhed3Cbntb41WzQ7mQAagBJXLn2zrBdOnSbscazsAeVytgMACFMrknPlzwAck4OjhoB57hg4kZgIWg5OlADYrow5YHtW6ZjnWuoum69AiPu3qHu2D4BkGWYAVggH9rB96PvapHkQB-Z3k6xi0BUtFEvYzgwUx-L0FAabxB6LrIfhqGjvaGEClh7p4ZW7BHn6xFwMG0ZgJ+ZEUbe24PjWT4TmpGkMdq94mKx7F2I4LhzjoVECoI1oAZkGq0OcECsLOApDPmShDC5OjsPE5BqBo2jWDYaQ6qy8SsJk6DsOiAAkgi0CkiXWow2iMEM-RKGA-TfEAA}{Open in Shinylive} - \if{html}{\out{}} - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOynAHEikrLK6v44AHMlAF9FCAArIni-AGs4VlFE0Jtw7uMoYVI-An5aUTLR8amZ4Gh4WaS5AF1XCByCoqTgYAUwa-zHs4urptbF0PvHnJbXu8lGhUEV4tF2A0kjoALw6JK4Bp8IQiUSwnTI4RiSEQDIZEp+NaiOLGNb0VjVRgwHF4vHUKD0ODUdGPXIk0g6clZKl2BkiR6I3G0+GhI66OF-T4Chq0lgwPyaFjoggxMYEMR+URMuDqOD8GnCjKKxi0PlwdaqmTY54pUSCehajlwgiQp5YACyAp0fw9AGFso85HJBYaMlqRLr+Cy3Z6wDK8cH4xlUCxYBtlZb1aJNdrIwbDYrqIJzSq1dbPilHgAFTJYTLu-2BkOh8M68hRiVgAASWEeSZ0iaFtM0W2iCqVzszGtbef7Ru4xYtZdm-2alaeADUAJK5Le2JtznQz9vRqsAeVytgMACFMrknPktwA5Jw6d3Prfuhyx-uDw1QQtx0YDNlxzCN23zYVjVNegRCXK0VwrI97UdaNMifLBnwDMA-xbXMT07dDMKfbDm0NYxaAqPV0XsZxfzIvF6CgcN4nNY0QIQsC2z1SDhxYGC4NLBD2FXW0ULgJ1vTAa8MKwg8h2FY9qM7GTiNIw8KKojs7EcFwFIyXDaUELUn0yaNaGWCBWD7BShgMpQhgsnR2Hicg1A0bRrBsNIhWJeJWEydB2BBAASQRaBSUKtUYbRGCGfolDAfoziAA}{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 85a7b6517..4672fa128 100644 --- a/man/tm_t_shift_by_arm_by_worst.Rd +++ b/man/tm_t_shift_by_arm_by_worst.Rd @@ -96,8 +96,7 @@ 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADEG <- data[["ADEG"]] @@ -145,9 +144,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOynAHEikrLK6v44AHMlAF9FCAArIni-AGs4VlFE0Jtw7uMoYVI-An5aUTLR8amZ4Gh4WaS5AF1XCByCoqTgYAUwa-zHs4urptbF0PvHnJbXu8lGhUEV4tF2A0kjoALw6JK4Bp8IQiUSwnTI4RiSEQDIZEp+NaiOLGNb0VjVRgwPzkvwRIiMUSkHF4vHUKD0ODUdGPXIk0g6clZKl2DkiR6I3Gs+GhI66OF-T4ShqsljUzQsdEEGJjAhiPyiLlwdRwfgs6UZDWMWhiuDrHUybHPFKiQT0Q0CuEESFPLAAWQlOj+-oAwtlHnI5JKLRlDSITfweb6A2AVXio2mMqgWLANlqHXrRAajQnzRaNdRBHbtbqnZ8Uo8AAqZLCZP1hiPRmNx43kRMKsBOEPNACSADlbI3HpmdBmpaz6Yy1sZ2T0-Fb87Wiz3SzPLSwbfQRPat+x-s0Ut7HgB1ADyWFyAAYAEwAMReeCDYDvD8fAEZ3wjOcYx0Hc+yTH8nzfD8Z2A6VFyZPwVygHpN0dbcSz7MtpQrKsT3Qs96y-SCX0AsA4ItMDTSTABNZV52lYxaAqai4XsZxYK7VUK3XTUvQLfUqLNPcdCtQ9jxrAjz0vH1MgANUyfIQ0DP4xywcdw3IijpSEpN5MU5TUwYjJtIyegoDjeI7Q3fit2LeMsJEsTbXwwtCJaGTHgAIUyXIhxUsAvLUjSgK4nTMNYr8fL8wzOJnQRDTHTIk1oZYIFYacGKGEylCGVKdHYeJyDUDRtGsGw0ilYl4lYTJ0HYEEABJBFoFImsNRhtEYIZ+iUMB+jOIA}{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 0b5a04984..0af0b42f4 100644 --- a/man/tm_t_shift_by_grade.Rd +++ b/man/tm_t_shift_by_grade.Rd @@ -110,8 +110,7 @@ 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADLB <- data[["ADLB"]] @@ -165,9 +164,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+UWp0rOz8gCEikrLK6v5qeiUAX0UIJOh4UUTQm3CCdgUwHILZlNmcltnBgCsieL8AazhWMaTJo344YyhhUj8CflpRMs3tvYPgYdgxcc85AF1XCHnCuEksBgMs8vlZt9fv8mq0gaEQWDVmAoX80KgivFojMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K6iOLGK70Vh+ADmzFOOIygp01Cg9Dg1GpswA4nzdPlRURmKRFawsvQIIqYNxoqrbKKRIsGYK3vBJXNYYbcUKdCwYH5NCxqQQYlsCGI-KJxXB1HB+ALrRlna6xNSHYxaPq4NcXTIPgCUqJBPRPaQnTM5lgALKLHTLLMAYWyazkpKtAc9Ih9-DNmSzsyNGRLDZ0qBYsBuTpjbtEHq9Vf9AaDsapRId1EEUaH3fYK2aSzAAAVa5lM4Wc7Ml1gV2tSwGMhXveRq0TlvlbPWy4Km5eMhFFaIrsYRdz7Y6iVP3Qf+83A12Q6OWAjegRGjYMxlnBMkxTNNZgAdSlLB8gAeQANQAMQhPBczAeDEKQjD1xwhCAAkAEl0Mw+dcLIgiwDka89x0L8jxgoi8IotZmwY6070YB8-CfKAX3iW5ZGVRhOzA3tKyPAdrTHCdQOHGdYSohDkI4ujdz3ZjfTNABNHNjFoCo9KJexnC47ShSgCB-GVCpeRqKMw0k4dpMPX05KFD8Rx0MMgJA3yVJaSDkzgVN33TTJbCQgANBDi2s61dOPHRpmWWKEqwHcfxMEyzLsRwXBvHRuKFegoE9ZkiEc2VXwk98-x7VLvMFXzQ0AyMlOnCCmKgiLWOaLLEro8qUr7FiotmYb4tG8ahWM0y0oskqAwWm1+H4GrPAlIk0MyfJcjWq8Gm44zqHIRrijgbgPToadfHu2NovBQjckyNDaITSbCtmQyxqUQZaGMHR2HiK6oAsbRrBsNIrVZeJWEydB2HRAASQRaBSDHPUYbRGEGPolDAPpviAA}{Open in Shinylive} - \if{html}{\out{}} - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOz8gCEikrLK6v5qeiUAX0UIACsieL8AazhWUUTQm3D+OGMoYVI-An5aUTKRscnp4Gh4GaS5AF1XCByCoqTgYAUwa-zHs4urptaF0PvHnJbXu8lGhUEV4tF2A0kjoALw6JK4Bp8IQiUSwnTI4RiSEQDIZEp+NaiOLGNb0Vh+ADmzEWOLxeOoUHocGo6MeAHEabp8kyiMxSHzWFl6BA+TBuNEhbYmSJHojcfT4aEjro4X9PnKGvSWDA-JoWOiCDFRgQxH5RCy4Oo4Pw6YqMkaTWJ0frGLQZXB1saZNjnilRIJ6BbSIbIU8sABZOU6P6RgDC2Uecjk8vtGQtImt-DZ4ajYC1eJTBYyqBYsA2hu9ptE5stWbt9sdPrRcP11EEnqb1fY-2aKUeAAVMlhMhGE9HB8PR0nU2mM1byNm1U98rZHsWdEWFfSInzRGtjIzKXqDXCu2b5-WNw6q87Wyx3fQRF6nTNe-7A8HQ48AOrsrD5AA8gAagAYi8eAxmAf4AYB4ETtB-4ABIAJJgRB-aIVgqHwWAyazval6Lt+WFAehSYblu9q7ow+5+IeUDHvEmyyAKjCVq+taZouDaKm2HYvs2PafJhMFkbhVFznWxHLgAmtGxi0BUNrovYziUQReJQBA-gChU1I1J6rocc2XELjavH0ueLY6K6j7PtZwktB+QZwCGZ5hpktiAQAGv+SaSYR0kqR5fzeX5WAzteJhKSFdiOC426FppGT0FAFqEkQ+lcie7FnreNZERZ0XWS6D4eoJ3bvjoAaue5OgEGGzThf5eGBYqRVLg1TUtZFeEpXiinKV1amJfa7UZDU-CZZ4rJwqBmT5LkY2Fg0kmKdQ5B5cUcDcOadDdr4+0+p5eQYVBuSZKBuH+sFXWPPJbVKIMtDGDo7DxFtUAWNo1g2GkCrEvErCZOg7AggAJIItApJDFqMNojCDH0ShgH0ZxAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} } } } diff --git a/man/tm_t_smq.Rd b/man/tm_t_smq.Rd index 30ee27e5f..cd211d8ed 100644 --- a/man/tm_t_smq.Rd +++ b/man/tm_t_smq.Rd @@ -95,22 +95,21 @@ data <- within(data, { ADSL <- tmc_ex_adsl ADAE <- tmc_ex_adae - names_baskets <- grep("^(SMQ|CQ).*NAM$", names(ADAE), value = TRUE) - names_scopes <- grep("^SMQ.*SC$", names(ADAE), value = TRUE) + .names_baskets <- grep("^(SMQ|CQ).*NAM$", names(ADAE), value = TRUE) + .names_scopes <- grep("^SMQ.*SC$", names(ADAE), value = TRUE) - cs_baskets <- choices_selected( - choices = variable_choices(ADAE, subset = names_baskets), - selected = names_baskets + .cs_baskets <- choices_selected( + choices = variable_choices(ADAE, subset = .names_baskets), + selected = .names_baskets ) - cs_scopes <- choices_selected( - choices = variable_choices(ADAE, subset = names_scopes), - selected = names_scopes, + .cs_scopes <- choices_selected( + choices = variable_choices(ADAE, subset = .names_scopes), + selected = .names_scopes, fixed = TRUE ) }) -datanames(data) <- c("ADSL", "ADAE") -join_keys(data) <- default_cdisc_join_keys[datanames(data)] +join_keys(data) <- default_cdisc_join_keys[names(data)] app <- init( data = data, @@ -123,8 +122,8 @@ app <- init( selected = "ARM" ), add_total = FALSE, - baskets = data[["cs_baskets"]], - scopes = data[["cs_scopes"]], + baskets = data[[".cs_baskets"]], + scopes = data[[".cs_scopes"]], llt = choices_selected( choices = variable_choices(data[["ADAE"]], subset = c("AEDECOD")), selected = "AEDECOD" @@ -144,9 +143,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+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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOzMpyKSssrq9zhXCAyMaHhRP3ooUQBrOFJRIoBzRjhUdgUwAD12XIBZAEUAHwBhLbkMACoAOUyNgBJllIGxdhzmuRTNbkFdAF47RydFXp1+rAxH5RMRUGJZvNFssVpstidcntrngdHdRA8mr8Xm9Pt9nH8GhIhiNxpNpuECDEiDJgaI4CJ1HB+Et-hlKdSCBCvq9GLQoPQRH52TT0Y8nClRIJ6HTSDovoDBsNRhMps8Ghk6QzyPw5QC0UrSVMGgT-kSQWCIRSqSKQfS4IzmeqdMLOdNuSw+QK4ELra6Mc0JVKZbqFbSLaI1aydJr7dqQ-rQURwaJcE7jLQKkzdfZnMalABfP4AK2pED8E1Y6KSNnC-DgxigwlIQv4tFBfhL8XLcErwDRiVCcgAuj00KgivFoiyMkldUlU-8+EIRG6dEvhPcnSU-M3RDAAI7TjLH6j8+m65aZfjaRh0nRObRkab0Vg6OF2fkiG5OmehO4XsAxW-KMMhYGA-B5XUXVpO0HSPY9j2g1ceU9QUkIHTxgGAS88nyZYhyHQNpUmKClkArANhuHRllyJwAA1ljkSMEIQmMHQAzIKOWH8dGYlian4HciE8ahdQAMUyfJaIXFidBJFVVySLDljNeSyXwwieMTZM51CZSwDNbSxA0mSWOoahZS+JDbS1Jl4JYpDdRQz9vXQpTsMAzETOjIMSKssjmmyJw9gAeWyRi+Nkti4y+S8nCC0LwrAHi-gQ1LeKUP5aGMHR2Hicg1A0bRrBsNJ-lEOIIFYTJ0HYMdLkEWgUnqulGBvP58yUMB8yHIA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} } } } diff --git a/man/tm_t_summary.Rd b/man/tm_t_summary.Rd index 89fda84b5..e0a427b8c 100644 --- a/man/tm_t_summary.Rd +++ b/man/tm_t_summary.Rd @@ -92,8 +92,7 @@ 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] @@ -125,9 +124,9 @@ 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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpQGIdABUZxULKBokOkTGOqQAFrrkoqQ6sqK6RoIJOgAGTgDyAMoAIgCaqTpQEPxpOQDCWVhOAIJZhZostFD0IqJhRDr8cHwQMczkOjC0oqK0EADmXQFQGEr8M-pGXNQA+gukUNbzi4Y6AO60EePsG1C4OiBKOjo1OVkAMkthMASrcAAeq1D8otTXt3uDwAJJlcnlgABGAC6zwAcjVVuNyBNVKslABfRQQABWRHGqwA1nBWKJTjMbHtusYoMJSKsCPwRm88QTiaTgNB4GSznJoa4IHdHs8zsBgAowEKHhLofyIEo0KhnuMjuwAWcdABeaabXAAvhCNpaoYCYRiNUQG43UgwVb00SCGAwFgcAFWnTUFpwajGiU5HpECbMVDhGR2FoiCV6y3unXFWC6bUSqVRt1Wli2xqMY0EcL4ghiVYJETqOD8dgENWSrAAWSjOmTtfKOQlcgujbrYDbaZuP34dqImx92vszmjsZ0DqdTQAXnBVln2trc-nC8W4KXyz2rZWJVknAANesSrA1couPANsAAIRrWAA0lgAEzHsBg-KvipVWpZV81ADiF7djGE67mA+5HpeJ5nkB27AROyRwAivpgLQNIQKwEpptiNzYtiaE6OwyKqFAFjaNYNhXDGoihhhNToOwirAoItAXExCSMNojDYhiShgBi0JAA}{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 b0a3a68b8..91173fea1 100644 --- a/man/tm_t_summary_by.Rd +++ b/man/tm_t_summary_by.Rd @@ -111,8 +111,7 @@ 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADLB <- data[["ADLB"]] @@ -156,9 +155,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+UWp0rOz8gCEikrLK6v5qeiUAX0UIJOh4UUTQm3CCdgUwHILZlNmcltnBgCsieL8AazhWMaTJo344YyhhUj8CflpRMs3tvYPgYdgxcc85AF1XCHnCuEksBgMs8vlZt9fv8mq0gaEQWDVmAoX80KgivFojMIBkkjoALw6JK4Bp8IQiUSEnTk4QfBoZEp+K6iQQwGAsVh+egcBkZHTUKD0ODUamzXJsjlsHQ8nRYIgRHQAcUYREEqCptiFIkWfLxoRGuiJSOautx-IyLBgfk0LGpBBiWwIYj8ohFcHUcH4OItFodTrE1NtjFo2rg10dMg+AJS02WWAAsosdPGEwBhbJrOSk82+nRukSe-hiuaJ2Z6nTZis1fjMoieUVE+zOHN5nk2lhUon+qOiV3uos+vM6HvOrs6YOh+giCMBsYrZqxmZgAAKmSwmSTeBTcwAagBJXL72xZ1vDgse8jF7vLzIHo8nsCDPNV3P81nsli0ABe4eD49HF0L0HCsMkA8dJzDWde3YBcl2WXdMghbdZjTAAJJVT1A-MByve1b0Q5Dn19V880EN0ADlMhLWhzggVgzTzVAWFgG57UjMd+0LK8hzzcCg24QRw3A2DYSWVd103DNk1mNcNy3Ujz1wr0SyQx8K2IjJiMGQZaJ0dh4nINQNG0awbDSc1RDiejMnQdh0QAEkEWgUkct1GG0RhBj6JQwD6b4gA}{Open in Shinylive} - \if{html}{\out{}} - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOz8gCEikrLK6v5qeiUAX0UIACsieL8AazhWUUTQm3D+OGMoYVI-An5aUTKRscnp4Gh4GaS5AF1XCByCoqTgYAUwa-zHs4urptaF0PvHnJbXu8lGhUEV4tF2A0kjoALw6JK4Bp8IQiUSwnTI4RiSEQDIZEp+NaiQQwGAsVh+egcBp4nTUKD0ODUdGPXIkslsHRUnRYIgRHQAcUYREEqDRtgZIkeiNxtPhoSOujhf0+0ppeJYMD8mhY6IIMVGBDEflETLg6jg-Bxcrx+sNYnROsYtElcHWBpk2OeKQIkKeWAAstKdH9AwBhbKPORyGU2jKmkQW-gs-1BsDqjIxjM6Gr8QlETzMuH2ZyxuVU7UsNFwu2e0Qms1J61x2tG6s6J0u+gid32mb-Zo+v0ABUyWEyaZSfwAagBJXKz2xRrOym0J83kZM1v2ZOcLpdgQY2ldr9ksWgALzdTvbreN66b2Yyd-bnddvbr7AHQ5nmReeBDMAwwACQFZcyzXRtNz1Hdpz-KNsxPOVBFNAA5TIU1oZYIFYNVVzxVAWFgDY9Q9NsG0TTdmxtF9HW4QQ3RfL9PinMBR3HAMI2DR52InKMILlB9oOVJ58gPRD1SPHRBkGLCdHYeJyDUDRtGsGw0llUQ4hwzJ0HYEEABJBFoFJDNNRhtEYQY+iUMA+jOIA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} } } } diff --git a/man/tm_t_tte.Rd b/man/tm_t_tte.Rd index ddb7b873a..c8d8d6f5f 100644 --- a/man/tm_t_tte.Rd +++ b/man/tm_t_tte.Rd @@ -126,8 +126,7 @@ 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)] +join_keys(data) <- default_cdisc_join_keys[names(data)] ADSL <- data[["ADSL"]] ADTTE <- data[["ADTTE"]] @@ -183,9 +182,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+UWp0rOzbWycikrLK6v5SciUAX0UIJOh4UUTQm3CCdgUwHILZlNmc5pcwQYArIni-AGs4VjGkyaN+OGMoYVI-An5aUTKtnf3D4GHYMXHPOQBdVwh5oVwklgMBlnl8rMfn8AU0WkUQWC5nC1tD-iwYH5GOcbkQYKginRRKQZhAMpkAMK2TJYACyFOyOgAvDoiSSGhlscZmTplnSdAAhRYcnTEfE86Z82lZRa8ub8imzQYZOS4Bo06UstmkjKc8482YCxA6AAK1CgBDg9CIwrJurFBJZkrmxuyjEEAHMdAANWWzCnGil4+jxDyWCBKhqDQZKNAE8LxaI6nRJHlJNV2vhCESiHlZ4SfEUlPzXHpwZO61lQehwagGsC2WjwOxEHRObRkOzVkS2ysZd7Nlng1a9vsYvyaFgSmLbS2iPyiWtwdRwfgVvuTxi0btwG4zmSfQEpZ0av3y+nZM+U6l0hlK1UiytS2aPnQPu2V8dc3HillfnEOhmfY6KgLCwLc06zmIC5Liua6vhkk7UIIu4EPuc7sCsLRLGAJo0pkF5nnhWAEUqQHAXKADyuQvh+urvsBxLMJ4E5Tk66HQYuIhweulabtu9AiHuUFjEeoozGAuROL6eBygKtJYAA0lgABM97kcBsxSTJr4MX2GjwH4qDbGQubsSJMHceQa7TAAjAAHCpKQqQALAAzKqOgOSpemVnAHbXGcDysYwkEHvOXHLtZvG6vxO7CeFmEojhTgAGoAHK2NkTi5Iq6waX2sxpZl2W5aOwHGLQFSrjy9jOLpIrKm+SiDLQ3LsPE5BqBo2jWDYaR2qIcQQKwmToOwcYACSCLQKRTYujDaIwgx9EoYB9D8QA}{Open in Shinylive} - \if{html}{\out{}} - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMBOhFoFuASgA60snGYFStAG5wABAB4AtDoBmgiOtol2cnQBUsAVQCiSpfyiko+o12oB9d09rNw8vQx0Ad1pSAAtaCHZAqFwdECUdHQBBABEAZQAZbx1SGAI-OAAPPyh+UWp0rOzbWycikrLK6v5SciUAX0UIACsieL8AazhWUUTQm3D+OGMoYVI-An5aUTKRscnp4Gh4GaS5AF1XCByCoqTgYAUwa-zHs4urppbb0PvHnOaXGA3pcWDA-IwlusiDBUEU6KJSOwGpkAMK2TJYACyKOyOgAvDp4YiGhkIcZ8To-lidAAhR64Ek6YgwikEJFPamZemUjmYnQox6DDJyBkQDIYvkEolIsUZHRkimPGmIHQABWoUAIcHoRHpjOZsIJbL+KuyjEEAHMdAANbmPFEqlHQ+jxDyWCCChqDQZKNCw8LxaIyjJJClJUUZPhCESiClR4RiYNykp+NY9OBJuWEqD0ODURVgWy0eB2Ig6JzaMh2HMiPWyrNJI66Al-T6AiNZnSgvyaFismKjLWiPyiPNwdRwfiZzu9xi0GtwdYDmSJ54pY28u28nFb1HorE7sByEWMrNUzGPU86E-1uXdslQlkE++Qg0drOoFiwDb9wdiEdjhOU5XhkvbUIIi4EMuQ7sP8LQpI8qoYpk2LZFuSFYChgrvp2jwAPK5Jet7CjhGQIswng9n2RrQf+o4iEB05ZrO870CIS5-jMa5MuyuROLaeA8jSmJYAA0lgABMgo3p2cqPHxAlXjJnYaPAfioKMZCxjRnEAQx5BTmyACMAAcEkpBJAAsADMIo6KZEnKVmcCVmsizbFRjC-iuw70eOBlMXKLELhxPmwW2CFgE4ABqABytjZE4uQCkepFyVFcUJUlKVpRkxi0BUk4UvYzhKYyQrXkogy0OS7DxOQagaNo1g2GksqiHEECsJk6DsH6AAkgi0CkA2jow2iMIMfRKGAfRnEAA}{Open in Shinylive} + \if{html}{\out{}} + \if{html}{\out{}} } } } diff --git a/tests/testthat/test-shinytest2-tm_a_gee.R b/tests/testthat/test-shinytest2-tm_a_gee.R index c83da2095..1edaeb45d 100644 --- a/tests/testthat/test-shinytest2-tm_a_gee.R +++ b/tests/testthat/test-shinytest2-tm_a_gee.R @@ -15,9 +15,7 @@ app_driver_tm_a_gee <- function() { ) %>% droplevels() }) - datanames <- c("ADSL", "ADQS") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_a_mmrm.R b/tests/testthat/test-shinytest2-tm_a_mmrm.R index da06e4078..4c98bd0bc 100644 --- a/tests/testthat/test-shinytest2-tm_a_mmrm.R +++ b/tests/testthat/test-shinytest2-tm_a_mmrm.R @@ -1,4 +1,4 @@ -app_driver_tm_a_mmrm <- function(fit_model = TRUE) { # nolint: object_length. +app_driver_tm_a_mmrm <- function(fit_model = TRUE) { arm_ref_comp <- list( ARMCD = list( ref = "ARM B", @@ -20,10 +20,7 @@ app_driver_tm_a_mmrm <- function(fit_model = TRUE) { # nolint: object_length. as.factor() #' making consecutive numeric factor ) }) - - datanames <- c("ADSL", "ADQS") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] arm_var <- choices_selected(c("ARM", "ARMCD"), "ARM") diff --git a/tests/testthat/test-shinytest2-tm_g_barchart_simple.R b/tests/testthat/test-shinytest2-tm_g_barchart_simple.R index 1d730f22d..467a596bb 100644 --- a/tests/testthat/test-shinytest2-tm_g_barchart_simple.R +++ b/tests/testthat/test-shinytest2-tm_g_barchart_simple.R @@ -10,10 +10,7 @@ app_driver_tm_g_barchart_simple <- function() { # nolint: object_length. !((AETOXGR == 1) & (AESEV == "MILD") & (ARM == "A: Drug X")) ) }) - - datanames <- c("ADSL", "ADAE") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_g_ci.R b/tests/testthat/test-shinytest2-tm_g_ci.R index 687328b77..9e0719f52 100644 --- a/tests/testthat/test-shinytest2-tm_g_ci.R +++ b/tests/testthat/test-shinytest2-tm_g_ci.R @@ -4,8 +4,8 @@ app_driver_tm_g_ci <- function() { ADSL <- teal.data::rADSL ADLB <- teal.data::rADLB }) - teal.data::datanames(data) <- c("ADSL", "ADLB") - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[c("ADSL", "ADLB")] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] + init_teal_app_driver( data = data, modules = tm_g_ci( diff --git a/tests/testthat/test-shinytest2-tm_g_forest_rsp.R b/tests/testthat/test-shinytest2-tm_g_forest_rsp.R index d846648f4..d73e1237e 100644 --- a/tests/testthat/test-shinytest2-tm_g_forest_rsp.R +++ b/tests/testthat/test-shinytest2-tm_g_forest_rsp.R @@ -1,18 +1,14 @@ app_driver_tm_g_forest_rsp <- function() { - data <- teal.data::teal_data() %>% - within({ - library(dplyr) - library(tern) - ADSL <- teal.data::rADSL - ADRS <- teal.data::rADRS %>% - mutate(AVALC = d_onco_rsp_label(AVALC)) %>% - with_label("Character Result/Finding") %>% - filter(PARAMCD != "OVRINV" | AVISIT == "FOLLOW UP") - }) - - datanames <- c("ADSL", "ADRS") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + data <- within(teal.data::teal_data(), { + library(dplyr) + library(tern) + ADSL <- teal.data::rADSL + ADRS <- teal.data::rADRS %>% + mutate(AVALC = d_onco_rsp_label(AVALC)) %>% + with_label("Character Result/Finding") %>% + filter(PARAMCD != "OVRINV" | AVISIT == "FOLLOW UP") + }) + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] arm_ref_comp <- list( ARM = list( diff --git a/tests/testthat/test-shinytest2-tm_g_forest_tte.R b/tests/testthat/test-shinytest2-tm_g_forest_tte.R index a47d0a93c..20194dfc4 100644 --- a/tests/testthat/test-shinytest2-tm_g_forest_tte.R +++ b/tests/testthat/test-shinytest2-tm_g_forest_tte.R @@ -1,13 +1,10 @@ -app_driver_tm_g_forest_tte <- function() { # nolint: object_length. +app_driver_tm_g_forest_tte <- function() { data <- within(teal.data::teal_data(), { ADSL <- teal.modules.clinical::tmc_ex_adsl ADSL$RACE <- with_label(droplevels(ADSL$RACE), "Race") ADTTE <- teal.modules.clinical::tmc_ex_adtte }) - - datanames <- c("ADSL", "ADTTE") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] arm_ref_comp <- list( ARM = list( diff --git a/tests/testthat/test-shinytest2-tm_g_ipp.R b/tests/testthat/test-shinytest2-tm_g_ipp.R index a7b6f9f7d..dd3fda135 100644 --- a/tests/testthat/test-shinytest2-tm_g_ipp.R +++ b/tests/testthat/test-shinytest2-tm_g_ipp.R @@ -1,20 +1,16 @@ app_driver_tm_g_ipp <- function() { - data <- teal.data::teal_data() %>% - within({ - library(dplyr) - library(tern) - ADSL <- teal.data::rADSL %>% - slice(1:20) %>% - df_explicit_na() - ADLB <- teal.data::rADLB %>% - filter(USUBJID %in% ADSL$USUBJID) %>% - df_explicit_na() %>% - filter(AVISIT != "SCREENING") - }) - - datanames <- c("ADSL", "ADLB") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + data <- within(teal.data::teal_data(), { + library(dplyr) + library(tern) + ADSL <- teal.data::rADSL %>% + slice(1:20) %>% + df_explicit_na() + ADLB <- teal.data::rADLB %>% + filter(USUBJID %in% ADSL$USUBJID) %>% + df_explicit_na() %>% + filter(AVISIT != "SCREENING") + }) + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_g_km.R b/tests/testthat/test-shinytest2-tm_g_km.R index 7eede042a..2c22cc589 100644 --- a/tests/testthat/test-shinytest2-tm_g_km.R +++ b/tests/testthat/test-shinytest2-tm_g_km.R @@ -1,19 +1,15 @@ app_driver_tm_g_km <- function() { - data <- teal.data::teal_data() %>% - within({ - library(dplyr) - ADSL <- tmc_ex_adsl - ADTTE <- tmc_ex_adtte %>% - rename( - VALUE_UNIT = AVALU, - ANALYSIS_VAL = AVAL, - CENSORING = CNSR - ) - }) - - datanames <- c("ADSL", "ADTTE") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + data <- within(teal.data::teal_data(), { + library(dplyr) + ADSL <- tmc_ex_adsl + ADTTE <- tmc_ex_adtte %>% + rename( + VALUE_UNIT = AVALU, + ANALYSIS_VAL = AVAL, + CENSORING = CNSR + ) + }) + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] arm_ref_comp <- list( ACTARMCD = list( diff --git a/tests/testthat/test-shinytest2-tm_g_lineplot.R b/tests/testthat/test-shinytest2-tm_g_lineplot.R index caa70036d..35dfe47c7 100644 --- a/tests/testthat/test-shinytest2-tm_g_lineplot.R +++ b/tests/testthat/test-shinytest2-tm_g_lineplot.R @@ -8,10 +8,7 @@ app_driver_tm_g_lineplot <- function() { AVISIT == forcats::fct_reorder(AVISIT, AVISITN, min) ) }) - - datanames <- c("ADSL", "ADLB") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_g_pp_adverse_events.R b/tests/testthat/test-shinytest2-tm_g_pp_adverse_events.R index 1398afa0f..562a85286 100644 --- a/tests/testthat/test-shinytest2-tm_g_pp_adverse_events.R +++ b/tests/testthat/test-shinytest2-tm_g_pp_adverse_events.R @@ -1,15 +1,12 @@ -app_driver_tm_g_pp_adverse_events <- function() { # nolint: object_length - data <- teal.data::teal_data() |> within({ +app_driver_tm_g_pp_adverse_events <- function() { # nolint: object_length. + data <- within(teal.data::teal_data(), { library(nestcolor) library(dplyr) ADAE <- teal.data::rADAE ADSL <- teal.data::rADSL %>% filter(USUBJID %in% ADAE$USUBJID) }) - - teal.data::datanames(data) <- c("ADAE", "ADSL") - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[c("ADAE", "ADSL")] - + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_g_pp_patient_timeline.R b/tests/testthat/test-shinytest2-tm_g_pp_patient_timeline.R index 8bbcccf63..ce0f83ed1 100644 --- a/tests/testthat/test-shinytest2-tm_g_pp_patient_timeline.R +++ b/tests/testthat/test-shinytest2-tm_g_pp_patient_timeline.R @@ -1,4 +1,4 @@ -app_driver_tm_g_pp_patient_timeline <- function() { # nolint object_length +app_driver_tm_g_pp_patient_timeline <- function() { # nolint object_length. data <- teal.data::teal_data() data <- within(data, { library(dplyr) @@ -21,12 +21,11 @@ app_driver_tm_g_pp_patient_timeline <- function() { # nolint object_length }) adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") - teal.data::datanames(data) <- c("ADSL", "ADAE", "ADCM") - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[c("ADSL", "ADAE", "ADCM")] + + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] teal.data::join_keys(data)["ADCM", "ADCM"] <- adcm_keys teal.data::join_keys(data)["ADAE", "ADCM"] <- c("STUDYID", "USUBJID") - init_teal_app_driver( data = data, modules = tm_g_pp_patient_timeline( diff --git a/tests/testthat/test-shinytest2-tm_g_pp_therapy.R b/tests/testthat/test-shinytest2-tm_g_pp_therapy.R index 3f40a0220..b6d798a1c 100644 --- a/tests/testthat/test-shinytest2-tm_g_pp_therapy.R +++ b/tests/testthat/test-shinytest2-tm_g_pp_therapy.R @@ -1,4 +1,4 @@ -app_driver_tm_g_pp_therapy <- function() { # nolint: object_length. +app_driver_tm_g_pp_therapy <- function() { data <- within(teal.data::teal_data(), { ADCM <- teal.modules.clinical::tmc_ex_adcm ADSL <- dplyr::filter( @@ -23,10 +23,8 @@ app_driver_tm_g_pp_therapy <- function() { # nolint: object_length. }) adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") - datanames <- c("ADSL", "ADCM") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] teal.data::join_keys(data)["ADCM", "ADCM"] <- adcm_keys init_teal_app_driver( @@ -144,7 +142,7 @@ testthat::test_that( # Test changing selection ------------------------------------ # Check if a new selection of input changes the plot and table without any validation errors. -test_different_selection <- function(input_name, input_id, new_value) { # nolint object_length +test_different_selection <- function(input_name, input_id, new_value) { testthat::test_that( sprintf( "e2e - tm_g_pp_therapy: Selection of %s changes the plot and table without any validation errors.", diff --git a/tests/testthat/test-shinytest2-tm_g_pp_vitals.R b/tests/testthat/test-shinytest2-tm_g_pp_vitals.R index c8fe28944..533e9b6dc 100644 --- a/tests/testthat/test-shinytest2-tm_g_pp_vitals.R +++ b/tests/testthat/test-shinytest2-tm_g_pp_vitals.R @@ -1,13 +1,9 @@ app_driver_tm_g_pp_vitals <- function() { - data <- teal.data::teal_data() %>% - within({ - ADSL <- teal.data::rADSL - ADVS <- teal.data::rADVS - }) - - datanames <- c("ADSL", "ADVS") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + data <- within(teal.data::teal_data(), { + ADSL <- teal.data::rADSL + ADVS <- teal.data::rADVS + }) + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_t_abnormality.R b/tests/testthat/test-shinytest2-tm_t_abnormality.R index af84708b9..27ada1f1e 100644 --- a/tests/testthat/test-shinytest2-tm_t_abnormality.R +++ b/tests/testthat/test-shinytest2-tm_t_abnormality.R @@ -12,9 +12,7 @@ app_driver_tm_t_abnormality <- function() { ) %>% with_label("On Treatment Record Flag") ) }) - datanames <- c("ADSL", "ADLB") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_t_abnormality_by_worst_grade.R b/tests/testthat/test-shinytest2-tm_t_abnormality_by_worst_grade.R index c33cf8c12..ec7224ba7 100644 --- a/tests/testthat/test-shinytest2-tm_t_abnormality_by_worst_grade.R +++ b/tests/testthat/test-shinytest2-tm_t_abnormality_by_worst_grade.R @@ -1,16 +1,12 @@ -app_driver_tm_t_abnormality_by_worst_grade <- function() { # nolint: object_length - data <- teal.data::teal_data() %>% - within({ - library(dplyr) +app_driver_tm_t_abnormality_by_worst_grade <- function() { # nolint: object_length. + data <- within(teal.data::teal_data(), { + library(dplyr) - ADSL <- teal.data::rADSL - ADLB <- teal.data::rADLB %>% - filter(!AVISIT %in% c("SCREENING", "BASELINE")) - }) - - datanames <- c("ADSL", "ADLB") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + ADSL <- teal.data::rADSL + ADLB <- teal.data::rADLB %>% + filter(!AVISIT %in% c("SCREENING", "BASELINE")) + }) + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_t_ancova.R b/tests/testthat/test-shinytest2-tm_t_ancova.R index 0e2ad9400..c2b6bf63c 100644 --- a/tests/testthat/test-shinytest2-tm_t_ancova.R +++ b/tests/testthat/test-shinytest2-tm_t_ancova.R @@ -1,13 +1,9 @@ app_driver_tm_t_ancova <- function() { - data <- teal.data::teal_data() %>% - within({ - ADSL <- tmc_ex_adsl - ADQS <- tmc_ex_adqs - }) - - datanames <- c("ADSL", "ADQS") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + data <- within(teal.data::teal_data(), { + ADSL <- tmc_ex_adsl + ADQS <- tmc_ex_adqs + }) + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] arm_ref_comp <- list( ARM = list( diff --git a/tests/testthat/test-shinytest2-tm_t_binary_outcome.R b/tests/testthat/test-shinytest2-tm_t_binary_outcome.R index 85bfb0e40..368d8a7fa 100644 --- a/tests/testthat/test-shinytest2-tm_t_binary_outcome.R +++ b/tests/testthat/test-shinytest2-tm_t_binary_outcome.R @@ -1,19 +1,15 @@ app_driver_tm_t_binary_outcome <- function() { - data <- teal.data::teal_data() %>% - within({ - library(dplyr) - ADSL <- teal.data::rADSL - ADRS <- teal.data::rADRS %>% - mutate( - AVALC = d_onco_rsp_label(AVALC) %>% - with_label("Character Result/Finding") - ) %>% - filter(PARAMCD != "OVRINV" | AVISIT == "FOLLOW UP") - }) - - datanames <- c("ADSL", "ADRS") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + data <- within(teal.data::teal_data(), { + library(dplyr) + ADSL <- teal.data::rADSL + ADRS <- teal.data::rADRS %>% + mutate( + AVALC = d_onco_rsp_label(AVALC) %>% + with_label("Character Result/Finding") + ) %>% + filter(PARAMCD != "OVRINV" | AVISIT == "FOLLOW UP") + }) + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] arm_ref_comp <- list( ARMCD = list(ref = "ARM B", comp = c("ARM A", "ARM C")), diff --git a/tests/testthat/test-shinytest2-tm_t_coxreg.R b/tests/testthat/test-shinytest2-tm_t_coxreg.R index 7e6d94b22..b3d18eef3 100644 --- a/tests/testthat/test-shinytest2-tm_t_coxreg.R +++ b/tests/testthat/test-shinytest2-tm_t_coxreg.R @@ -5,9 +5,7 @@ app_driver_tm_t_coxreg <- function() { ADSL <- teal.data::rADSL ADTTE <- teal.data::rADTTE }) - datanames <- c("ADSL", "ADTTE") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] arm_ref_comp <- list( ACTARMCD = list( diff --git a/tests/testthat/test-shinytest2-tm_t_events.R b/tests/testthat/test-shinytest2-tm_t_events.R index a951ec560..14574d763 100644 --- a/tests/testthat/test-shinytest2-tm_t_events.R +++ b/tests/testthat/test-shinytest2-tm_t_events.R @@ -4,9 +4,7 @@ app_driver_tm_t_events <- function() { ADSL <- teal.data::rADSL ADAE <- teal.data::rADAE }) - datanames <- c("ADSL", "ADAE") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_t_events_by_grade.R b/tests/testthat/test-shinytest2-tm_t_events_by_grade.R index 61cbf322f..11966c769 100644 --- a/tests/testthat/test-shinytest2-tm_t_events_by_grade.R +++ b/tests/testthat/test-shinytest2-tm_t_events_by_grade.R @@ -1,18 +1,15 @@ -app_driver_tm_t_events_by_grade <- function() { # nolint: object_length +app_driver_tm_t_events_by_grade <- function() { # nolint: object_length. data <- teal.data::teal_data() data <- within(data, { library(dplyr) ADSL <- teal.data::rADSL - lbls_adae <- col_labels(teal.data::rADAE) + .lbls_adae <- col_labels(teal.data::rADAE) ADAE <- teal.data::rADAE %>% mutate_if(is.character, as.factor) - col_labels(ADAE) <- lbls_adae + col_labels(ADAE) <- .lbls_adae }) - - datanames <- c("ADSL", "ADAE") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_t_events_patyear.R b/tests/testthat/test-shinytest2-tm_t_events_patyear.R index 9e7474cc0..2f04d3894 100644 --- a/tests/testthat/test-shinytest2-tm_t_events_patyear.R +++ b/tests/testthat/test-shinytest2-tm_t_events_patyear.R @@ -8,10 +8,7 @@ app_driver_tm_t_events_patyear <- function() { mutate(is_event = CNSR == 0) %>% mutate(n_events = as.integer(is_event)) }) - - datanames <- c("ADSL", "ADAETTE") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_t_events_summary.R b/tests/testthat/test-shinytest2-tm_t_events_summary.R index fada0378b..582be23ff 100644 --- a/tests/testthat/test-shinytest2-tm_t_events_summary.R +++ b/tests/testthat/test-shinytest2-tm_t_events_summary.R @@ -11,7 +11,7 @@ app_driver_tm_t_events_summary <- function() { ) ADAE <- teal.data::rADAE - add_event_flags <- function(dat) { + .add_event_flags <- function(dat) { dat <- dat %>% dplyr::mutate( TMPFL_SER = AESER == "Y", @@ -33,15 +33,12 @@ app_driver_tm_t_events_summary <- function() { dat } - ADAE <- ADAE %>% add_event_flags() + ADAE <- ADAE %>% .add_event_flags() - ae_anl_vars <- names(ADAE)[startsWith(names(ADAE), "TMPFL_")] - aesi_vars <- names(ADAE)[startsWith(names(ADAE), "TMP_")] + .ae_anl_vars <- names(ADAE)[startsWith(names(ADAE), "TMPFL_")] + .aesi_vars <- names(ADAE)[startsWith(names(ADAE), "TMP_")] }) - - datanames <- c("ADSL", "ADAE") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, @@ -54,14 +51,14 @@ app_driver_tm_t_events_summary <- function() { selected = "ARM" ), flag_var_anl = teal.transform::choices_selected( - choices = teal.transform::variable_choices("ADAE", data[["ae_anl_vars"]]), - selected = data[["ae_anl_vars"]][1], + choices = teal.transform::variable_choices("ADAE", data[[".ae_anl_vars"]]), + selected = data[[".ae_anl_vars"]][1], keep_order = TRUE, fixed = FALSE ), flag_var_aesi = teal.transform::choices_selected( - choices = teal.transform::variable_choices("ADAE", data[["aesi_vars"]]), - selected = data[["aesi_vars"]][1], + choices = teal.transform::variable_choices("ADAE", data[[".aesi_vars"]]), + selected = data[[".aesi_vars"]][1], keep_order = TRUE, fixed = FALSE ), diff --git a/tests/testthat/test-shinytest2-tm_t_exposure.R b/tests/testthat/test-shinytest2-tm_t_exposure.R index b3c324301..9d26429fb 100644 --- a/tests/testthat/test-shinytest2-tm_t_exposure.R +++ b/tests/testthat/test-shinytest2-tm_t_exposure.R @@ -6,7 +6,7 @@ app_driver_tm_t_exposure <- function() { ADEX <- teal.data::rADEX set.seed(1, kind = "Mersenne-Twister") - labels <- col_labels(ADEX, fill = FALSE) + .labels <- col_labels(ADEX, fill = FALSE) ADEX <- ADEX %>% distinct(USUBJID, .keep_all = TRUE) %>% mutate( @@ -16,12 +16,9 @@ app_driver_tm_t_exposure <- function() { AVALU = "Days" ) %>% bind_rows(ADEX) - col_labels(ADEX) <- labels + col_labels(ADEX) <- .labels }) - - datanames <- c("ADSL", "ADEX") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_t_logistic.R b/tests/testthat/test-shinytest2-tm_t_logistic.R index d31d4ceda..695711fc3 100644 --- a/tests/testthat/test-shinytest2-tm_t_logistic.R +++ b/tests/testthat/test-shinytest2-tm_t_logistic.R @@ -6,10 +6,7 @@ app_driver_tm_t_logistic <- function() { ADRS <- teal.data::rADRS %>% filter(PARAMCD %in% c("BESRSPI", "INVET")) }) - - datanames <- c("ADSL", "ADRS") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] arm_ref_comp <- list( ACTARMCD = list( diff --git a/tests/testthat/test-shinytest2-tm_t_mult_events.R b/tests/testthat/test-shinytest2-tm_t_mult_events.R index 7c5dfac91..965cb2408 100644 --- a/tests/testthat/test-shinytest2-tm_t_mult_events.R +++ b/tests/testthat/test-shinytest2-tm_t_mult_events.R @@ -4,10 +4,7 @@ app_driver_tm_t_mult_events <- function() { ADSL <- teal.data::rADSL ADCM <- teal.data::rADCM }) - - datanames <- c("ADSL", "ADCM") - teal.data::datanames(data) <- datanames - keys <- teal.data::default_cdisc_join_keys[datanames] + keys <- teal.data::default_cdisc_join_keys[names(data)] keys["ADCM", "ADCM"] <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") teal.data::join_keys(data) <- keys diff --git a/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R b/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R index 7ce990751..7244b0df2 100644 --- a/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R +++ b/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R @@ -3,8 +3,7 @@ app_driver_tm_t_pp_basic_info <- function() { data <- within(data, { ADSL <- teal.data::rADSL }) - teal.data::datanames(data) <- "ADSL" - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys["ADSL"] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R b/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R index 7b447023e..8a34ee727 100644 --- a/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R +++ b/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R @@ -4,10 +4,7 @@ app_driver_tm_t_pp_laboratory <- function() { ADSL <- teal.data::rADSL ADLB <- teal.data::rADLB }) - - datanames <- c("ADSL", "ADLB") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_t_pp_medical_history.R b/tests/testthat/test-shinytest2-tm_t_pp_medical_history.R index 4fae276b9..6f19fea85 100644 --- a/tests/testthat/test-shinytest2-tm_t_pp_medical_history.R +++ b/tests/testthat/test-shinytest2-tm_t_pp_medical_history.R @@ -1,12 +1,11 @@ -app_driver_tm_t_pp_medical_history <- function() { # nolint: object_length +app_driver_tm_t_pp_medical_history <- function() { # nolint: object_length. data <- teal.data::teal_data() data <- within(data, { ADSL <- tmc_ex_adsl ADMH <- tmc_ex_admh }) - datanames <- c("ADSL", "ADMH") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] + init_teal_app_driver( data = data, modules = tm_t_pp_medical_history( diff --git a/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R b/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R index 69eb2f545..428e1d485 100644 --- a/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R +++ b/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R @@ -1,4 +1,4 @@ -app_driver_tm_t_pp_prior_medication <- function() { # nolint: object_length +app_driver_tm_t_pp_prior_medication <- function() { # nolint: object_length. data <- teal.data::teal_data() data <- within(data, { library(dplyr) @@ -8,10 +8,7 @@ app_driver_tm_t_pp_prior_medication <- function() { # nolint: object_length ADCM$CMASTDTM <- ADCM$ASTDTM ADCM$CMAENDTM <- ADCM$AENDTM }) - - datanames <- c("ADSL", "ADCM") - teal.data::datanames(data) <- datanames - keys <- teal.data::default_cdisc_join_keys[datanames] + keys <- teal.data::default_cdisc_join_keys[names(data)] keys["ADCM", "ADCM"] <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4") teal.data::join_keys(data) <- keys diff --git a/tests/testthat/test-shinytest2-tm_t_shift_by_arm.R b/tests/testthat/test-shinytest2-tm_t_shift_by_arm.R index 0ce89dc27..6a4ff0f64 100644 --- a/tests/testthat/test-shinytest2-tm_t_shift_by_arm.R +++ b/tests/testthat/test-shinytest2-tm_t_shift_by_arm.R @@ -4,10 +4,7 @@ app_driver_tm_t_shift_by_arm <- function() { ADSL <- tmc_ex_adsl ADEG <- tmc_ex_adeg }) - - datanames <- c("ADSL", "ADEG") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_t_shift_by_arm_by_worst.R b/tests/testthat/test-shinytest2-tm_t_shift_by_arm_by_worst.R index a18e6fe2a..e7176d506 100644 --- a/tests/testthat/test-shinytest2-tm_t_shift_by_arm_by_worst.R +++ b/tests/testthat/test-shinytest2-tm_t_shift_by_arm_by_worst.R @@ -1,13 +1,10 @@ -app_driver_tm_t_shift_by_arm_by_worst <- function() { # nolint: object_length +app_driver_tm_t_shift_by_arm_by_worst <- function() { # nolint: object_length. data <- teal.data::teal_data() data <- within(data, { ADSL <- tmc_ex_adsl ADEG <- tmc_ex_adeg }) - - datanames <- c("ADSL", "ADEG") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R b/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R index d8f63809b..fbacdbb67 100644 --- a/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R +++ b/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R @@ -4,10 +4,7 @@ app_driver_tm_t_shift_by_grade <- function() { ADSL <- teal.data::rADSL ADLB <- teal.data::rADLB }) - - datanames <- c("ADSL", "ADLB") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_t_smq.R b/tests/testthat/test-shinytest2-tm_t_smq.R index 5f2585410..8789e2491 100644 --- a/tests/testthat/test-shinytest2-tm_t_smq.R +++ b/tests/testthat/test-shinytest2-tm_t_smq.R @@ -4,24 +4,21 @@ app_driver_tm_t_smq <- function() { ADSL <- teal.data::rADSL ADAE <- teal.data::rADAE - names_baskets <- grep("^(SMQ|CQ).*NAM$", names(ADAE), value = TRUE) - names_scopes <- grep("^SMQ.*SC$", names(ADAE), value = TRUE) + .names_baskets <- grep("^(SMQ|CQ).*NAM$", names(ADAE), value = TRUE) + .names_scopes <- grep("^SMQ.*SC$", names(ADAE), value = TRUE) - cs_baskets <- choices_selected( - choices = teal.transform::variable_choices(ADAE, subset = names_baskets), - selected = names_baskets + .cs_baskets <- choices_selected( + choices = teal.transform::variable_choices(ADAE, subset = .names_baskets), + selected = .names_baskets ) - cs_scopes <- choices_selected( - choices = teal.transform::variable_choices(ADAE, subset = names_scopes), - selected = names_scopes, + .cs_scopes <- choices_selected( + choices = teal.transform::variable_choices(ADAE, subset = .names_scopes), + selected = .names_scopes, fixed = TRUE ) }) - - datanames <- c("ADSL", "ADAE") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, @@ -43,8 +40,8 @@ app_driver_tm_t_smq <- function() { drop_arm_levels = TRUE, na_level = default_na_str(), smq_varlabel = "Standardized MedDRA Query", - baskets = data[["cs_baskets"]], - scopes = data[["cs_scopes"]], + baskets = data[[".cs_baskets"]], + scopes = data[[".cs_scopes"]], llt = teal.transform::choices_selected( choices = teal.transform::variable_choices(data[["ADAE"]], subset = c("AEDECOD", "SEX")), selected = "AEDECOD" diff --git a/tests/testthat/test-shinytest2-tm_t_summary.R b/tests/testthat/test-shinytest2-tm_t_summary.R index 26598d556..1ae7a9b79 100644 --- a/tests/testthat/test-shinytest2-tm_t_summary.R +++ b/tests/testthat/test-shinytest2-tm_t_summary.R @@ -1,11 +1,9 @@ app_driver_tm_t_summary <- function() { - data <- teal.data::teal_data() %>% - within({ - ADSL <- teal.data::rADSL - ADSL$EOSDY[1] <- NA_integer_ - }) - teal.data::datanames(data) <- "ADSL" - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys["ADSL"] + data <- within(teal.data::teal_data(), { + ADSL <- teal.data::rADSL + ADSL$EOSDY[1] <- NA_integer_ + }) + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_t_summary_by.R b/tests/testthat/test-shinytest2-tm_t_summary_by.R index 44564d331..89496850c 100644 --- a/tests/testthat/test-shinytest2-tm_t_summary_by.R +++ b/tests/testthat/test-shinytest2-tm_t_summary_by.R @@ -4,10 +4,7 @@ app_driver_tm_t_summary_by <- function() { ADSL <- teal.data::rADSL ADLB <- teal.data::rADLB }) - - datanames <- c("ADSL", "ADLB") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] init_teal_app_driver( data = data, diff --git a/tests/testthat/test-shinytest2-tm_t_tte.R b/tests/testthat/test-shinytest2-tm_t_tte.R index 59cfc7aad..70e216548 100644 --- a/tests/testthat/test-shinytest2-tm_t_tte.R +++ b/tests/testthat/test-shinytest2-tm_t_tte.R @@ -4,10 +4,7 @@ app_driver_tm_t_tte <- function() { ADSL <- teal.data::rADSL ADTTE <- teal.data::rADTTE }) - - datanames <- c("ADSL", "ADTTE") - teal.data::datanames(data) <- datanames - teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames] + teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] arm_ref_comp <- list( ACTARMCD = list(