From e697644e966dd2316e20c2ee5c1622126e09198d Mon Sep 17 00:00:00 2001 From: Vedha Viyash Date: Wed, 15 Nov 2023 16:39:15 +0530 Subject: [PATCH] chore: use a simpler join_keys assignment --- vignettes/using-association-plot.Rmd | 2 +- vignettes/using-bivariate-plot.Rmd | 2 +- vignettes/using-regression-plots.Rmd | 2 +- vignettes/using-response-plot.Rmd | 2 +- vignettes/using-scatterplot-matrix.Rmd | 2 +- vignettes/using-scatterplot.Rmd | 2 +- 6 files changed, 6 insertions(+), 6 deletions(-) diff --git a/vignettes/using-association-plot.Rmd b/vignettes/using-association-plot.Rmd index b5047529c..f4edbf9d2 100644 --- a/vignettes/using-association-plot.Rmd +++ b/vignettes/using-association-plot.Rmd @@ -79,7 +79,7 @@ data <- within(data, { datanames <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB") datanames(data) <- datanames join_keys(data) <- default_cdisc_join_keys[datanames] -join_keys(data)[["ADSL2"]] <- list(ADSL2 = c("STUDYID", "USUBJID")) +join_keys(data)[["ADSL2"]][["ADSL2"]] <- c("STUDYID", "USUBJID") # nolint end app <- teal::init( diff --git a/vignettes/using-bivariate-plot.Rmd b/vignettes/using-bivariate-plot.Rmd index 9d9969ae3..1c211f401 100644 --- a/vignettes/using-bivariate-plot.Rmd +++ b/vignettes/using-bivariate-plot.Rmd @@ -59,7 +59,7 @@ data <- within(data, { datanames <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB") datanames(data) <- datanames join_keys(data) <- default_cdisc_join_keys[datanames] -join_keys(data)[["ADSL2"]] <- list(ADSL2 = c("STUDYID", "USUBJID")) +join_keys(data)[["ADSL2"]][["ADSL2"]] <- c("STUDYID", "USUBJID") # nolint end ``` diff --git a/vignettes/using-regression-plots.Rmd b/vignettes/using-regression-plots.Rmd index eac4752d3..834d32343 100644 --- a/vignettes/using-regression-plots.Rmd +++ b/vignettes/using-regression-plots.Rmd @@ -57,7 +57,7 @@ data <- within(data, { datanames <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB") datanames(data) <- datanames join_keys(data) <- default_cdisc_join_keys[datanames] -join_keys(data)[["ADSL2"]] <- list(ADSL2 = c("STUDYID", "USUBJID")) +join_keys(data)[["ADSL2"]][["ADSL2"]] <- c("STUDYID", "USUBJID") # nolint end ``` diff --git a/vignettes/using-response-plot.Rmd b/vignettes/using-response-plot.Rmd index b95ca2aea..ab91f8660 100644 --- a/vignettes/using-response-plot.Rmd +++ b/vignettes/using-response-plot.Rmd @@ -56,7 +56,7 @@ data <- within(data, { datanames <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB") datanames(data) <- datanames join_keys(data) <- default_cdisc_join_keys[datanames] -join_keys(data)[["ADSL2"]] <- list(ADSL2 = c("STUDYID", "USUBJID")) +join_keys(data)[["ADSL2"]][["ADSL2"]] <- c("STUDYID", "USUBJID") # nolint end ``` diff --git a/vignettes/using-scatterplot-matrix.Rmd b/vignettes/using-scatterplot-matrix.Rmd index ee7a9de8c..341e59291 100644 --- a/vignettes/using-scatterplot-matrix.Rmd +++ b/vignettes/using-scatterplot-matrix.Rmd @@ -57,7 +57,7 @@ data <- within(data, { datanames <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB") datanames(data) <- datanames join_keys(data) <- default_cdisc_join_keys[datanames] -join_keys(data)[["ADSL2"]] <- list(ADSL2 = c("STUDYID", "USUBJID")) +join_keys(data)[["ADSL2"]][["ADSL2"]] <- c("STUDYID", "USUBJID") # nolint end ``` diff --git a/vignettes/using-scatterplot.Rmd b/vignettes/using-scatterplot.Rmd index 1915376fc..e14e0dd39 100644 --- a/vignettes/using-scatterplot.Rmd +++ b/vignettes/using-scatterplot.Rmd @@ -57,7 +57,7 @@ data <- within(data, { datanames <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB") datanames(data) <- datanames join_keys(data) <- default_cdisc_join_keys[datanames] -join_keys(data)[["ADSL2"]] <- list(ADSL2 = c("STUDYID", "USUBJID")) +join_keys(data)[["ADSL2"]][["ADSL2"]] <- c("STUDYID", "USUBJID") # nolint end ```