library("clock")
dt <- NA_datetimeoffset_
dt <- set_year(dt, 1918L, na_set = TRUE)
dt <- set_month(dt, 11L)
dt <- set_day(dt, 11L)
dt <- set_hour(dt, 11L)
dt <- set_minute(dt, 11L)
dt <- set_second(dt, 11L)
dt <- set_nanosecond(dt, 123456789L)
dt <- set_subsecond_digits(dt, 4L)
dt <- set_hour_offset(dt, 0L)
dt <- set_minute_offset(dt, 0L)
dt <- set_tz(dt, "Europe/Paris")
format(dt)
if (require("lubridate")) {
dt <- datetimeoffset(0L)
year(dt) <- 1918L
month(dt) <- 11L
day(dt) <- 11L
hour(dt) <- 11L
minute(dt) <- 11L
second(dt) <- 11L
if (packageVersion("lubridate") > '1.8.0' &&
"Europe/Paris" %in% OlsonNames()) {
tz(dt) <- "Europe/Paris"
}
format(dt)
}
Run the code above in your browser using DataLab