formato intervalo de tiempo para mostrar horas, minutos, segundos

Question

He estado tratando de encontrar una forma sencilla de formatear la salida de difftime en HH: MM: SS.ms. Hasta ahora no he encontrado nada que me haya sorprendido.

Escribí la función siguiente que casi lo hace. La limitación es la presentación de los números como dígitos únicos significativos. por ejemplo, 2 horas, 3 minutos, 4.5 segundos se convierte en "2: 3: 4.5" en lugar de "02: 03: 04.5"

¿Alguien tiene una mejor sugerencia?

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

Además de @ comentario de GSEE, se puede utilizar una función como esta:

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()) 

Answer 2

Merge_Charge_Point$Duration<- difftime(Merge_Charge_Point$EndConnectionDateTime, Merge_Charge_Point$StartConnectionDateTime, units="secs") 

Este es el código. Pero este código transforma los datos en segundos, pero el resultado debe ser una cadena de tiempo.