vague_dt_interval.R

vague_dt_interval <- function(start,
                              end = NULL,
                              use_now = TRUE,
                              unit = "second",
                              format = c("default", "short", "terse")) {
  if (!is.interval(start)) {
    if (use_now) {
      end <- end %||% lubridate::now()
    }

    x <- lubridate::interval(
      start = start,
      end = end
    )
  } else {
    x <- start
  }

  if (is.interval(x)) {
    x <- lubridate::time_length(x, unit = unit)
  }

  if (!inherits(x, "difftime")) {
    units <- switch(unit,
      second = "secs"
    )
  }

  purrr::map_chr(
    x,
    \(dt) {
      prettyunits::vague_dt(
        as.difftime(dt, units = units),
        format = format
      )
    }
  )
}