周期计算中出现奇怪的润滑（1.3.3）误差

Question

library(lubridate)
span <- new_interval(dmy("31/10/2002"),dmy("18/07/2005"))
as.period(span,unit="month")$month

Error in while (any(start + est * per > end)) est[start + est * per >  : 
  missing value where TRUE/FALSE needed

这里出了什么问题？我已多次使用相同的代码而没有问题。