Nothing
plotGPSArrows <- function(object,
fraction = 2, head = .5, ...) {
xy <- geoXY(object@latitude, object@longitude)
x = xy[,1]; y = xy[,2]
plot(x, y, asp = 1, type = "n")
speed <- trackSpeed(cbind(xy,object@elevation), object@time)
speed <- speed * ( fraction/max(speed, na.rm=TRUE))
trackArrows(x, y, speed, head, ...)
}
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.