Nothing
geozoom <-
function()
{
geopar <- getOption("geopar")
if(as.character(geopar$command[length(geopar$command)]) != "123")
com <- c(geopar$command, zoom = 123)
else com <- geopar$command
eval(com)
}
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.