As Simon Urbanek noted in the comments of a related question , you can do this:
library("jpeg")
jj <- readJPEG("myfile.jpg",native=TRUE)
plot(0:1,0:1,type="n",ann=FALSE,axes=FALSE)
rasterImage(jj,0,0,1,1)
or (for PNG)
library("png")
pp <- readPNG("myfile.png")
rasterImage(pp,0,0,1,1)
version 0.1.7 of png, 0.1.8 ofjpeg
source
share