Nothing
kNanosecond <- 1
kMicrosecond <- kNanosecond * 1000
kMillisecond <- kMicrosecond * 1000
kSecond <- kMillisecond * 1000
kMinute <- kSecond * 60
kHour <- kMinute * 60
kDay <- kHour * 24
kWeek <- kDay * 7
kYear <- kDay * 365.242
formatDurationSmall <- function(ns) {
sizes <- c('ns', 'us', 'ms', 's')
e <- ifelse(ns == 0, NA, floor(log(ns, 1000)))
suffix <- ifelse(ns == 0, '', sizes[e+1])
prefix <- ifelse(ns == 0, '0', sprintf("%g", ns/(1000 ^ floor(e))))
paste(prefix, suffix, sep="")
}
formatDurationWeek <- function(ns) {
ifelse(ns > kYear,
sprintf("%.0fy%.0fd", floor(ns/kYear), (ns %% kYear) / kDay ),
sprintf("%.0fw%0.fd", floor(ns/kWeek), (ns %% kWeek) / kDay ))
}
formatDurationDay <- function(ns) {
ifelse(ns > kWeek * 8,
formatDurationWeek(ns),
sprintf("%.0fd%0.0fh", floor(ns/kDay), (ns %% kDay) / kHour))
}
formatDurationHour <- function(ns) {
ifelse(ns > kDay * 3,
formatDurationDay(ns),
sprintf("%.0fh%s", floor(ns/kHour), formatDurationMinute(ns %% kHour)))
}
formatDurationMinute <- function(ns) {
ifelse(ns > kHour,
formatDurationHour(ns),
sprintf("%.0fm%ss", floor(ns/kMinute),
format((ns %% kMinute) / kSecond, digits=9, scientific=F)))
}
formatDuration <- function(ns) {
prefix <- ifelse(ns < 0, "-", "")
ns <- abs(ns)
paste(prefix, ifelse(ns > kMinute,
formatDurationMinute(ns),
formatDurationSmall(ns)), sep="")
}
formatNanoseconds <- formatDuration
formatMicroseconds <- function(us) {
formatNanoseconds(us * kMicrosecond)
}
formatMilliseconds <- function(ms) {
formatNanoseconds(ms * kMillisecond)
}
formatSeconds <- function(s) {
formatNanoseconds(s * kSecond)
}
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.