Блог

Я должен использовать код для некоторой работы, которую я делаю, который работает идеально. Однако, чтобы ускорить это, ранее мы выбрали только необходимый диапазон времени для каждого файла bin, и в этом случае мне нужен полный день. Мои знания с POSIXct ограничены, я надеялся, что это будет так же просто, как выбор из часа 0-24, так что явно не в моей компетенции.

Я был бы признателен за любую помощь, и в идеале я хочу изменить только этот раздел, потому что это длинный скрипт, и это все, что требует редактирования.

# считывание данных за этот день с 8 утра до 6 вечера

Starttime = as.numeric(as.POSIXct(Day, format="%d/%m/%Y")) 8*60*60

Endtime = Starttime 10*60*60

Я не уверен, что понимаю вопрос, что-то вроде этого?

 Day <- format(Sys.Date(), "%d/%m/%Y")    # test date
Day <- as.POSIXct(Day, format = "%d/%m/%Y")

Starttime <- Day   lubridate::hours(8)
Starttime
#[1] "2020-09-13 08:00:00 WEST"

Day   lubridate::days(1) - lubridate::seconds(1)
#[1] "2020-09-13 23:59:59 WEST"
  

Если функции из пакета lubridate будут использоваться чаще, загрузите пакет. Он имеет эквивалентные функции для многих других периодов, от picoseconds до years .

Примеры в вопросе о 8 и 10 часах могут быть такими, как показано ниже.
При необходимости результаты могут быть принудительно преобразованы в класс "numeric" .

 library(lubridate)

as.numeric(Starttime)
#[1] 1599980400
as.numeric(Day   hours(8))  # the same as above
#[1] 1599980400

Endtime <- Starttime   hours(10)
Endtime
#[1] "2020-09-13 18:00:00 WEST"

as.numeric(Day   days(1) - seconds(1))
#[1] 1600037999