r - R lubridate と data.table を使用して日付を一致させる

Question

次のコードは失敗します

a = data.table(date=seq(ymd('2001-6-30'),ymd('2003-6-30'),by='weeks'))
a = a[,list(date=date,a=rnorm(105),b=rnorm(105))]

b = seq(ymd('2001-6-30'),ymd('2001-07-28'),by='weeks')

a[date %in% b]

メッセージとともに

Empty data.table (0 rows) of 3 cols: date,a,b

誰かが私が間違っていることを特定するのを助けることができますか? データが見つかるはずです。