disag函数计算从开始日期时间、中间每一天的中午和结束日期时间开始的间隔的边界值bounds。然后它确保它们在开始和结束日期时间之间的闭合/闭合间隔内，并且它们是唯一的。如果只剩下一个边界，则使用该边界，否则删除开始值和结束值的最后一个和第一个。

library(dplyr)

disag <- function(st, en) {
  st1 <- as.POSIXct(st)
  en1 <- as.POSIXct(en)

  bounds <- 
    seq(from = trunc(st1, "day") - 12 * 60 * 60,
        to = trunc(en1, "day") + 12 * 60 * 60,
        by = 24 * 60 * 60) %>%
    c(st1, ., en1) %>%
    pmax(st1, .) %>%
    pmin(en1, .) %>%
    unique

  if (length(bounds) == 1) {
    Start <- End <- bounds 
  } else {
    Start <- head(bounds, -1)
    End <- tail(bounds, -1)
  }
  data.frame(Start, End) 
}

dftest %>% 
  rowwise %>%
  reframe(Subj = Subj, disag(Start, End))

字符串