library("clock")
if ("Europe/Paris" %in% OlsonNames()) {
dt <- as_datetimeoffset("1918-11-11T11:11:11.1234+00:00[Europe/Paris]")
} else {
dt <- as_datetimeoffset("1918-11-11T11:11:11.1234")
}
get_year(dt)
get_month(dt)
get_day(dt)
get_hour(dt)
get_minute(dt)
get_second(dt)
get_nanosecond(dt)
get_subsecond_digits(dt)
get_hour_offset(dt)
get_minute_offset(dt)
get_tz(dt)
if (require("lubridate")) {
paste0(year(dt), "-", month(dt), "-", day(dt),
"T", hour(dt), ":", minute(dt), ":", second(dt),
"[", tz(dt), "]")
}
Run the code above in your browser using DataLab