add package citation (#94)

palaeoverse · Dec 1, 2023 · 4d49f13 · 4d49f13
1 parent b2cc0e6
commit 4d49f13
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/NAMESPACE b/NAMESPACE
@@ -78,3 +78,4 @@ importFrom(stats,setNames)
 importFrom(utils,browseURL)
 importFrom(utils,menu)
 importFrom(utils,packageDescription)
+importFrom(utils,packageVersion)
diff --git a/R/get_attribution.R b/R/get_attribution.R
@@ -20,6 +20,7 @@
 #'   `TRUE`, a text paragraph with the contributor name, year of contribution,
 #'    and license type is returned.
 #' @importFrom knitr combine_words
+#' @importFrom utils packageVersion
 #' @export
 #' @examples
 #' # Get valid uuid
@@ -125,7 +126,9 @@ get_attribution <- function(uuid = NULL, img = NULL, text = FALSE) {
   }
   if (text) {
     att <- paste0("Organism silhouettes are from PhyloPic ",
-                  "(https://www.phylopic.org/; T. Michael Keesey, 2023). ",
+                  "(https://www.phylopic.org/; T. Michael Keesey, 2023) ",
+                  "and were added using the rphylopic R package ver. ",
+                  packageVersion("rphylopic"), " (Gearty & Jones, 2023). ",
                   att)
     return(message(att))
   }