test_that("sf linkage functions work", {
# To sf
niclas.sf <- track2sf.3d(niclas, CRS = 2056)
expect_equal(is.sf.3d(niclas.sf), TRUE)
expect_equal(nrow(niclas), nrow(niclas.sf))
expect_is(niclas.sf$geometry, c("sfc_POINT", "sfc"))
niclas.sf.m <- track2sf.3d(as.matrix(niclas), CRS = 2056)
expect_equal(is.sf.3d(niclas.sf.m), TRUE)
expect_equal(nrow(niclas), nrow(niclas.sf.m))
expect_is(niclas.sf.m$geometry, c("sfc_POINT", "sfc"))
# from sf
niclas.df <- sf2df.3d(niclas.sf)
expect_equal(is.sf.3d(niclas.df), FALSE)
niclas.df.m <- sf2df.3d(niclas.sf.m)
expect_equal(is.sf.3d(niclas.df.m), FALSE)
# transform CRS
row.names(niclas) <- NULL
expect_equal(
niclas,
transformCRS.3d(
transformCRS.3d(niclas, fromCRS = 2056, toCRS = 4326),
toCRS = 2056, fromCRS = 4326
)[, 1:3]
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.