citHeader("To cite dataquieR in publications use")

if(!exists("meta") || is.null(meta))
  meta <- packageDescription("dataquieR")
if (is.null(meta$Date)) meta$Date <- Sys.Date()
year <- format(as.Date(meta$Date), "%Y")
note <- sprintf("R package version %s", meta$Version)

citEntry(entry = "Manual",
         title = "{dataquieR}: Data Quality in Epidemiological Research",
         author = personList(as.person("Adrian Richter"),
                       as.person("Carsten Oliver Schmidt"),
	                     as.person("Stephan Struckmann")),
         year = year,
         note = note,
         url = "https://dfg-qa.ship-med.uni-greifswald.de/",

         textVersion =
           paste("Adrian Richter, Carsten Oliver Schmidt, Stephan Struckmann",
     	       sprintf("(%s).", year),
                 "dataquieR: Data Quality in Epidemiological Research.",
  	       paste(note, ".", sep = ""),
                 "URL https://dfg-qa.ship-med.uni-greifswald.de/")
)
