czas w formacie, aby wyświetlić godziny, minuty, sekundy

Question

Próbuję znaleźć prosty sposób formatowania danych wyjściowych z difftime na HH: MM: SS.ms. Do tej pory nie spotkałem się z niczym, co mnie zaskoczyło.

Zrobiłem napisać funkcję poniżej, która prawie to robi. Ograniczeniem jest przedstawienie liczb jako znaczących pojedynczych cyfr. np. 2 godz., 3 min., 4,5secs staje się "2: 3: 4,5" zamiast "02: 03: 04.5"

Czy ktoś ma lepszą sugestię?

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

Oprócz @ komentarzu GSEE użytkownika, można użyć funkcję tak:

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

Jest to kod. Ale ten kod przekształca dane w sekundach, ale wynik powinien być łańcuchem czasu.