rounding time() in time_to_date()

closes #128

NEWS.md

@@ -5,6 +5,7 @@ This is a patch release.
 * Fixed bugs for losing the "ordered" attribute when renaming a tsibble, introduced in v0.8.1 (#126).
 * Fixed bug in `as.ts.tbl_ts()` for handling a tsibble of one row (#124).
 * Fixed issue of `nest.tbl_ts()` for naming (#123).
+* Fixed floating issues for duplicated indices in `as_tsibble.ts()` (#128).
 
 # tsibble 0.8.1
 

R/interval.R

@@ -260,7 +260,7 @@ time_to_date <- function(x, ...) {
 
 time_to_date.ts <- function(x, tz = "UTC", ...) {
   freq <- stats::frequency(x)
-  time_x <- as.numeric(stats::time(x))
+  time_x <- round(as.numeric(stats::time(x)), digits = 6) # floating
   if (freq == 52) {
     warn("Expected frequency of weekly data: 365.25 / 7 (approx 52.18), not  52.")
   }

tests/testthat/test-ts2tsibble.R

@@ -36,3 +36,8 @@ test_that("a mts", {
   expect_identical(key_vars(tsbl2), character(0))
   expect_identical(colnames(tsbl2), c("index", "Series 1", "Series 2"))
 })
+
+test_that("time floating #128", {
+  x <- ts(1:134, start = c(1960, 11), frequency = 12)
+  expect_true(anyDuplicated(as_tsibble(x)$index) == 0)
+})