Nothing
prune <- function(x, min_length = 1L) {
n <- length(x$knots)
w <- which(diff(x$knots) >= min_length)
x$knots <- x$knots[c(w, n)]
x$values <- x$values[unique(c(0L, w, n)) + 1L]
x
}
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.