1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
test_that("we can convert from udunits time/date to R", {
#skip("set_units doesn't accept strings")
# rewrite this to
expect_equal(as.Date("1999-10-31"),
as.Date(as_units("days since 1999-10-30")))
expect_equal(as.POSIXct("1999-10-31 01:00:00", tz = "UTC"),
as.POSIXct(set_units(25, as_units("hours since 1999-10-30"), mode = "standard")))
})
test_that("we can convert from R's time/date to udunits", {
#skip("set_units doesn't accept strings")
expect_equal(
as_units(as.Date("1970-01-10")),
set_units(9, as_units("days since 1970-01-01"), mode = "standard"))
expect_equal(
as_units(as.Date("1999-10-31"), "days since 1999-10-30"),
set_units(1, as_units("days since 1999-10-30"), mode = "standard"))
expect_equal(
as_units(as.POSIXct("1970-01-01 01:00:00", tz = "UTC")),
set_units(3600, as_units("seconds since 1970-01-01 00:00:00 +00:00"), mode = "standard"))
expect_equal(
as_units(as.POSIXct("1999-10-31 01:00:00", tz = "UTC"), "hours since 1999-10-30"),
set_units(25, as_units("hours since 1999-10-30"), mode = "standard"))
})
|
