Nothing
geoconvert.2 <-
function(lat)
{
i <- sign(lat)
lat <- abs(lat)
p1 <- floor(lat)
p2 <- floor((lat - p1) * 60)
p3 <- round((lat - p1 - p2/60) * 100 * 60)
return(i * (p1 * 10000 + p2 * 100 + p3))
}
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.