R 数据框按组内条件动态重置参考日期计算天数差

同一受试者有多条日期记录，需要判断哪些记录属于同一次事件、哪些已经相隔太久应当算作新事件。参考日期默认是组内第一条记录，一旦出现间隔超过阈值的记录，基准就切换到那条记录上。

问题现象

原始数据：

dfi<-structure(list(ID=c(1,1,2,2,2,