R/getTimeSpan.R

In nesscoder/TimeCycle: TimeCycle: Topology Inspired MEthod for the Detection of Cycling Transcripts

#' Computes Algorithm Run Time
#'
#' Converts system time difference between TimeCycle's start and end time to
#' hh:mm:ss format.
#'
#' @param start a \code{numeric} defining the algorithm start time.
#' @param end a \code{numeric} defining the algorithm end time.
#'
#' @return a \code{numeric} defining the algorithm run time.
#' @export
#'
#' @examples
#' getTimeSpan(Sys.time(), Sys.time() + 600)
getTimeSpan <- function(start, end) {
  dsec <- round(abs(as.numeric(difftime(end, start, units = "secs"))))
  hours <- floor(dsec / 3600)
  minutes <- floor((dsec - 3600 * hours) / 60)
  seconds <- dsec - 3600 * hours - 60 * minutes
  paste0(
    sapply(c(hours, minutes, seconds), function(x) {
      formatC(x, width = 2, format = "d", flag = "0")
    }),
    collapse = ":"
  )
}