Search code examples
rdatetimelubridate

change all datetimes to 2PM and keep the dates same

I have datetime object and I want to change all times to 2PM and keep the dates same.

I used floor_date to get the start of the corresponding date and then added period of 14 hours to get 2PM.

Sometime, result shows only the date and no time. Sometimes it shows both date and time.

Is there another approach to do this

library(lubridate)

t1 <- floor_date(Sys.time(), unit = "day") + hours(14)

t2 <- floor_date(ymd_hms("2021-08-25 10:36:00"), unit = "day") + hours(14)
Solution

  • You can replace the time component with the hour. Here is a function to do that.

    change_time_to_x <- function(time, x) {
  as.POSIXct(sub('\\s.*', x, time), tz = 'UTC')  
}

input <- lubridate::ymd_hms(Sys.time(), "2021-08-25 10:36:00", "2012-12-31 00:00:00")
change_time_to_x(input, '14:00:00')
#[1] "2021-08-26 14:00:00 UTC" "2021-08-25 14:00:00 UTC" "2012-12-31 14:00:00 UTC"