Nothing
retrieve.horizons <-
function(profile_data, a, col, lwd, horizon.border=horizon.border) {
horizon_retrieved <- profile_data[[a]][[1]]
polygon(horizon_retrieved, col=col, lwd=lwd, border=horizon.border)
}
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.