Rounding up the time expression in R

I have a data Y . Y has a column time .
time column looks like this:

For example, 20211201000010 means 2021-12-01 00:00:10 .

time <- strptime(Y$time, format = "%Y%m%d%H%M%S")

start_time <- min(time)

In this code, start_time is 2021-12-01 00:00:02.

But I want to round up the start_timeas 2021-12-01 00:00:10,since the start_time should be 10 seconds interval for my data.

How can I round up 2021-12-01 00:00:02 as 2021-12-01 00:00:10 ?

>Solution :

lubridate package is always our friends for datetime work.

library(lubridate)      
xx1 <- '20211201010002'

ymd_hms(xx1) %>%
  ceiling_date(unit = '10s')

[1] "2021-12-01 01:00:10 UTC"