R：2セットの潤滑剤日付を比較してください

Question

私は2つのベクトルの潤滑剤日付の交差点を見つけようとします。ただし、lubridate::intersect関数を適用すると、日付は倍精度に変換されます。

library(lubridate) 
> a <- c(ymd("2017-01-01"), ymd("2017-01-02"), ymd("2017-01-03"), ymd("2017-01-04")) 
> b <- c(ymd("2017-01-02"), ymd("2017-01-03"), ymd("2017-01-04"), ymd("2017-01-05")) 
> lubridate::intersect(a, b) 
[1] 17168 17169 17170 

元の日付タイプはどのように保存できますか？

Answer 1

私たちは、「lubridate日付」などというものはありませんorigin

as.Date(lubridate::intersect(a, b), origin = '1970-01-01') 
#[1] "2017-01-02" "2017-01-03" "2017-01-04"