Nothing
r2d <-
function(r)
{
lat <- floor(r/100)
lon <- (r - lat * 100) %% 50
halfb <- (r - 100 * lat - lon)/100
lon <- - (lon + 0.5)
lat <- lat + 60 + halfb + 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.