Получите вектор всех дней в году с помощью R

Есть ли простая идиома R для получения вектора дней в данном году? Я могу сделать следующее, что работает нормально ... кроме високосных лет:

dtt <- as.Date( paste( as.character(year), "-1-1", sep="") ) + seq( 0,364 )

Я мог бы, очевидно, добавить строку для фильтрации любых значений в (год + 1), но я предполагаю, что есть гораздо более короткий способ сделать это.