if (!exists("meta") || is.null(meta)) meta <- packageDescription("synbreed")

citHeader("To cite package", sQuote(meta$Package), "in publications use:")

### Default citation of R packages
 year <- sub(".*(2[[:digit:]]{3})-.*", "\\1", meta$Date)
 vers <- paste("R package version", meta$Version)
 title <- paste(meta$Package, ": ", meta$Title, sep = "")
 citEntry(
     entry = "Manual",
     title = title,
     author = as.personList(meta$Author),
     year = year,
     note = vers,
     url = meta$URL,
     textVersion = paste(meta$Author, " (", year, "). ", title, ". ",
                         vers, ". ", meta$URL, sep = "")
 )

