Время подсчета в некоторых диапазонах и начинается с получаса в R

#r #date #lubridate

#r #Дата #lubridate

Вопрос:

У меня есть почти хороший код для подсчета часов в некоторых диапазонах времени, но иногда мне приходится начинать, например, с 7:30 утра, и для меня это проблема

У меня есть функция, которая может подсчитывать часы во времени, на котором я сосредотачиваюсь, за исключением выходных, когда дело доходит до Рождества и т.д.

К сожалению, мне часто приходится отсчитывать время с половины часов

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

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

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

  length(dates)/60
})
  

Я должен использовать эту функцию для подсчета часов с 7:30 утра, но теперь я могу считать только с 7 утра или 8 утра и т.д.

Комментарии:

1. я не уверен, что вы пытаетесь здесь сделать. можете ли вы опубликовать пример того, как вы это используете, и в чем именно проблема? Даже опубликуйте ожидаемый результат, чтобы помочь нам узнать, в чем проблема

2. Я должен считать часы, например, с 7:30 утра до 6 вечера только в рабочее время, но моя функция может считать только полные часы, например, с 7 утра до 6 вечера.