在某些范围内计算时间，从R中的半小时开始

Question

我几乎有不错的代码可以计算某些时间段的小时数，但有时我必须从例如上午7:30开始，这对我来说是个麻烦事

我有一个功能，可以计算我专注于该时间的小时数，除了圣诞节等会休假的时间。

不幸的是，我经常不得不从半个小时开始计算时间

Weekdays3 <- Vectorize(function(date1,date2){

dates <- seq(date1, date2, "mins")

dates <- dates[which(weekdays(dates) %in% c("monday",
                                              "tuesday",
                                              "wednesday",
                                              "thursday",
                                              "friday") & hour(dates) %in% c(8:15) & 
                         !(as.character(dates,format="%Y-%m-%d") %in% c("2018-01-01",
                                                                        "2018-01-06")))]

  length(dates)/60
})

我必须使用此功能来计算上午7:30起的小时数，但现在我只能从上午7点或上午8点开始进行计数。