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.