Длина смазочного интервала
Каков наилучший способ получить отрезок времени, представленныйinterval
вlubridate
в указанных единицах? Все, что я могу понять, это что-то вроде следующей грязной вещи:
> ival
[1] 2011-01-01 03:00:46 -- 2011-10-21 18:33:44
> difftime(attr(ival, "start") + as.numeric(ival), attr(ival, "start"), 'days')
Time difference of 293.6479 days
(Я также добавил это как запрос функции наhttps://github.com/hadley/lubridate/issues/105в предположении, что лучшего способа не существует - но, может быть, кто-то здесь знает об этом.)
Обновить - видимоdifftime
функция не обрабатывает это тоже. Вот пример.
> (d1 <- as.POSIXct("2011-03-12 12:00:00", 'America/Chicago'))
[1] "2011-03-12 12:00:00 CST"
> (d2 <- d1 + days(1)) # Gives desired result
[1] "2011-03-13 12:00:00 CDT"
> (i2 <- d2 - d1)
[1] 2011-03-12 12:00:00 -- 2011-03-13 12:00:00
> difftime(attr(i2, "start") + as.numeric(i2), attr(i2, "start"), 'days')
Time difference of 23 hours
Как я упоминаю ниже, я думаю, что один хороший способ справиться с этим - реализовать/.interval
функция, которая сначала не бросает свой вклад вperiod
.