Nothing
srPeri <-
function(sr)
{
lat <- sr2d(sr)$lat
lon <- sr2d(sr)$lon
lat <- lat + c(1/8, 1/8, - 1/8, - 1/8, 1/8)
lon <- lon + c(0.25, - 0.25, - 0.25, 0.25, 0.25)
data.frame(lat = lat, lon = lon)
}
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.