Nothing
bound <- function(noden)
{
boundr <- rep(NA,nrow(noden$bounds))
for(i in 1:nrow(noden$bounds)){
if(!is.na(noden$bounds[i,3])){
boundr[i] <- 1
}
else
boundr[i] <- sum(!is.infinite(noden$bounds[i,1]),!is.infinite(noden$bounds[i,2]))
}
bound <- boundr[boundr!=0]
return(bound)
}
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.