Nothing
r.corners <-
function(square)
{
lat <- r2d(square)
lat$lat <- c(lat$lat + 0.25, lat$lat - 0.25)
lat$lon <- c(lat$lon - 0.5, lat$lon + 0.5)
lat
}
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.