根据R中的日期范围合并数据框

Question

我想根据ID和时间范围合并两个数据帧。见下文。

data1                                   data2   
ID  Unit   DT1        DT2               ID  EventDT
ABC 5C     1/1/2018   3/25/2018         ABC 2/2/2018
ABC 3B     6/27/2018  12/31/2018        ABC 3/21/2018
ABC 5C     2/24/2019  3/10/2019         ABC 4/4/2018
                                        ABC 2/2/2019

datafinal                       
ID  Unit    DT1         DT2         EventDT     
ABC 5C      1/1/2018    3/25/2018   2/2/2018        
ABC 5C      1/1/2018    3/25/2018   3/21/2018       
ABC 3B      6/27/2018   12/31/2018          
ABC 5C      2/24/2019   3/10/2019   2/2/2019    

我在R中寻找一种简单的方法来做，却找不到答案。我以前是Stata用户，在Stata中做到这一点的方法是使用rangejoin命令：rangejoin EventDT DT1 DT2 using data2, by(ID)。

我将不胜感激！

data1 <- data.table(ID =c("ABC", "ABC", "ABC"),
                    type =c("5C", "3B", "5C"),
                    DT1 = c('1/1/2018', '6/27/2018', '2/24/2019'),
                    DT2 = c('3/25/2018','12/31/2018','3/10/2019'))

data2 <- data.table(ID =c("ABC", "ABC", "ABC", "ABC"),
                    EventDT = c('2/2/2018', '3/21/2018', '4/4/2018', "2/2/2019"))