为什么在 R 中将强制拆分为整数倍，是否有解决方法

Question

可以在 R 中从数字类型甚至小数值构建日期。这不是很常见，但例如在平均日期时会发生这种情况。不幸的是，他们似乎打破了split

> as.Date(-1, origin = "1970-01-01")
[1] "1969-12-31"
> as.Date(-1.0001, origin = "1970-01-01")
[1] "1969-12-30"
> split(as.Date(-1, origin = "1970-01-01"), 1)[[1]]
[1] "1969-12-31"
> split(as.Date(-1.0001, origin = "1970-01-01"), 1)[[1]]
[1] "1969-12-31" #this is wrong
> unclass(split(as.Date(-1, origin = "1970-01-01"), 1)[[1]])
[1] -1
> unclass(split(as.Date(-1.0001, origin = "1970-01-01"), 1)[[1]])
[1] -1 #this is "why"

因此，split 使两个不同的日期相等。人们同意这是一个错误还是我错过了深层原因？任何解决方法？谢谢

Answer 1

无论出于何种原因，split.Date 将Date 输入强制转换为整数：

> split.Date
function (x, f, drop = FALSE, ...) 
{
    y <- split.default(as.integer(x), f, drop = drop)
    for (i in seq_along(y)) class(y[[i]]) <- "Date"
    y
}
<bytecode: 0x2effb98>
<environment: namespace:base>

这至少是函数和文档之间的不合适之处，因为?Date 说，“日期应该是一个整数，但这在内部表示中没有强制执行。”。有些人可能认为这是一个错误。我不确定。

您可以通过直接调用split.default 来避免这种情况。

> split.default(as.Date(-1.0001, origin = "1970-01-01"), 1)[[1]]
[1] "1969-12-30"