#17 fix typo, add info, add cm SDTM example

inst/cm_domain/cm_sdtm.csv

@@ -0,0 +1,7 @@
+STUDYID,DOMAIN,USUBJID,CMSEQ,CMGRPID,CMREFID,CMSPID,CMTRT,CMMODIFY,CMDECOD,CMCAT,CMPRESP,CMOCCUR,CMINDC,CMDOSE,CMDOSTXT,CMDOSU,CMDOSFRM,CMDOSFRQ,CMROUTE,VISITNUM,VISIT,VISITDY,EPOCH,CMDTC,CMSTDTC,CMENDTC,CMDY,CMSTDY,CMENDY,CMSTRTPT,CMSTTPT,CMENRTPT,CMENTPT,CMPROPH,CMDRG,CMDRGCD,CMPNCD
+LPSTUDY,CM,LPSTUDY-375,1,NA,NA,/F:VACHX-D:56379540-R:1,TETANUS,NA,NA,VACCINATION HISTORY,Y,Y,NA,NA,NA,NA,NA,NA,NA,1,Screening,-8,SCREENING,2020-09-01,2019-02-02,NA,-27,-604,NA,NA,NA,NA,NA,NA,NA,NA,NA
+LPSTUDY,CM,LPSTUDY-375,2,NA,NA,/F:VACHX-D:56379540-R:2,COVID-19,NA,NA,VACCINATION HISTORY,Y,Y,NA,NA,NA,NA,NA,NA,NA,1,Screening,-8,SCREENING,2020-09-01,2020-08-31,NA,-27,-28,NA,NA,NA,NA,NA,NA,NA,NA,NA
+LPSTUDY,CM,LPSTUDY-375,3,NA,NA,/F:VACHX-D:56379540-R:3,FLU,NA,NA,VACCINATION HISTORY,NA,NA,NA,NA,NA,NA,NA,NA,NA,1,Screening,-8,SCREENING,2020-09-01,NA,NA,-27,NA,NA,BEFORE,SCREENING,NA,NA,NA,NA,NA,NA
+LPSTUDY,CM,LPSTUDY-375,4,1,5652739,/F:MD1-D:56379253-R:1,BABY ASPIRIN,NA,ACETYLSALICYLIC ACID,NA,NA,NA,NA,10,NA,mg,TABLET,QD,ORAL,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,BEFORE,SCREENING,ONGOING,DATE OF LAST ASSESSMENT,NA,BABY ASPIRIN,00002701701,00002701001
+LPSTUDY,CM,LPSTUDY-375,5,2,5533807,/F:MD1-D:56379253-R:2,CORTISPORIN,CORTISPORIN (UNITED STATES),CORTICOSTEROIDS AND ANTIINFECTIVES IN COMBINATION,NA,NA,NA,NAUSEA,50,NA,g,PILL,NA,ORAL,NA,NA,NA,SCREENING,NA,2020-09-15,NA,NA,-13,NA,NA,NA,ONGOING,DATE OF LAST ASSESSMENT,NA,CORTICOSTEROIDS AND ANTIINFECTIVES IN COMBINATION,90104001001,90104001001
+LPSTUDY,CM,LPSTUDY-378,1,3,4537684,/F:MD1-D:63059916-R:3,TETRACYCLINE,NA,TETRACYCLINE,NA,NA,NA,FEVER,10,NA,mg,CAPSULE,BID,TRANSDERMAL,NA,NA,NA,TREATMENT,NA,2020-02-12T12:12,2020-02-18,NA,18,24,BEFORE,SCREENING,NA,NA,Y,TETRACYCLINE,00001701001,00001701001

inst/cm_domain/create_cm_template.R

@@ -14,13 +14,13 @@ library(dplyr)
 
 # Read Specification
 
-sdtm_spec <- read_sdtm_spec(filename = "~/inst/cm_domain/cm_sdtm_oak_spec.csv")
+sdtm_spec <- read_(filename = "~/inst/cm_domain/cm_sdtm_oak_spec.csv")
 
 study_ct <- read_study_ct(filename = "~/inst/cm_domain/cm_sdtm_oak_ct.csv")
 
 # Read in raw data
 
-cm_daw_data <- read_raw_data_csv(filename = "~/inst/cm_domain/cm_raw_data.csv") |>
+cm_raw_data <- read_raw_data_csv(filename = "~/inst/cm_domain/cm_raw_data.csv") |>
   # Derive oak_id_vars
   derive_oak_id_vars()
 

vignettes/articles/study_sdtm_spec.Rmd

@@ -70,7 +70,7 @@ source.
 
 **eDT Metadata**
 
-eDT Metadata is the blueprint metadata that describes the data collected as part of that external data transfer. This includes
+eDT Metadata is the blueprint metadata that describes the data collected as part of that external data transfer (from clinical sites to the sponsor). This includes
 
 - Dataset name, label, repeating properties, etc.