格式化时间跨度以显示小时,分钟,秒

Question

我一直试图找到一种简单的方法将输出格式化difftime为HH:MM:SS.ms.到目前为止,我还没有遇到任何让我感到惊讶的事情.

我确实编写了下面几乎可以做到的功能.限制是将数字表示为重要的单个数字.例如2小时,3分钟,4.5秒变为"2:3:4.5"而不是"02:03:04.5"

有人有更好的建议吗？

format.timediff <- function(start_time) {
    diff = as.numeric(difftime(Sys.time(), start_time, units="mins"))
    hr <- diff%/%60
    min <- floor(diff - hr * 60)
    sec <- round(diff%%1 * 60,digits=2)

    return(paste(hr,min,sec,sep=':'))
}

Answer 1

除了@ GSee的评论,你可以使用这样的函数:

f <- function(start_time) {
  start_time <- as.POSIXct(start_time)
  dt <- difftime(Sys.time(), start_time, units="secs")
  # Since you only want the H:M:S, we can ignore the date...
  # but you have to be careful about time-zone issues
  format(.POSIXct(dt,tz="GMT"), "%H:%M:%S")
}
f(Sys.Date())