R/ResourceFiles.R

In ohdsi-studies/Covid19VaccineAesiIncidenceRate: COVID-19 Vaccine AESI Incidence Characterization

getThisPackageName <- function() {
  return("Covid19VaccineAesiIncidenceRate")
}

#' @export
readCsv <- function(resourceFile, packageName = getThisPackageName(), col_types = readr::cols()) {
  packageName <- getThisPackageName()
  pathToCsv <- system.file(resourceFile, package = packageName, mustWork = TRUE)
  fileContents <- readr::read_csv(pathToCsv, col_types = col_types, lazy = FALSE)
  return(fileContents)
}