Nothing
selpos <-
function(lat, lon = NULL, ind)
{
if(is.null(lon)) {
lon <- lat$lon
lat <- lat$lat
}
lat <- lat[ind]
lon <- lon[ind]
return(lat, 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.