Merge pull request #150 from pharmaverse/147_refresh_of_data

Closes #147 refresh of data

Author: Fanny-Gautier

NEWS.md

@@ -3,15 +3,18 @@
 ## New features
 
   - Added `ADAPET`, `ADTPET` and `ADNV` from `{admiralneuro}` using package version 0.2.1. (#138)
+  
+  - Added new `{admiral}` dataset for Anti-Drug Antibody data `ADAB`. (#143)  
 
 ## Documentation
 
-  - Added new `{admiral}` template for Anti-Drug Antibody data `ADAB`. (#143)
-
+  - Refreshed `{pharmaverseadam}` datasets using `{admiral}` 1.4.1, `{admiralonco}` 1.4.0, `{admiralophtha}` 1.4.0, `{admiralvaccine}` 0.6.0, `{admiralpeds}` 0.3.0,
+  `{admiralmetabolic}` 0.3.0, `{pharmaversesdtm}` 1.4.0. (#147)
+  
+  - The reference page was updated to categorize datasets by therapeutic areas. (#137)
+  
   - The dataset variables and specifications were ordered and grouped according to ADaM IG standards, and the reference page reflected this updated structure. (#128)
 
-  - The reference page was updated to categorize datasets by therapeutic areas. (#137)  
-
   - Added a new vignette "Explore ADaM Datasets" to preview all datasets included in the package. (#102)
 
 <details>

R/adpc.R

@@ -6,7 +6,7 @@
 #' @title Pharmacokinetic Concentrations
 #' @keywords dataset generic
 #' @docType data
-#' @format A data frame with 127 columns:
+#' @format A data frame with 128 columns:
 #'   \describe{
 #'     \item{ STUDYID }{Study Identifier}
 #'     \item{ USUBJID }{Unique Subject Identifier}
@@ -112,6 +112,7 @@
 #'     \item{ PCLLOQ }{Lower Limit of Quantitation}
 #'     \item{ VISIT }{Visit Name}
 #'     \item{ VISITNUM }{Visit Number}
+#'     \item{ VISITDY }{Planned Study Day of Visit}
 #'     \item{ PCDTC }{Date/Time of Specimen Collection}
 #'     \item{ PCDY }{Actual Study Day of Specimen Collection}
 #'     \item{ PCTPT }{Planned Time Point Name}

data-raw/create_adams_data.R

@@ -390,10 +390,13 @@ versions_msg <- "\n==== Package Versions Used ====\n"
 for (pkg in packages_list) {
   versions_msg <- paste0(versions_msg, sprintf("%s: %s\n", pkg, as.character(utils::packageVersion(pkg))))
 }
+
+# Add pharmaversesdtm version to the list
+versions_msg <- paste0(versions_msg, sprintf("pharmaversesdtm: %s\n", as.character(utils::packageVersion("pharmaversesdtm"))))
 versions_msg <- paste0(versions_msg, "==============================\n\n")
 cat(versions_msg)
 
-# Display error message when a template fails
+# Display error message when a template fails ----
 cli_div(theme = list(".error-detail" = list(color = "red")))
 for (res in all_results) {
   if (!is.null(res$exit_code) && res$exit_code != 0) {