trytryconvert到DateTime到数字,除以60 * 30秒,拿起天花板,乘以60 * 30秒,然后转换回Posixct.
x <- Sys.time() # test data - 2025-03-12 10:15:57 .POSIXct(60 * 30 * ceiling(as.numeric(x) / (60 * 30))) ## [1] "2025-03-12 10:30:00 EDT"