使用R根据指定条件将日期转换为日期范围

Question

此代码的目标是在给定特定条件的情况下，为各个时期创建开始日期和结束日期。

当前数据格式：

df = seq(as.Date("2018/12/1"), as.Date("2018/12/31"), "day")
dg = c(rep(0,each=7),rep(1, each=20), rep(0,each=4))

data = data.frame(dates=df,status=dg)

所需的输出：为状态= 0的每个期间创建开始日期和结束日期。

是否有R函数可以提取给定条件的日期以产生所需结果？

示例数据框：

data2 = data.frame(start = c("2018-12-01","2018-12-28"),
        end = c("2018-12-07","2018-12-31"),
        status = rep(0,each=2))