chore: use new join_keys api

insightsengineering · Nov 17, 2023 · 906be09 · 906be09
1 parent 160f8da
commit 906be09
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")
+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"]]