Format Zeitspanne zu zeigen, Stunden, Minuten, Sekunden

Question

Ich habe versucht, eine einfache Möglichkeit, die Formatierung die Ausgabe von difftime in HH zu finden: MM: SS.ms. Bisher bin ich auf nichts gestoßen, was mich überrascht hat.

Ich habe die Funktion schreiben, unter dem es fast der Fall ist. Die Begrenzung ist die Darstellung der Zahlen als signifikante einzelne Ziffern. zB 2 h, 3mins wird 4.5secs "2: 3: 4,5" statt "02: 03: 04.5"

Hat jemand einen besseren Vorschlag?

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

Neben @ GSEE Kommentar, könnten Sie eine Funktion wie folgt verwendet werden:

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

Dies ist der Code. Aber dieser Code wandelt die Daten in Sekunden um, aber das Ergebnis sollte ein Zeitstring sein.