x <- as_sys_time(year_month_day(2019, 01, 01))
# The number of days since 1970-01-01 UTC
as_duration(x)
x <- x + duration_seconds(1)
x
# The number of seconds since 1970-01-01 00:00:00 UTC
as_duration(x)
Run the code above in your browser using DataLab