Add (default) scales for height and width aesthetics

DESCRIPTION

@@ -36,7 +36,8 @@ Imports:
     methods,
     lifecycle,
     pbapply,
-    knitr
+    knitr,
+    scales
 Suggests:
     testthat (>= 3.0.0),
     vdiffr (>= 1.0.0),

NAMESPACE

@@ -25,10 +25,13 @@ export(recolor_phylopic)
 export(resolve_phylopic)
 export(rotate_phylopic)
 export(save_phylopic)
+export(scale_height_continuous)
+export(scale_width_continuous)
 importFrom(curl,nslookup)
 importFrom(ggplot2,Geom)
 importFrom(ggplot2,aes)
 importFrom(ggplot2,annotate)
+importFrom(ggplot2,continuous_scale)
 importFrom(ggplot2,coord_equal)
 importFrom(ggplot2,element_text)
 importFrom(ggplot2,expansion)
@@ -40,6 +43,7 @@ importFrom(ggplot2,layer)
 importFrom(ggplot2,remove_missing)
 importFrom(ggplot2,theme)
 importFrom(ggplot2,theme_void)
+importFrom(ggplot2,waiver)
 importFrom(grDevices,bmp)
 importFrom(grDevices,col2rgb)
 importFrom(grDevices,dev.off)
@@ -81,6 +85,7 @@ importFrom(pbapply,pblapply)
 importFrom(png,readPNG)
 importFrom(rsvg,rsvg_png)
 importFrom(rsvg,rsvg_svg)
+importFrom(scales,pal_area)
 importFrom(stats,setNames)
 importFrom(utils,URLdecode)
 importFrom(utils,URLencode)

R/geom_phylopic.R

@@ -499,6 +499,40 @@ phylopicGrob <- function(img, x, y, height, width,
   return(img_grob)
 }
 
+#' Scales for phylopic heighgt or width
+#'
+#' `scale_height_continuous()` scales the height of silhouettes whereas
+#' `scale_width_continuous()` scales the height of silhouettes. 
+#' @inheritParams ggplot2::scale_size_continuous
+#' @export
+#' @importFrom ggplot2 continuous_scale waiver
+#' @importFrom scales pal_area
+#' @rdname scales
+scale_height_continuous <- function(name = waiver(), breaks = waiver(), labels = waiver(),
+                                    limits = NULL, range = c(1, 6),
+                                    transform = "identity",
+                                    trans = lifecycle::deprecated(),
+                                    guide = "none") {
+  continuous_scale("height", palette = scales::pal_area(range), name = name,
+                   breaks = breaks, labels = labels, limits = limits,
+                   transform = transform, trans = trans, guide = guide)
+}
+
+#' @inheritParams ggplot2::scale_size_continuous
+#' @export
+#' @importFrom ggplot2 continuous_scale waiver
+#' @importFrom scales pal_area
+#' @rdname scales
+scale_width_continuous <- function(name = waiver(), breaks = waiver(), labels = waiver(),
+                                    limits = NULL, range = c(1, 6),
+                                    transform = "identity",
+                                    trans = lifecycle::deprecated(),
+                                    guide = "none") {
+  continuous_scale("width", palette = scales::pal_area(range), name = name,
+                   breaks = breaks, labels = labels, limits = limits,
+                   transform = transform, trans = trans, guide = guide)
+}
+
 #' @importFrom grid grobName
 ggname <- function(prefix, grob) {
   # copied from ggplot2