Nothing
STItoSpatialLines <- function(sti){
#Create a container for STI objects
lines <- list()
lines[[1]] <- Lines(Line(sti@sp), 1)
##Convert STI object in a single SpatialLines object
sl <- SpatialLines(lines)
sl@proj4string <- CRS("+proj=longlat +datum=WGS84")
return(sl)
}
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.