allow image objects in image column

clauswilke · Sep 28, 2018 · 796ab08 · 796ab08
1 parent efd845b
commit 796ab08
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -26,5 +26,6 @@ Collate:
     'geom-textured-bar.R'
     'geom-isotype-bar.R'
     'ggtextures.R'
+    'scale-image.R'
     'texture-grob.R'
     'utils.R'
diff --git a/R/geom-textured-rect.R b/R/geom-textured-rect.R
@@ -92,7 +92,7 @@ GeomTexturedRect <- ggproto("GeomTexturedRect",
           }
 
           texture_grob(
-            magick::image_read(image),
+            get_raster_image(image),
             x = unit(xmin, "native"), y = unit(ymax, "native"),
             width = unit(xmax - xmin, "native"),
             height = unit(ymax - ymin, "native"),
@@ -117,6 +117,17 @@ GeomTexturedRect <- ggproto("GeomTexturedRect",
   draw_key = draw_key_polygon
 )
 
+get_raster_image <- function(img) {
+  UseMethod("get_raster_image", img)
+}
+
+get_raster_image.default <- function(img) {
+  magick::image_read(img)
+}
+
+`get_raster_image.magick-image` <- function(img) {
+  img
+}
 
 # sources of free textures to use:
 # https://www.hypergridbusiness.com/free-seamless-textures/

diff --git a/R/scale-image.R b/R/scale-image.R
@@ -0,0 +1 @@
+#