R/getEligiblePeriod.R

In DHLab-CGU/emr: An analysis tool for diagnosis and procedure records

#' @rdname getEligiblePeriod
#' @export
#'
getEligiblePeriod <- function(dxDataFile, idColName, dateColName){
  dxDataFile <- as.data.table(dxDataFile)
  DataCol <- c(deparse(substitute(idColName)), deparse(substitute(dateColName)))
  dxDataFile <- dxDataFile[,DataCol,with = FALSE]
  names(dxDataFile) <- c("ID", "Date")
  dxDataFile[,"Date"] <- as.Date(dxDataFile[,Date])

  recordDate <- dxDataFile[,list(firstRecordDate = min(Date), endRecordDate = max(Date)),by = "ID"][order(firstRecordDate,endRecordDate),]

  recordDate
}