R/formatDuration.R

In humanFormat: Human-Friendly Formatting Functions

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)
}