Мы можем использовать lubridate
dmy_hm
для преобразования в объект даты и времени, а затем использовать ceiling_date
для преобразования его в следующий час.
library(lubridate)
ceiling_date(dmy_hm("1/3/2019 15:59"), "hour")
#[1] "2019-03-01 16:00:00 UTC"