Closes #12 - Created DM metabolic dataset

.Rbuildignore

@@ -17,3 +17,4 @@
 ^staged_dependencies.yaml$
 ^README.Rmd$
 ^\.devcontainer$
+^data-raw$

.lintr

@@ -9,5 +9,6 @@ linters: linters_with_defaults(
 exclusions: list(
     "R/data.R" = Inf,
     "inst" = list(undesirable_function_linter = Inf),
-    "vignettes" = list(undesirable_function_linter = Inf)
+    "vignettes" = list(undesirable_function_linter = Inf),
+    "data-raw" = list(undesirable_function_linter = Inf)
   )

DESCRIPTION

@@ -40,7 +40,8 @@ Suggests:
     pharmaversesdtm (>= 1.0.0),
     rmarkdown,
     testthat (>= 3.0.0),
-    tibble
+    tibble,
+    usethis (>= 2.2.3)
 VignetteBuilder: 
     knitr
 Config/testthat/edition: 3

R/data.R

@@ -0,0 +1,6 @@
+#' Example demographic dataset
+#'
+#' An example Demographic SDTM dataset for metabolic studies.
+#'
+#' @source Constructed using `dm` from the `{pharmaversesdtm}` package
+"dm_metabolic"

data-raw/dm_metabolic.R

@@ -0,0 +1,46 @@
+# Dataset: dm_metabolic
+# Description: Demographics (DM) SDTM dataset for metabolic studies
+
+# Load libraries ----
+library(pharmaversesdtm)
+library(tibble)
+library(dplyr)
+library(purrr)
+
+# Import DM data from `pharmaversesdtm` ----
+data("dm")
+
+# Subset to first 5 subjects ----
+dm_subset <- dm |>
+  filter(USUBJID %in% c(
+    "01-701-1015", "01-701-1023", "01-701-1028",
+    "01-701-1033", "01-701-1034"
+  ))
+
+# Change treatment arms ----
+dm_metabolic <- dm_subset |>
+  mutate(
+    ARMCD = case_when(
+      ARMCD == "Pbo" ~ "Pbo",
+      ARMCD %in% c("Xan_Hi", "Xan_Lo") ~ "Ins"
+    ),
+    ARM = case_when(
+      ARM == "Placebo" ~ "Placebo",
+      ARM %in% c(
+        "Xanomeline High Dose",
+        "Xanomeline Low Dose"
+      ) ~ "Insulin"
+    ),
+    ACTARMCD = ARMCD,
+    ACTARM = ARM
+  )
+
+# Restore attributes ----
+common_cols <- intersect(names(dm_metabolic), names(dm))
+walk(
+  .x = common_cols,
+  .f = \(x) attr(dm_metabolic[[x]], "label") <<- attr(dm[[x]], "label")
+)
+
+# Save data inside data folder----
+usethis::use_data(dm_metabolic, overwrite = TRUE)