Nothing
# Round a number, preserving extra 0's. (taken from R/broman, https://github.com/kbroman/broman)
myround <-
function(x, digits=1)
{
if(digits < 1)
stop("This is intended for the case digits >= 1.")
if(length(digits) > 1) {
digits <- digits[1]
warning("Using only digits[1]")
}
tmp <- sprintf(paste("%.", digits, "f", sep=""), x)
# deal with "-0.00" case
zero <- paste0("0.", paste(rep("0", digits), collapse=""))
tmp[tmp == paste0("-", zero)] <- zero
tmp
}
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.