Coercing time points to Date and POSIXct should floor, not cast

[DavisVaughan]

library(clock)

# review other usage of time_point_cast()

# should floor to day
as.Date(naive_time_parse("1969-01-01 01:01:01"))
#> [1] "1969-01-02"

# should floor to second
as.POSIXct(naive_time_parse("1969-01-01 01:01:01.123", precision = "millisecond"))
#> [1] "1969-01-01 01:01:02 EST"

^{Created on 2021-04-07 by the reprex package (v1.0.0)}