Nothing
imshow <- function(x,col=palette(gray(0:255/255)),useRaster = TRUE,...){
image(t(x)[,nrow(x):1],col=col,useRaster=useRaster,xaxt='n',yaxt='n',...)
}
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.