Need an `as.list()` method for Period and Duration objects

[DavisVaughan]

x <- lubridate::hours(1:5)
as.list(x)
#> [[1]]
#> [1] 0
#> 
#> [[2]]
#> [1] 0
#> 
#> [[3]]
#> [1] 0
#> 
#> [[4]]
#> [1] 0
#> 
#> [[5]]
#> [1] 0

We do have an as.list() method for Interval, so we can probably borrow from that?