Nothing
## seconds to H:M:S format
sec2hms <- function (...) {
x <- c(...)
if (any(x > 3600)) stop("`...` must be <= 3600")
hs <- x%%3600
h <- floor(hs)
ms <- (hs - h) * 60
m <- floor(ms)
s <- floor((ms - m) * 60)
hms <- lapply(list(h, m, s), function(x) sprintf("%02d", x))
chron::times(paste(hms[[1]], hms[[2]], hms[[3]], sep=":"))
}
## Hijack a function
## see: http://stackoverflow.com/a/25366322/1000343
hijack <- function(FUN, ...){
.FUN <- FUN
args <- list(...)
invisible(lapply(seq_along(args), function(i) {
formals(.FUN)[[names(args)[i]]] <<- args[[i]]
}))
.FUN
}
## taked from the qdapTools package
mtabulate <- function (vects) {
lev <- sort(unique(unlist(vects)))
dat <- do.call(rbind, lapply(vects, function(x, lev) {
tabulate(factor(x, levels = lev, ordered = TRUE), nbins = length(lev))
}, lev = lev))
colnames(dat) <- sort(lev)
data.frame(dat, check.names = FALSE)
}
validate_relate <- function(x){
grepl("[\\+\\-\\*\\/]([^_]+)_(.+)", x, perl=TRUE)
}
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.