R/timer.R

Defines functions timer

Documented in timer

#' timer function
#' a timer
#' @param secs
#' @param beep
#' @export

timer <- function(secs, beep = 3) {
  t1 <- Sys.time()
  elapsed <- 0
  while(elapsed < secs){
    elapsed <- as.numeric(round(difftime(Sys.time(), t1, units = "secs"), 0))
    Sys.sleep(1)
    if (elapsed %% 5 == 0){
      message(paste("Time Elapsed:", elapsed, "secs."), appendLF = TRUE)
    }
  }
  return(beepr::beep(beep))
}
jhollist/miscPackage documentation built on March 3, 2024, 9:23 p.m.