splitMulti breaks the breaks (with R date format)

[mattirantanen]

splitMulti chances date formatted break values to integer values (i.e. days since 1970...) in attributes.

I think the last line should return TRUE

x <- lexpand(sire,status = status != 0,
          birth = bi_date, entry = dg_date, exit = ex_date,
          pophaz=popmort)

Brr <- list(per = c("2003-01-01","2008-01-01", "2013-01-01"))
x <- splitMulti(x, breaks = Brr)
get_breaks(x) == Brr

[WetRobot]

I'll look into it. Another example:

> library("Epi")
> data("sire", package = "popEpi")
> x <- Lexis(data=sire, entry = list(fot=0, per=dg_date, age=dg_date-bi_date), 
+            exit=list(per=ex_date), exit.status=status)
Warning message:
In Lexis(data = sire, entry = list(fot = 0, per = dg_date, age = dg_date -  :
  Dropping 16 rows with duration of follow up < tol

> 
> BL <- list(per = as.Date(c("2008-01-01", "2012-12-31")))
> 
> str(BL)
List of 1
 $ per: Date[1:2], format: "2008-01-01" "2012-12-31"
> 
> x2 <- splitMulti(x, breaks = BL)
> 
> str(get_breaks(x2))
List of 1
 $ per: num [1:2] 13879 15705