Nothing
dc <- function(x, d, ch = "&") {
# d = 0: "x&0"
frac <- function(x, d) {
res <- abs(x - trunc(x))
if (!missing(d)) res <- round(10 ^ d * res)
res
}
d <- max(d, 1)
fr <- frac(x, d)
paste(trunc(x), ch, fr, sep = "")
}
dcn <- function(x, d, ch = "&") {
# d = 0: no "&" !!
d <- max(d, 1)
s <- sapply( x, function(x) eval(parse(text = paste("sprintf('%.", d,
"f',", x, ")", sep = ""))) )
gsub( "\\.", ch, s )
}
mpf <- function(r, after) {
paste(if (r<0) "-" else "+", eval(parse(text = paste("sprintf('%.",
after, "f', abs(", r, "))", sep = ""))))
}
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.