使用R，是否有更好的方法来收集具有多个系列记录的每个人的记录开始和结束的日期

我希望以一种简单的方式找到成千上万个id，开始记录它们的日子，以及它们停止记录的日子。

我目前使用的循环效果很好，但需要花一些时间，如下所示。

我的数据集的一个例子：

id date
1  2017-11-30
1  2017-12-01
1  2017-12-02
1  2017-12-03
1  2017-12-05
1  2017-12-06
1  2017-12-07
1  2017-12-08
1  2017-12-09
1  2017-12-10

然后使用此循环查找开始记录个人的每个日期，而几天之间不会停下来。在我的示例中，以“ 2017-11-30”和“ 2017-12-05”开头，以“ 2017-12-03”和“ 2017-12-10”结尾。

nani <- unique(dat$id)
n <- length(dat$id)
#SET THE NEW OBJECT WHERE TO SAVE RESULTS
NEWDAT <- NULL
for(i in 1 : n)
{
#SELECT ANIMALS I WITHIN THE DATA.FRAME
x <- which(dat$id == nani[i])

#FIND THE POSITION IN THE DATA FRAME OF THE DAYS WHEN THE RECORD IS NOT CONTINUE
diffx <- diff(diff(dat$date[x]))

#FIND THE POSITION OF STARTS FOR EACH SESSIONS OF RECORDS
starti <- which(diffx < 0) +1

#FIND THE POSITION OF ENDS FOR EACH SESSIONS OF RECORDS
endi <- which(diffx > 0) +1

#FIND THE DATES OF STARTS FOR EACH SESSIONS OF RECORDS
starts_records <- c(dat$date[x][1], dat$date[x][starti])

#FIND THE DATES OF ENDS FOR EACH SESSIONS OF RECORDS
ends_records <- c(dat$date[x][endi], dat$date[x][length(x)])

#CREATE LABELS
name_start <- rep("START_RECORDS_BY_SENSORS", length(starts_records))
name_end <- rep("END_RECORDS_BY_SENSORS", length(ends_records))

#CREATE THE NEW DATA.FRAME EXPECTED
dat2 <- data.frame( "event_start" = c(starts_records, ends_records), 
                    "name" = c(name_start, name_end))
dat2 <- dat2[order(dat2$event_start),]

#SAVE RESULTS
NEWDAT <- bind_rows(NEWDAT, dat2)
}

到目前为止，我尝试了以下操作，但是没有找到避免循环的正确解决方案。

NEWDAT <- dat %>% group_by(id) %>% summarize(diff_days = diff(diff(date)))

我仍然很难理解dplyr的语法。