Nothing
"as.local.pimg" <-
function(pimg) {
img <- coords.pimg(pimg)
img$x <- img$x[pimg$offset[1]:(pimg$offset[1] + nrow(pimg$image)-1)]
img$y <- img$y[pimg$offset[2]:(pimg$offset[2] + ncol(pimg$image)-1)]
img$z <- pimg$image
img
}
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.