as.period() fails on intervals containing leap day as start day

[thomaszumbrunn]

as.period() consistently seems to fail on intervals containing a leap day as the start day if the required unit is "year". Example:

as.period(interval(as.POSIXct("2008-02-29"), as.POSIXct("2013-01-31")), unit = "year")

[uhkeller]

I just stumbled across this bug as well. Not pretty.

> (ymd("1996-02-29") %--% ymd("2011-11-20")) %/% years(1)
Error in while (any(start + est * per > end)) est[start + est * per >  : 
  missing value where TRUE/FALSE needed

[vspinu]

Fixed in 960a434 [#284].