-
[1] "2024-03-30 17:55:54 UTC"[1] "2024-04-03 18:00:45 UTC"sorting incoming data by key columnsListing of Anti-R1800000 Antibody Data for Treatment Emergent ADA Positive Patients, PK Population
Protocol: A: Drug X Antibody
@@ -1603,28 +1601,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1649,8 +1647,8 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] scda_0.1.6.9017 rlistings_0.2.7.9011 tibble_3.2.1
-[4] formatters_0.5.5.9016 dplyr_1.1.4
+[1] scda_0.1.6.9017 rlistings_0.2.7.9012 tibble_3.2.1
+[4] formatters_0.5.5.9018 dplyr_1.1.4
loaded via a namespace (and not attached):
[1] vctrs_0.6.5 cli_3.6.2 knitr_1.45 rlang_1.1.3
@@ -1668,31 +1666,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2320,139 +2318,139 @@
Listing of ECG Data: Safety-Evaluable Patients
@@ -1560,28 +1558,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1606,7 +1604,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] scda_0.1.6.9017 dplyr_1.1.4
loaded via a namespace (and not attached):
@@ -1625,31 +1623,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2277,106 +2275,106 @@
Listing of Preferred Terms, Lowest Level Terms, and Investigator-Specified Adverse Event Terms
@@ -1496,28 +1494,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1542,7 +1540,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] dplyr_1.1.4 scda_0.1.6.9017
loaded via a namespace (and not attached):
@@ -1561,31 +1559,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2213,56 +2211,56 @@
Listing of Preferred Terms and Investigator-Specified Adverse Event Terms
@@ -1495,28 +1493,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1541,7 +1539,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] dplyr_1.1.4 scda_0.1.6.9017
loaded via a namespace (and not attached):
@@ -1560,31 +1558,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2212,55 +2210,55 @@
Listing of Adverse Events
@@ -1560,28 +1558,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1606,7 +1604,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] scda_0.1.6.9017 dplyr_1.1.4
loaded via a namespace (and not attached):
@@ -1625,31 +1623,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2277,98 +2275,98 @@
Listing of Adverse Events (for early development studies)
@@ -1578,28 +1576,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1624,8 +1622,8 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] lubridate_1.9.3 rlistings_0.2.7.9011 tibble_3.2.1
-[4] formatters_0.5.5.9016 scda_0.1.6.9017 dplyr_1.1.4
+[1] lubridate_1.9.3 rlistings_0.2.7.9012 tibble_3.2.1
+[4] formatters_0.5.5.9018 scda_0.1.6.9017 dplyr_1.1.4
loaded via a namespace (and not attached):
[1] vctrs_0.6.5 cli_3.6.2 knitr_1.45 rlang_1.1.3
@@ -1643,31 +1641,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2295,116 +2293,116 @@
Listing of Serious Adverse Events
@@ -1579,28 +1577,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1625,7 +1623,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] dplyr_1.1.4 scda_0.1.6.9017
loaded via a namespace (and not attached):
@@ -1644,31 +1642,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2296,112 +2294,112 @@
Listing of Patient Deaths
@@ -1517,28 +1515,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1563,7 +1561,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] scda_0.1.6.9017 dplyr_1.1.4
loaded via a namespace (and not attached):
@@ -1582,31 +1580,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2234,66 +2232,66 @@
Listing of Previous and Concomitant Medications
@@ -1528,28 +1526,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1574,7 +1572,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] scda_0.1.6.9017 dplyr_1.1.4
loaded via a namespace (and not attached):
@@ -1593,31 +1591,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2245,77 +2243,77 @@
Listing of Concomitant Medication Class Level 2, Preferred Name, and Investigator-Specified Terms
@@ -1502,28 +1500,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1548,7 +1546,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] dplyr_1.1.4 scda_0.1.6.9017
loaded via a namespace (and not attached):
@@ -1567,31 +1565,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2219,55 +2217,55 @@
Listing of Concomitant Medication Class, Preferred Name, and Investigator-Specified Terms
@@ -1505,28 +1503,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1551,7 +1549,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] dplyr_1.1.4 scda_0.1.6.9017
loaded via a namespace (and not attached):
@@ -1570,31 +1568,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2222,58 +2220,58 @@
Listing of Patients Who Died During Reporting Period
Number of patient deaths during reporting period = 70
@@ -1507,28 +1505,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1553,7 +1551,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] dplyr_1.1.4 scda_0.1.6.9017
loaded via a namespace (and not attached):
@@ -1572,31 +1570,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2224,57 +2222,57 @@
Listing of Patients with Study Drug Withdrawn Due to Adverse Events
@@ -1516,28 +1514,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1562,7 +1560,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] dplyr_1.1.4 scda_0.1.6.9017
loaded via a namespace (and not attached):
@@ -1581,31 +1579,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2233,65 +2231,65 @@
Listing of Patients Who Discontinued Early from Study
@@ -1511,28 +1509,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1557,7 +1555,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] dplyr_1.1.4 scda_0.1.6.9017
loaded via a namespace (and not attached):
@@ -1576,31 +1574,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2228,73 +2226,73 @@
Listing of Individual Efficacy Data
@@ -1571,28 +1569,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1617,7 +1615,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] dplyr_1.1.4 scda_0.1.6.9017
loaded via a namespace (and not attached):
@@ -1636,31 +1634,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2288,117 +2286,117 @@
Listing of Exposure to Study Drug
@@ -1515,28 +1513,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1561,7 +1559,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] scda_0.1.6.9017 dplyr_1.1.4
loaded via a namespace (and not attached):
@@ -1580,31 +1578,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2232,65 +2230,65 @@
Listing of Laboratory Test Results
@@ -1544,28 +1542,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1590,7 +1588,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] scda_0.1.6.9017 dplyr_1.1.4
loaded via a namespace (and not attached):
@@ -1609,31 +1607,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2261,90 +2259,90 @@
Listing of Laboratory Test Results Using Roche Safety Lab Standardization
@@ -1549,28 +1547,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1595,7 +1593,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] scda_0.1.6.9017 dplyr_1.1.4
loaded via a namespace (and not attached):
@@ -1614,31 +1612,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2266,95 +2264,95 @@
Listing of Laboratory Abnormalities Defined by NCI CTCAE Grade >= 1
@@ -1544,28 +1542,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1590,7 +1588,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] scda_0.1.6.9017 dplyr_1.1.4
loaded via a namespace (and not attached):
@@ -1609,31 +1607,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2261,90 +2259,90 @@
Listing of Laboratory Abnormalities Defined by Roche Safety Lab Standardization
@@ -1565,28 +1563,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1611,7 +1609,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] scda_0.1.6.9017 dplyr_1.1.4
loaded via a namespace (and not attached):
@@ -1630,31 +1628,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2282,110 +2280,110 @@
Listing of Laboratory Abnormalities Defined by NCI CTCAE Grade >= 2
@@ -1545,28 +1543,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1591,7 +1589,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] scda_0.1.6.9017 dplyr_1.1.4
loaded via a namespace (and not attached):
@@ -1610,31 +1608,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2262,91 +2260,91 @@
Listing of Medical History and Concurrent Diseases
@@ -1520,28 +1518,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1566,7 +1564,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] scda_0.1.6.9017 dplyr_1.1.4
loaded via a namespace (and not attached):
@@ -1585,31 +1583,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2237,69 +2235,69 @@
Listing of Plasma Drug X Concentration by Treatment Group, Subject and Nominal Time, PK Population
Protocol: xxnnnnn
@@ -1518,28 +1516,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1564,8 +1562,8 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] dplyr_1.1.4 scda_0.1.6.9017 rlistings_0.2.7.9011
-[4] tibble_3.2.1 formatters_0.5.5.9016
+[1] dplyr_1.1.4 scda_0.1.6.9017 rlistings_0.2.7.9012
+[4] tibble_3.2.1 formatters_0.5.5.9018
loaded via a namespace (and not attached):
[1] vctrs_0.6.5 cli_3.6.2 knitr_1.45 rlang_1.1.3
@@ -1583,31 +1581,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2235,65 +2233,65 @@
Listing of Drug X Urine Concentration and Volumes following BID of Drug X, PK Population
Protocol: xxnnnnn
@@ -1552,28 +1550,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1598,8 +1596,8 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] scda_0.1.6.9017 rlistings_0.2.7.9011 tibble_3.2.1
-[4] formatters_0.5.5.9016 dplyr_1.1.4
+[1] scda_0.1.6.9017 rlistings_0.2.7.9012 tibble_3.2.1
+[4] formatters_0.5.5.9018 dplyr_1.1.4
loaded via a namespace (and not attached):
[1] vctrs_0.6.5 cli_3.6.2 knitr_1.45 rlang_1.1.3
@@ -1617,31 +1615,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2269,98 +2267,98 @@
Listing of Plasma Drug X Plasma PK Parameters, PK Population
Protocol: xxnnnnn
@@ -1520,28 +1518,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1566,8 +1564,8 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] scda_0.1.6.9017 rlistings_0.2.7.9011 tibble_3.2.1
-[4] formatters_0.5.5.9016 dplyr_1.1.4
+[1] scda_0.1.6.9017 rlistings_0.2.7.9012 tibble_3.2.1
+[4] formatters_0.5.5.9018 dplyr_1.1.4
loaded via a namespace (and not attached):
[1] vctrs_0.6.5 cli_3.6.2 knitr_1.45 rlang_1.1.3
@@ -1585,31 +1583,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2237,69 +2235,69 @@
Listing of Plasma Drug X Urine PK Parameters, PK Population
Protocol: xxnnnnn
@@ -1521,28 +1519,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1567,8 +1565,8 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] scda_0.1.6.9017 rlistings_0.2.7.9011 tibble_3.2.1
-[4] formatters_0.5.5.9016 dplyr_1.1.4
+[1] scda_0.1.6.9017 rlistings_0.2.7.9012 tibble_3.2.1
+[4] formatters_0.5.5.9018 dplyr_1.1.4
loaded via a namespace (and not attached):
[1] vctrs_0.6.5 cli_3.6.2 knitr_1.45 rlang_1.1.3
@@ -1586,31 +1584,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2238,70 +2236,70 @@
Listing of Individual Plasma Drug X AUC Infinity Obs and Max Conc Ratios following BID Plasma Drug X or Plasma Drug Y, PK Population
Protocol: xxnnnnn
@@ -1539,28 +1537,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1585,8 +1583,8 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] scda_0.1.6.9017 rlistings_0.2.7.9011 tibble_3.2.1
-[4] formatters_0.5.5.9016 dplyr_1.1.4
+[1] scda_0.1.6.9017 rlistings_0.2.7.9012 tibble_3.2.1
+[4] formatters_0.5.5.9018 dplyr_1.1.4
loaded via a namespace (and not attached):
[1] vctrs_0.6.5 cli_3.6.2 knitr_1.45 rlang_1.1.3
@@ -1604,31 +1602,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2256,85 +2254,85 @@
Listing of Vital Signs: Safety-Evaluable Patients
@@ -1596,28 +1594,28 @@
if (exists("tenv")) {
- filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
- filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
- if (!dir.exists(dirname(filepath))) {
- dir.create(dirname(filepath), recursive = TRUE)
- }
- saveRDS(tenv, filepath)
-}if (exists("tenv")) {
+ filename <- paste0(gsub("\\.rmarkdown$", "", knitr::current_input(dir = TRUE)), ".rds")
+ filepath <- gsub(normalizePath(Sys.getenv("QUARTO_PROJECT_DIR")), file.path(Sys.getenv("QUARTO_TESTTHAT_DATA_PATH"), Sys.getenv("QUARTO_PROFILE")), filename)
+ if (!dir.exists(dirname(filepath))) {
+ dir.create(dirname(filepath), recursive = TRUE)
+ }
+ saveRDS(tenv, filepath)
+}R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
@@ -1642,7 +1640,7 @@
[1] stats graphics grDevices utils datasets methods base
other attached packages:
-[1] rlistings_0.2.7.9011 tibble_3.2.1 formatters_0.5.5.9016
+[1] rlistings_0.2.7.9012 tibble_3.2.1 formatters_0.5.5.9018
[4] scda_0.1.6.9017 dplyr_1.1.4
loaded via a namespace (and not attached):
@@ -1661,31 +1659,31 @@
.lock file
Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.
-Code
parent_file_path <- knitr::current_input(dir = TRUE)
-
-book_root_dir <- parent_file_path
-while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
-
-lock_path <- file.path(
- "../../assets/www/lock",
- paste0(
- gsub(
- file.path(book_root_dir, ""),
- "",
- gsub(
- "\\.rmarkdown$",
- "",
- knitr::current_input(dir = TRUE)
- )
- ),
- ".lock"
- )
-)
-
-withr::with_options(
- list(renv.verbose = FALSE),
- renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
-)
+Code
parent_file_path <- knitr::current_input(dir = TRUE)
+
+book_root_dir <- parent_file_path
+while (!file.exists(file.path(book_root_dir, "_quarto.yml"))) book_root_dir <- dirname(book_root_dir)
+
+lock_path <- file.path(
+ "../../assets/www/lock",
+ paste0(
+ gsub(
+ file.path(book_root_dir, ""),
+ "",
+ gsub(
+ "\\.rmarkdown$",
+ "",
+ knitr::current_input(dir = TRUE)
+ )
+ ),
+ ".lock"
+ )
+)
+
+withr::with_options(
+ list(renv.verbose = FALSE),
+ renv::snapshot(parent_file_path, lockfile = lock_path, prompt = FALSE, force = TRUE)
+)
@@ -2313,139 +2311,139 @@