tests/testthat/test-xyzm.R

12   expect_identical(as_xy(xy(), dims = c("x", "y", "z", "m")), xyzm())
18   expect_identical(as_xy(xy(1, 2), dims = c("x", "y", "z", "m")), xyzm(1, 2, NA, NA))
32   expect_identical(as_xy(xyz(), dims = c("x", "y", "z", "m")), xyzm())
38   expect_identical(as_xy(xyz(1, 2, 3), dims = c("x", "y", "z", "m")), xyzm(1, 2, 3, NA))
52   expect_identical(as_xy(xym(), dims = c("x", "y", "z", "m")), xyzm())
58   expect_identical(as_xy(xym(1, 2, 3), dims = c("x", "y", "z", "m")), xyzm(1, 2, NA, 3))
62   expect_s3_class(xyzm(), "wk_xyzm")
63   expect_s3_class(xyzm(), "wk_xyz")
64   expect_s3_class(xyzm(), "wk_xym")
65   expect_s3_class(xyzm(), "wk_xy")
66   expect_output(print(xyzm(1, 2, 3, 4)), "ZM \\(1 2 3 4\\)")
67   expect_identical(xy_dims(xyzm()), c("x", "y", "z", "m"))
69   expect_identical(as_xy(xyzm()), xyzm())
70   expect_identical(as_xy(xyzm(), dims = NULL), xyzm())
71   expect_identical(as_xy(xyzm(), dims = c("x", "y")), xy())
72   expect_identical(as_xy(xyzm(), dims = c("x", "y", "z")), xyz())
73   expect_identical(as_xy(xyzm(), dims = c("x", "y", "m")), xym())
74   expect_identical(as_xy(xyzm(), dims = c("x", "y", "z", "m")), xyzm())
76   expect_identical(as_xy(xyzm(1, 2, 3, 4), dims = NULL), xyzm(1, 2, 3, 4))
77   expect_identical(as_xy(xyzm(1, 2, 3, 4), dims = c("x", "y")), xy(1, 2))
78   expect_identical(as_xy(xyzm(1, 2, 3, 4), dims = c("x", "y", "z")), xyz(1, 2, 3))
79   expect_identical(as_xy(xyzm(1, 2, 3, 4), dims = c("x", "y", "m")), xym(1, 2, 4))
80   expect_identical(as_xy(xyzm(1, 2, 3, 4), dims = c("x", "y", "z", "m")), xyzm(1, 2, 3, 4))
87   expect_true(vctrs::vec_is(xyzm()))
91   expect_identical(as_xy(data.frame(x = 1, y = 2, z = 3, m = 4), dims = NULL), xyzm(1, 2, 3, 4))
95 …ical(as_xy(data.frame(x = 1, y = 2, z = 3, m = 4), dims = c("x", "y", "z", "m")), xyzm(1, 2, 3, 4))
101 …expect_identical(as_xy(data.frame(x = 1, y = 2), dims = c("x", "y", "z", "m")), xyzm(1, 2, NA, NA))
107     xyzm(1, 2, 3, 4)
119     xyzm(1, 2, 3, 4)
149   expect_identical(as_xy(wkt("POINT ZM (1 2 3 4)")), xyzm(1, 2, 3, 4))
150   expect_identical(as_xy(wkt("POINT (1 2)"), dims = c("x", "y", "z", "m")), xyzm(1, 2, NA, NA))
158   x <- xyzm(1:2, 2, 3, 4)
160   expect_identical(x[2], xyzm(10, 20, NA, NA))
162   expect_identical(x[2], xyzm(11, 21, NA, NA))