## create a "fake and custom" data base
mydb = create_fake_subjectDB(n_subjects = 100, n_facilities = 100)
setnames(mydb, 1:4, c("myPatientId", "myHealthCareCenterID", "DateOfAdmission", "DateOfDischarge"))
mydb[,DateOfAdmission:= as.character(DateOfAdmission)]
mydb[,DateOfDischarge:= as.character(DateOfDischarge)]
head(mydb)
# myPatientId myHealthCareCenterID DateOfAdmission DateOfDischarge
#1: s001 f078 2019-01-26 2019-02-01
#2: s002 f053 2019-01-18 2019-01-21
#3: s002 f049 2019-02-25 2019-03-05
#4: s002 f033 2019-04-17 2019-04-21
#5: s003 f045 2019-02-02 2019-02-04
#6: s003 f087 2019-03-12 2019-03-19
str(mydb)
#Classes ‘data.table’ and 'data.frame': 262 obs. of 4 variables:
# $ myPatientId : chr "s001" "s002" "s002" "s002" ...
# $ myHealthCareCenterID: chr "f078" "f053" "f049" "f033" ...
# $ DateOfAdmission : chr "2019-01-26" "2019-01-18" "2019-02-25" "2019-04-17" ...
# $ DateOfDischarge : chr "2019-02-01" "2019-01-21" "2019-03-05" "2019-04-21" ...
#- attr(*, ".internal.selfref")=
my_checked_db = checkBase(mydb,
subjectID = "myPatientId",
facilityID = "myHealthCareCenterID",
disDate = "DateOfDischarge",
admDate = "DateOfAdmission",
convertDates = TRUE,
dateFormat = "ymd")
#Converting Adate, Ddate to Date format
#Checking for missing values...
#Checking for duplicated records...
#Removed 0 duplicates
#Done.
head(my_checked_db)
# sID fID Adate Ddate
#1: s001 f078 2019-01-26 2019-02-01
#2: s002 f053 2019-01-18 2019-01-21
#3: s002 f049 2019-02-25 2019-03-05
#4: s002 f033 2019-04-17 2019-04-21
#5: s003 f045 2019-02-02 2019-02-04
#6: s003 f087 2019-03-12 2019-03-19
str(my_checked_db)
#Classes ‘hospinet.base’, ‘data.table’ and 'data.frame': 262 obs. of 4 variables:
#$ sID : chr "s001" "s002" "s002" "s002" ...
#$ fID : chr "f078" "f053" "f049" "f033" ...
#$ Adate: POSIXct, format: "2019-01-26" "2019-01-18" "2019-02-25" "2019-04-17" ...
#$ Ddate: POSIXct, format: "2019-02-01" "2019-01-21" "2019-03-05" "2019-04-21" ...
# ...
## Show the quality report
attr(my_checked_db, "report")
Run the code above in your browser using DataLab