niçin ayrıklık durumu R'de tamsayıya bölünür ve bir geçici çözüm var

Question

R sayılarındaki R sayıları, hatta kesirli değerler bile oluşturabilirsiniz. Çok yaygın değil, ancak tarihlerin ortalaması alındığında gerçekleşir. Ne yazık ki,

> 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 Yani farklı olan iki tarih bir split tarafından eşit yapılır kırmak gibi görünüyor. İnsanlar bunun bir hata olduğu konusunda mutabık mı yoksa derin sebebi mi özlüyorum? Herhangi bir geçici çözüm var mı? Teşekkür

Sebebi ne olursa olsun

Answer 1

, split.Date tamsayıya Date girişi coerces:, tarih bir tamsayı olmalıdır

> 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 diyor, bu durum asgari fonksiyonu ve dokümantasyon arasında bir mutsuzluk olan," ama Bu iç temsilde zorlanmaz. " Bazıları bunun bir hata olduğunu düşünebilir. Emin değilim.

Doğrudan split.default numaralı telefonu arayarak bunu önleyebilirsiniz.

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