В R используйте lubridate для преобразования объектов hms в секунды

Question

простой вопрос в lubridate - я хочу преобразовать объект hms в соответствующее количество секунд с начала дня.

Например

library(lubridate) 
hms("12:34:45") 

, то я хочу, чтобы точно знать, сколько времени 12 часов, 34 минут и 45 секунд находится в секундах

что-то очевидное, как

seconds(hms("12:34:45")) 

просто возвращает

45s 

, которого я не хочу. Как преобразовать эти значения hms в секунды? Я бы хотел использовать lubridate

Answer 1

Не имеет значения, какой пакет вы используете - он преобразует объект date/datetime в представление POSIXct секунд с эпохи. Таким образом, вы можете также сделать это в базе R - так здесь развернуть ISOdatetime() с произвольным день, используя сегодня:

R> difftime(ISOdatetime(2012,7,2,12,34,45), ISOdatetime(2012,7,2,0,0,0)) 
Time difference of 12.5792 hours 

Так что мы хотим секунд:

R> difftime(ISOdatetime(2012,7,2,12,34,45), ISOdatetime(2012,7,2,0,0,0), 
+   unit="secs") 
Time difference of 45285 secs 

И мы можем бросить на номера:

R> as.numeric(difftime(ISOdatetime(2012,7,2,12,34,45), + 
         ISOdatetime(2012,7,2,0,0,0), unit="secs")) 
[1] 45285 

Edit: И возвращаясь к lubridate, это, возможно, ошибка:

> hms("12:34:45") - hms("00:00:00") 
[1] 12 hours, 34 minutes and 45 seconds 
R> as.numeric(hms("12:34:45") - hms("00:00:00")) 
[1] 45 
R> 

Answer 2

R>lubridate::period_to_seconds(hms("01:00:00")) 

дает ожидается 3600 секунд, как цифровой отсчет с 00:00:00 или в случае выше:

R>period_to_seconds(hms("12:34:45"))