Nothing
exportFootprintPoints <-
function (ftp, xcoord, ycoord)
{
x = t(apply(ftp[[2]], 2, rev))
y = t(apply(ftp[[3]], 2, rev))
z = t(apply(ftp[[1]], 2, rev))
df = data.frame(x = numeric(length(x)), y = numeric(length(y)),
z = numeric(length(cumsum(z))))
df$z = as.vector(z)
df$x = as.vector(x)
df$y = as.vector(y)
df$x = df$x + xcoord
df$y = df$y + ycoord
return(df)
}
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.