fix: use the proper join_keys set api

insightsengineering · Nov 15, 2023 · 0333907 · 0333907
1 parent 0d48a0b
commit 0333907
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/early-dev/app.R b/early-dev/app.R
@@ -146,12 +146,12 @@ datanames(data) <- datanames
 
 # set join keys
 join_keys(data) <- default_cdisc_join_keys[datanames] # get default keys by name
-join_keys(data)["ADTR"] <- c("STUDYID", "USUBJID", "PARAMCD", "AVISIT")
-join_keys(data)["ADTRWF"] <- c("STUDYID", "USUBJID", "PARAMCD", "AVISIT")
-join_keys(data)["ADRSSWIM"] <- c("STUDYID", "USUBJID", "PARAMCD", "AVISIT")
-join_keys(data)["ADTR", "ADSL"] <- c("STUDYID", "USUBJID")
-join_keys(data)["ADTRWF", "ADSL"] <- c("STUDYID", "USUBJID")
-join_keys(data)["ADRSSWIM", "ADSL"] <- c("STUDYID", "USUBJID")
+join_keys(data)[["ADTR"]][["ADTR"]] <- c("STUDYID", "USUBJID", "PARAMCD", "AVISIT")
+join_keys(data)[["ADTRWF"]][["ADTRWF"]] <- c("STUDYID", "USUBJID", "PARAMCD", "AVISIT")
+join_keys(data)[["ADRSSWIM"]][["ADRSSWIM"]] <- c("STUDYID", "USUBJID", "PARAMCD", "AVISIT")
+join_keys(data)[["ADTR"]][["ADSL"]] <- c("STUDYID", "USUBJID")
+join_keys(data)[["ADTRWF"]][["ADSL"]] <- c("STUDYID", "USUBJID")
+join_keys(data)[["ADRSSWIM"]][["ADSL"]] <- c("STUDYID", "USUBJID")
 
 ## App configuration ----
 # reuse object from teal_data

diff --git a/exploratory/app.R b/exploratory/app.R
@@ -47,8 +47,8 @@ datanames <- c("ADSL", "ADRS", "ADLB", "ADLBPCA")
 datanames(data) <- datanames
 
 join_keys(data) <- default_cdisc_join_keys[datanames]
-join_keys(data)["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")
 
 ## Reusable Configuration For Modules
 ADSL <- data[["ADSL"]]