Add tests for add_phylopic_base and add_phylopic_legend

palaeoverse · Jul 30, 2024 · aa0adcd · aa0adcd
1 parent 0a101f0
commit aa0adcd
Show file tree

Hide file tree

Showing 5 changed files with 85 additions and 3 deletions.
diff --git a/R/add_phylopic_base.r b/R/add_phylopic_base.r
@@ -139,7 +139,7 @@ add_phylopic_base <- function(img = NULL, name = NULL, uuid = NULL,
     stop("`verbose` should be a logical value.")
   }
   if (lifecycle::is_present(ysize)) {
-    lifecycle::deprecate_warn("1.4.0", "add_phylopic_base(ysize)",
+    lifecycle::deprecate_warn("1.5.0", "add_phylopic_base(ysize)",
                               "add_phylopic_base(height)")
     if (is.null(height)) height <- ysize
   }

diff --git a/R/add_phylopic_legend.R b/R/add_phylopic_legend.R
@@ -49,7 +49,7 @@ add_phylopic_legend <- function(x, y = NULL, legend,
                                 color = NA, fill = "black", 
                                 ...) {
   if (lifecycle::is_present(ysize)) {
-    lifecycle::deprecate_warn("1.4.0", "add_phylopic_legend(ysize)",
+    lifecycle::deprecate_warn("1.5.0", "add_phylopic_legend(ysize)",
                               "add_phylopic_legend(height)")
     if (is.null(height)) height <- ysize
   }
@@ -76,7 +76,7 @@ add_phylopic_legend <- function(x, y = NULL, legend,
   # size values
   size <- args[["pt.cex"]]
   if (!is.null(size)) height <- size
-  # Set default ysize if required
+  # Set default height if required
   if (is.null(height)) height <- (abs(diff(leg_pos$text$y)) * 0.5)
   # Extract positions
   # Adjust x position slightly to account for width