# Difference of the current time and previous time in a list
diffLast <- function(l) {
  x = c(NA, difftime(c(l[-1], NA), l, units = "mins"))
  x[1:length(x)-1]
}