#218

pharmaverse · Aug 22, 2023 · 361bd0e · 361bd0e
1 parent 04c5651
commit 361bd0e
Showing 1 changed file with 29 additions and 0 deletions.
diff --git a/inst/create_vx_data/vx_suppdm.R b/inst/create_vx_data/vx_suppdm.R
@@ -0,0 +1,29 @@
+library(tibble)
+library(tidyverse)
+#suppdm
+suppdm <- tribble(
+  ~STUDYID,
+  "ABC"
+)
+
+vx_suppdm <- suppdm %>% mutate(STUDYID = "ABC",
+                            USUBJID = "ABC-1001",
+                            RDOMAIN = "DM",
+                            IDVAR = "",
+                            IDVARVAL = "",
+                            QNAM = "RACIALD",
+                            QVAL = "OTHER",
+                            QLABEL = "Racial Designation",
+                            QORIG = "CRF") %>%
+  add_row(STUDYID = "ABC",
+          USUBJID = "ABC-1002",
+          RDOMAIN = "DM",
+          IDVAR = "",
+          IDVARVAL = "",
+          QNAM = "RACIALD",
+          QVAL = "OTHER",
+          QLABEL = "Racial Designation",
+          QORIG = "CRF")
+
+dir <- tempdir()
+save(vx_suppdm, file = file.path(dir, "vx_suppdm.rda"), compress = "bzip2")