Update early-dev/app.R

Co-authored-by: kartikeya kirar <[email protected]> Signed-off-by: Vedha Viyash <[email protected]>
insightsengineering · Nov 17, 2023 · a630fe4 · a630fe4
1 parent 95da67b
commit a630fe4
Showing 1 changed file with 6 additions and 6 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"]][["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")
+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