R/difftime.R

In wnattt/renv: Project Environments

renv_difftime_format <- function(time, digits = 2L) {

  elapsed <- format(unclass(signif(time, digits = digits)))

  units <- switch(
    attr(time, "units"),
    secs  = "seconds",
    mins  = "minutes",
    hours = "hours",
    days  = "days",
    weeks = "weeks"
  )

  paste(elapsed, units)

}

renv_difftime_format_short <- function(time, digits = 2L) {

  elapsed <- signif(time, digits = digits)
  if (nchar(elapsed) == 1L)
    elapsed <- paste(elapsed, ".0", sep = "")

  units <- switch(
    attr(time, "units"),
    secs  = "s",
    mins  = "m",
    hours = "h",
    days  = "d",
    weeks = "w"
  )

  paste(elapsed, units, sep = "")

}