dto <- datetimeoffset_now()
print(dto)
weekdays(dto)
months(dto)
quarters(dto)
julian(dto)
if (require("lubridate")) {
cat("`isoyear(dto)`: ", isoyear(dto), "\n")
cat("`epiyear(dto)`: ", epiyear(dto), "\n")
cat("`semester(dto)`: ", semester(dto), "\n")
cat("`quarter(dto)`: ", quarter(dto), "\n")
cat("`week(dto)`: ", week(dto), "\n")
cat("`isoweek(dto)`: ", isoweek(dto), "\n")
cat("`epiweek(dto)`: ", epiweek(dto), "\n")
cat("`wday(dto)`: ", wday(dto), "\n")
cat("`qday(dto)`: ", qday(dto), "\n")
cat("`yday(dto)`: ", yday(dto), "\n")
cat("`am(dto)`: ", am(dto), "\n")
cat("`pm(dto)`: ", pm(dto), "\n")
cat("`days_in_month(dto)`: ", days_in_month(dto), "\n")
cat("`dst(dto)`: ", dst(dto), "\n")
cat("`leap_year(dto)`: ", leap_year(dto), "\n")
}
Run the code above in your browser using DataLab