docs: fix vignettes

insightsengineering · Nov 15, 2023 · 834af39 · 834af39
1 parent efe3e2c
commit 834af39
Show file tree

Hide file tree

Showing 6 changed files with 24 additions and 18 deletions.
diff --git a/vignettes/using-association-plot.Rmd b/vignettes/using-association-plot.Rmd
@@ -76,9 +76,10 @@ data <- within(data, {
       TRUE ~ "-"
     )))
 })
-datanames(data) <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
-join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADRS", "ADTTE", "ADLB")]
-join_keys(data)["ADSL2"] <- get_cdisc_keys("ADSL")
+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"))
 # nolint end
 
 app <- teal::init(

diff --git a/vignettes/using-bivariate-plot.Rmd b/vignettes/using-bivariate-plot.Rmd
@@ -56,9 +56,10 @@ data <- within(data, {
       TRUE ~ "-"
     )))
 })
-datanames(data) <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
-join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADRS", "ADTTE", "ADLB")]
-join_keys(data)["ADSL2"] <- get_cdisc_keys("ADSL")
+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"))
 # nolint end
 ```
 

diff --git a/vignettes/using-regression-plots.Rmd b/vignettes/using-regression-plots.Rmd
@@ -54,9 +54,10 @@ data <- within(data, {
       TRUE ~ "-"
     )))
 })
-datanames(data) <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
-join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADRS", "ADTTE", "ADLB")]
-join_keys(data)["ADSL2"] <- get_cdisc_keys("ADSL")
+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"))
 # nolint end
 ```
 

diff --git a/vignettes/using-response-plot.Rmd b/vignettes/using-response-plot.Rmd
@@ -53,9 +53,10 @@ data <- within(data, {
       TRUE ~ "-"
     )))
 })
-datanames(data) <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
-join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADRS", "ADTTE", "ADLB")]
-join_keys(data)["ADSL2"] <- get_cdisc_keys("ADSL")
+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"))
 # nolint end
 ```
 

diff --git a/vignettes/using-scatterplot-matrix.Rmd b/vignettes/using-scatterplot-matrix.Rmd
@@ -54,9 +54,10 @@ data <- within(data, {
       TRUE ~ "-"
     )))
 })
-datanames(data) <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
-join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADRS", "ADTTE", "ADLB")]
-join_keys(data)["ADSL2"] <- get_cdisc_keys("ADSL")
+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"))
 # nolint end
 ```
 

diff --git a/vignettes/using-scatterplot.Rmd b/vignettes/using-scatterplot.Rmd
@@ -54,9 +54,10 @@ data <- within(data, {
       TRUE ~ "-"
     )))
 })
-datanames(data) <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
-join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADRS", "ADTTE", "ADLB")]
-join_keys(data)["ADSL2"] <- get_cdisc_keys("ADSL")
+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"))
 # nolint end
 ```