Nothing
abbrNum <- function(xx) {
x <- unique(xx)
l <- format.info(x)
if (length(l) == 1) {
lab <- x
} else if (l[2] > 0) {
digits <- max(ceiling(-log10(sd(x))) + 1, 0)
lab <- formatC(x, digits=digits, format="f")
} else {
lab <- x
}
lab
}
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.