From a630fe4cc9f100fe9c48d87c8ed04495d5698e1f Mon Sep 17 00:00:00 2001 From: Vedha Viyash <49812166+vedhav@users.noreply.github.com> Date: Fri, 17 Nov 2023 19:34:14 +0530 Subject: [PATCH] Update early-dev/app.R Co-authored-by: kartikeya kirar Signed-off-by: Vedha Viyash <49812166+vedhav@users.noreply.github.com> --- early-dev/app.R | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/early-dev/app.R b/early-dev/app.R index 1e5351ab..08c98af6 100644 --- 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