Fix #104

palaeoverse · Mar 11, 2024 · 02c78d1 · 02c78d1
1 parent af5a646
commit 02c78d1
Show file tree

Hide file tree

Showing 6 changed files with 5 additions and 10 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -20,7 +20,7 @@ Encoding: UTF-8
 LazyData: true
 biocViews:
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Depends: 
     R (>= 4.0)
 Imports:

diff --git a/R/pick_phylopic.R b/R/pick_phylopic.R
@@ -75,8 +75,10 @@ pick_phylopic <- function(name = NULL, n = 5, uuid = NULL, view = 1,
     grid.newpage()
     grid.picture(img)
     # Add text for attribution
+    att <- att[[1]][[1]]
     att_string <- paste0("Contributor: ", att$contributor, "\n",
                          "Created: ", att$created, "\n",
+                         "Attribution: ", att$attribution, "\n",
                          "License: ", att$license)
     grid.text(label = att_string,
               x = 0.96, y = 0.92,
@@ -126,6 +128,7 @@ pick_phylopic <- function(name = NULL, n = 5, uuid = NULL, view = 1,
     }
     # Get attribution data
     att <- lapply(uuids[[i]], get_attribution)
+    att <- lapply(att, function(x) x[[1]][[1]])
     # Attribution text
     n_spaces <- 3 + floor(log10(length(att) + 1))
     att_string <- lapply(att, function(x) {

diff --git a/tests/testthat/_snaps/geom_phylopic/phylopic-key-glyph-with-img.svg b/tests/testthat/_snaps/geom_phylopic/phylopic-key-glyph-with-img.svg