Каков наилучший способ получить отрезок времени, представленный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.