R/progress_time.R

In erikerhardt/isogasex: Isotopic gas exchange using TDL and Licor input. Updated version of package tdllicor

#' Calc amount of time since program started
#'
#' Calculate time elapsed.
#'
#' @param time_start xxxPARAMxxx
#'
#' @return time_sofar xxxRETURNxxx
#'
progress_time <-
function# Calc amount of time since program started
###
(time_start
###
)
{
  ##details<<
  ## Calculate time elapsed.

  time_sofar <- proc.time()[3] - time_start;   # calculate time elapsed

  return( floor(time_sofar) );
  ### floor(time_sofar)
}