列表中日期的子集向量

Question

我有一个日期向量列表。我希望将该列表中的每个向量子集化，只留下所有这些向量中某个时间间隔内的日期。

l <- list(a=seq.Date(as.Date('2017-01-01'),as.Date('2017-01-31'),by = 1), 
          b=seq.Date(as.Date('2017-01-09'),as.Date('2017-02-28'),by = 1), 
          c=seq.Date(as.Date('2017-01-20'),as.Date('2017-03-31'),by = 1))

我试过这样做，但我错过了smth

library(lubridate)
cond<-lapply(l,FUN=function(x) ymd(x) %within% interval(ymd("2017-01-05"), ymd("2017-02-01")))
l[cond]