Floor double Dates before casting to integer with duration_days()

R/date.R

@@ -2,6 +2,9 @@
 as_sys_time.Date <- function(x) {
   names <- names(x)
   x <- unstructure(x)
+  if (is.double(x)) {
+    x <- floor(x)
+  }
   x <- duration_days(x)
   new_sys_time_from_fields(x, PRECISION_DAY, names)
 }

tests/testthat/test-date.R

@@ -5,6 +5,26 @@ test_that("invalid dates must be resolved when converting to a Date", {
   expect_snapshot_error(as.Date(year_month_day(2019, 2, 31)))
 })
 
+# ------------------------------------------------------------------------------
+# as_sys_time()
+
+test_that("converting to sys-time floors fractional dates (#191)", {
+  x <- new_date(c(-0.5, 1.5))
+  y <- new_date(c(-1, 1))
+
+  expect_identical(as_sys_time(x), as_sys_time(y))
+  expect_identical(as.Date(as_sys_time(x)), y)
+})
+
+test_that("converting to sys-time works with integer storage dates", {
+  # These can occur from `seq.Date(from, to, length.out)`
+  x <- structure(1L, class = "Date")
+  y <- new_date(1)
+
+  expect_identical(as_sys_time(x), as_sys_time(y))
+  expect_identical(as.Date(as_sys_time(x)), y)
+})
+
 # ------------------------------------------------------------------------------
 # as_weekday()