Nothing
image2 <- function(img,...) {
img01 <- range01(img)
img.rast <- as.raster(img01)
plot(0,0,type='n',xlim=c(1,ncol(img.rast)),ylim=c(1,nrow(img.rast)),...)
rasterImage(img.rast,xleft=1,ybottom=1,xright=ncol(img.rast),ytop=nrow(img.rast))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.