Issue with agg_vec and dates

[mitchelloharawild]

date <- fabletools:::agg_vec(Sys.Date() + 0:1)
date[2] <- fabletools:::agg_vec(NA, TRUE)
#> Error in as.Date.numeric(value): 'origin' must be supplied

^{Created on 2020-06-24 by the reprex package (v0.3.0)}

[mitchelloharawild]

The issue is from the handling of NA within agg_vec.

as.Date(NA_real_)
#> Error in as.Date.numeric(NA_real_): 'origin' must be supplied
as.Date(NA)
#> [1] NA

^{Created on 2020-06-24 by the reprex package (v0.3.0)}

[mitchelloharawild]

Which is from rep_len() dropping classes:

rep_len(Sys.Date(), 3)
#> [1] 18437 18437 18437

^{Created on 2020-06-24 by the reprex package (v0.3.0)}