Merge pull request #139 from bennettoxford/milanwiedemann/add-citation-startup-msg

milanwiedemann · web-flow · commit dcf2de23a085 · 2025-11-11T11:40:23.000Z
Add citation startup message
diff --git a/NAMESPACE b/NAMESPACE
@@ -56,3 +56,4 @@ importFrom(stringr,str_replace_all)
 importFrom(tibble,as_tibble)
 importFrom(tibble,tibble)
 importFrom(tidyr,complete)
+importFrom(utils,citation)
diff --git a/R/zzz.R b/R/zzz.R
@@ -3,6 +3,13 @@
   options(rmarkdown.html_vignette.check_title = FALSE)
 }
 
+#' @importFrom utils citation
+.onAttach <- function(libname, pkgname) {
+  cit <- utils::citation(pkgname)
+  doi_url <- paste0("https://doi.org/", cit$doi)
+  packageStartupMessage("To cite ", pkgname, " use: ", doi_url)
+}
+
 utils::globalVariables(c(
   "annual_proportion",
   "start_date",
