Remove outdated references to sample datasets.

Boehringer-Ingelheim · Feb 19, 2025 · ac4cd3f · ac4cd3f
1 parent c9e02a9
commit ac4cd3f
Show file tree

Hide file tree

Showing 5 changed files with 18 additions and 14 deletions.
diff --git a/vignettes/boxplot.Rmd b/vignettes/boxplot.Rmd
@@ -118,15 +118,15 @@ A table containing a set of statistical tests comparing the means of different g
 # Creating a boxplot application
 
 ```{r, eval=FALSE}
-adbm_dataset <- dv.explorer.parameter::adbm_example %>%
+adbm_dataset <- dv.explorer.parameter:::safety_data()[["bm"]] %>%
   dplyr::mutate(
     USUBJID = factor(USUBJID),
     PARCAT1 = factor(PARCAT1),
     PARAM = factor(PARAM),
     AVISIT = factor(AVISIT)
   )
 
-adsl_dataset <- dv.explorer.parameter::adsl_example %>%
+adsl_dataset <- dv.explorer.parameter:::safety_data()[["sl"]] %>%
   dplyr::mutate(USUBJID = factor(USUBJID))
 
 dv.manager::run_app(
@@ -137,7 +137,8 @@ dv.manager::run_app(
       bm_dataset_name = "adbm",
       group_dataset_name = "adsl",
       subjid_var = "USUBJID",
-      cat_var = "PARCAT1"
+      cat_var = "PARCAT1",
+      value_vars = "AVAL"
     )
   ),
   filter_data = "adsl",

diff --git a/vignettes/correlation_heatmap.Rmd b/vignettes/correlation_heatmap.Rmd
@@ -108,15 +108,15 @@ Decimal values on this table are rounded (mathematical, round-to-even) to four d
 
 ```{r, eval=FALSE}
 adbm_dataset <- dplyr::mutate(
-  dv.explorer.parameter::adbm_example,
+  dv.explorer.parameter:::safety_data()[["bm"]],
   USUBJID = factor(USUBJID),
   PARCAT1 = factor(PARCAT1),
   PARAM = factor(PARAM),
   AVISIT = factor(AVISIT)
 )
 
 adsl_dataset <- dplyr::mutate(
-  dv.explorer.parameter::adsl_example,
+  dv.explorer.parameter:::safety_data()[["sl"]],
   USUBJID = factor(USUBJID)
 )
 

diff --git a/vignettes/forest.Rmd b/vignettes/forest.Rmd
@@ -104,15 +104,15 @@ the data. Controls embedded in the table headings allow arbitrary reorderings of
 
 ```{r, eval=FALSE}
 adbm_dataset <- dplyr::mutate(
-  dv.explorer.parameter::adbm_example,
+  dv.explorer.parameter:::safety_data()[["bm"]],
   USUBJID = factor(USUBJID),
   PARCAT1 = factor(PARCAT1),
   PARAM = factor(PARAM),
   AVISIT = factor(AVISIT)
 )
 
 adsl_dataset <- dplyr::mutate(
-  dv.explorer.parameter::adsl_example,
+  dv.explorer.parameter:::safety_data()[["sl"]],
   USUBJID = factor(USUBJID)
 )
 
@@ -134,7 +134,8 @@ dv.manager::run_app(
       numeric_numeric_functions = fp_numeric_numeric_functions,
       numeric_factor_functions = fp_numeric_factor_functions,
       subjid_var = "USUBJID",
-      cat_var = "PARCAT1"
+      cat_var = "PARCAT1",
+      value_vars = "AVAL"
     )
   ),
   filter_data = "adsl",

diff --git a/vignettes/scatterplot.Rmd b/vignettes/scatterplot.Rmd
@@ -99,15 +99,15 @@ A table containing a set of statistics regarding the regression and correlation.
 # Creating a boxplot application
 
 ```{r, eval=FALSE}
-adbm_dataset <- dv.explorer.parameter::adbm_example %>%
+adbm_dataset <- dv.explorer.parameter:::safety_data()[["bm"]] %>%
   dplyr::mutate(
     USUBJID = factor(USUBJID),
     PARCAT1 = factor(PARCAT1),
     PARAM = factor(PARAM),
     AVISIT = factor(AVISIT)
   )
 
-adsl_dataset <- dv.explorer.parameter::adsl_example %>%
+adsl_dataset <- dv.explorer.parameter:::safety_data()[["sl"]] %>%
   dplyr::mutate(USUBJID = factor(USUBJID))
 
 dv.manager::run_app(
@@ -118,7 +118,8 @@ dv.manager::run_app(
       bm_dataset_name = "adbm",
       group_dataset_name = "adsl",
       subjid_var = "USUBJID",
-      cat_var = "PARCAT1"
+      cat_var = "PARCAT1",
+      value_vars = "AVAL"
     )
   ),
   filter_data = "adsl",

diff --git a/vignettes/scatterplotmatrix.Rmd b/vignettes/scatterplotmatrix.Rmd
@@ -82,15 +82,15 @@ This visualizations consists of a matrix of scatterplots with correlation statis
 # Creating a scatterplotmatrix application
 
 ```{r, eval=FALSE}
-adbm_dataset <- dv.explorer.parameter::adbm_example %>%
+adbm_dataset <- dv.explorer.parameter:::safety_data()[["bm"]] %>%
   dplyr::mutate(
     USUBJID = factor(USUBJID),
     PARCAT1 = factor(PARCAT1),
     PARAM = factor(PARAM),
     AVISIT = factor(AVISIT)
   )
 
-adsl_dataset <- dv.explorer.parameter::adsl_example %>%
+adsl_dataset <- dv.explorer.parameter:::safety_data()[["sl"]] %>%
   dplyr::mutate(USUBJID = factor(USUBJID))
 
 dv.manager::run_app(
@@ -101,7 +101,8 @@ dv.manager::run_app(
       bm_dataset_name = "adbm",
       group_dataset_name = "adsl",
       subjid_var = "USUBJID",
-      cat_var = "PARCAT1"
+      cat_var = "PARCAT1",
+      value_vars = "AVAL"
     )
   ),
   filter_data = "adsl",