Left-join using intervals

Question

I have two dataframes:

df1 <- data.frame("id"=c(1,1,1,2,2,2),
                  "date"=c(10, 15, 20, 5, 10, 15))

df2 <- data.frame(