# {base}
today <- as_datetimeoffset(Sys.Date())
now <- as_datetimeoffset(Sys.time())
as.Date(today)
as.Date(now)
as.POSIXct(now)
as.POSIXlt(now)
# {clock}
clock::as_date(today)
clock::as_date_time(now)
clock::as_year_month_day(now)
clock::as_year_month_weekday(now)
clock::as_iso_year_week_day(now)
clock::as_year_quarter_day(now)
clock::as_year_day(now)
clock::as_naive_time(now)
clock::as_sys_time(now)
clock::as_zoned_time(now)
clock::as_weekday(now)
if (requireNamespace("nanotime")) {
nanotime::as.nanotime(now)
}
if (requireNamespace("parttime")) {
parttime::as.parttime(now)
}
Run the code above in your browser using DataLab