if(all(c("America/Los_Angeles", "America/New_York") %in% OlsonNames())) {
dt0 <- as_datetimeoffset("2020-01-01T01:01[America/Los_Angeles]")
dt <- datetime_at_tz(dt0, "America/New_York")
print(dt)
dt <- datetime_at_tz(as.POSIXct(dt0), "America/New_York")
print(dt)
dt <- datetime_at_tz(clock::as_zoned_time(dt0), "America/New_York")
print(dt)
# Can also use `lubridate::with_tz()`
if (requireNamespace("lubridate")) {
dt <- lubridate::with_tz(dt0, "America/New_York")
print(dt)
}
}
Run the code above in your browser using DataLab