clock.R

clock = function(max_laps=100) {
  laps = numeric(max_laps)
  laps[1] = Sys.time()
  no_of_laps = 2

  reset = function() {
    no_of_laps = 1
    laps <<- numeric(max_laps)
    laps[no_of_laps] = Sys.time()
    no_of_laps <<- 2
  }
  lap = function() {
    laps[no_of_laps] <<- Sys.time()
    no_of_laps <<- no_of_laps + 1
  }
  get_laps = function() {
    laps[1:(no_of_laps-1)] - laps[1]
  }
  list(reset = reset,
       lap = lap,
       get_laps = get_laps)
}