context("lubridate timezones")
t1 <- as.POSIXct("2016-09-01 09:00:00", tz = "UTC")
test_that("with_tz UTC", {
expect_silent(lubridate::with_tz(t1, tzone = "UTC"))
expect_equal(lubridate::with_tz(t1, tzone = "UTC"),
as.POSIXct("2016-09-01 09:00:00", tz = "UTC"))
})
test_that("with_tz America/Vancouver", {
expect_silent(lubridate::with_tz(t1, tzone = "America/Vancouver"))
expect_equal(lubridate::with_tz(t1, tzone = "America/Vancouver"),
as.POSIXct("2016-09-01 02:00:00", tz = "America/Vancouver"))
})
test_that("with_tz Etc/GMT+8", {
expect_silent(lubridate::with_tz(t1, tzone = "Etc/GMT+8"))
expect_equal(lubridate::with_tz(t1, tzone = "Etc/GMT+8"),
as.POSIXct("2016-09-01 01:00:00", tz = "Etc/GMT+8"))
})
test_that("with_tz America/New_York", {
expect_silent(lubridate::with_tz(t1, tzone = "America/New_York"))
expect_equal(lubridate::with_tz(t1, tzone = "America/New_York"),
as.POSIXct("2016-09-01 05:00:00", tz = "America/New_York"))
})
test_that("with_tz Europe/Amsterdam", {
expect_silent(lubridate::with_tz(t1, tzone = "Europe/Amsterdam"))
expect_equal(lubridate::with_tz(t1, tzone = "Europe/Amsterdam"),
as.POSIXct("2016-09-01 11:00:00", tz = "Europe/Amsterdam"))
})
test_that("with_tz America/New_York", {
expect_silent(lubridate::with_tz(t1, tzone = "EST"))
expect_equal(lubridate::with_tz(t1, tzone = "EST"),
as.POSIXct("2016-09-01 04:00:00", tz = "EST"))
})
test_that("with_tz Europe/Amsterdam", {
expect_silent(lubridate::with_tz(t1, tzone = "Europe/Amsterdam"))
expect_equal(lubridate::with_tz(t1, tzone = "Europe/Amsterdam"),
as.POSIXct("2016-09-01 11:00:00", tz = "Europe/Amsterdam"))
})
test_that("force_tz with_tz UTC", {
expect_equal(lubridate::force_tz(t1, tzone = "UTC"),
as.POSIXct("2016-09-01 09:00:00", tz = "UTC"))
})
test_that("force_tz with_tz America/Vancouver", {
expect_equal(lubridate::force_tz(t1, tzone = "America/Vancouver"),
as.POSIXct("2016-09-01 09:00:00", tz = "America/Vancouver"))
})
test_that("force_tz Etc/GMT+8", {
expect_equal(lubridate::force_tz(t1, tzone = "Etc/GMT+8"),
as.POSIXct("2016-09-01 09:00:00", tz = "Etc/GMT+8"))
})
test_that("force_tz America/New_York", {
expect_equal(lubridate::force_tz(t1, tzone = "America/New_York"),
as.POSIXct("2016-09-01 09:00:00", tz = "America/New_York"))
})
test_that("force_tz Europe/Amsterdam", {
expect_equal(lubridate::force_tz(t1, tzone = "Europe/Amsterdam"),
as.POSIXct("2016-09-01 09:00:00", tz = "Europe/Amsterdam"))
})
test_that("as.POSIXct UTC", {
expect_silent(as.POSIXct("2016-09-01 09:00:00", tz = "UTC"))
})
test_that("as.POSIXct Etc/GMT+8", {
expect_silent(as.POSIXct("2016-09-01 09:00:00", tz = "Etc/GMT+8"))
})
test_that("as.POSIXct America/New_York", {
expect_silent(as.POSIXct("2016-09-01 09:00:00", tz = "America/New_York"))
})
test_that("as.POSIXct Europe/Amsterdam", {
expect_silent(as.POSIXct("2016-09-01 09:00:00", tz = "Europe/Amsterdam"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.