diff --git a/NAMESPACE b/NAMESPACE index 6e1ab3a..422b953 100644 --- 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 index 918b995..3c94023 100644 --- 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)) }