From 906be09c10a862d5ca13953281915d0bb28ed3c0 Mon Sep 17 00:00:00 2001 From: vedhav Date: Fri, 17 Nov 2023 15:47:29 +0530 Subject: [PATCH] chore: use new join_keys api --- exploratory/app.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/exploratory/app.R b/exploratory/app.R index ce14df23..fd7f527e 100644 --- a/exploratory/app.R +++ b/exploratory/app.R @@ -47,8 +47,9 @@ datanames <- c("ADSL", "ADRS", "ADLB", "ADLBPCA") datanames(data) <- datanames join_keys(data) <- default_cdisc_join_keys[datanames] -join_keys(data)[["ADLBPCA"]][["ADLBPCA"]] <- c("USUBJID", "STUDYID", "PARAMCD", "AVISIT") -join_keys(data)[["ADLBPCA"]][["ADSL"]] <- c("USUBJID", "STUDYID") +adlbpca_keys <- default_cdisc_join_keys["ADLB"] +names(adlbpca_keys)[1] <- "ADLBPCA" +join_keys(data) <- c(join_keys(data), adlbpca_keys) ## Reusable Configuration For Modules ADSL <- data[["ADSL"]]