Nothing
rPeri <-
function(r)
{
lat <- r2d(r)$lat
lon <- r2d(r)$lon
lat <- lat + c(1/4, 1/4, - 1/4, - 1/4, 1/4)
lon <- lon + c(0.5, - 0.5, - 0.5, 0.5, 0.5)
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.