dt <- as_datetimeoffset(Sys.time())
print(mode_tz(dt))
if (all(c("America/Los_Angeles", "America/New_York") %in% OlsonNames())) {
dt <- as_datetimeoffset("2020-01-01",
tz = c("America/Los_Angeles", "America/New_York"))
print(mode_tz(dt))
print(Sys.timezone()) # timezone to be used for missing time zones
dt <- as_datetimeoffset("2020-01-01",
tz = c("America/New_York", NA_character_, NA_character_))
print(mode_tz(dt))
}
Run the code above in your browser using DataLab