chore: use new join_keys api

insightsengineering · Nov 17, 2023 · 2c8d94c · 2c8d94c
1 parent 160f8da
commit 2c8d94c
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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"]]