cropped raster image

[steveharoz]

When including a rastergrob in a plot, it displays without issue in Rstudio. However, much of the image is cropped when outputting the plot with svglite.

Reproducible example:

library(ggplot2)
library(svglite)
library(grid)
library(RCurl)
library(png)

# get raster image
img <- readPNG(getURLContent("https://upload.wikimedia.org/wikipedia/commons/thumb/4/47/PNG_transparency_demonstration_1.png/280px-PNG_transparency_demonstration_1.png"))
imgGrob <- rasterGrob(img, interpolate=TRUE)

# make plot and add raster image
ggplot(data.frame(x=1:10, y=1:10)) +
  geom_point(aes(x=x, y=y)) +
  theme_void() +
  annotation_custom(imgGrob, xmin=5, xmax=8, ymin=2, ymax=5)

# save as svg file
#ggsave('test.svg', width=10, height=8) # equivalent ggsave call
svglite::svglite('test.svg', width=10, height=8)
last_plot()
dev.off()

Output in Rstudio:

Output from svglite:

[hadley]

Simpler reprex:

url1 <- "https://upload.wikimedia.org/wikipedia/commons/6/68/Solid_black.png"
url2 <- "https://upload.wikimedia.org/wikipedia/commons/thumb/4/47/PNG_transparency_demonstration_1.png/280px-PNG_transparency_demonstration_1.png"
img <- png::readPNG(curl::curl_fetch_memory(url2)$content)

htmlSVG({
  plot.new()
  rasterImage(img, 0.25, 0.25, 0.75, 0.75)
  rect(0.25, 0.25, 0.75, 0.75, border = "red", lwd = 2)
})

Interestingly, the problem doesn't seem to occur with the solid black png

[hadley]

@davidgohel given that this only happens with some images, is it possible it's a bug in gdtools?

[lionel-]

Fixed in davidgohel/gdtools#32