Nothing
bp_maxmin <-
function(x, probs = c(0,0,.5,1,1)) {
r <- quantile(x, probs = probs, na.rm = TRUE)
names(r) <- c("ymin","lower","middle","upper","ymax")
r
}
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.