library(png)
taf.pixels <- tolower(as.raster(readPNG("png/diagram.png")))
save(taf.pixels, file="taf.pixels.RData", compress="xz")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.