Nothing
loc.slp <- function() {
coord <- locator(2)
slp <- (coord$y[2]-coord$y[1])/(coord$x[2]-coord$x[1])
return(slp)
}
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.