From 2c8d94c363f8db05aeb779c8bb545687f2144a19 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 ce14df231..575187969 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") +join_keys(data)["ADLBPCA", "ADLBPCA"] <- c("USUBJID", "STUDYID", "PARAMCD", "AVISIT") +join_keys(data)["ADLBPCA", "ADSL"] <- c("USUBJID", "STUDYID") +parents(data) <- c(parents(data), list(ADLBPCA = "ADSL")) ## Reusable Configuration For Modules ADSL <- data[["ADSL"]]