test_getLinkLayer.R
In cartography: Thematic Cartography

library(sf)
library(sp)
mtq <- st_read(system.file("gpkg/mtq.gpkg", package="cartography"), quiet = TRUE)
mob <- read.csv(system.file("csv/mob.csv", package="cartography"))
mob_97209 <- mob[mob$i == 97209, ]
mob.sf <- getLinkLayer(x = mtq, df = mob_97209, dfid = c("i", "j"))


expect_equal(nrow(mob.sf), 10 )


expect_silent(getLinkLayer(x = as(mtq, "Spatial"),df = mob_97209, dfid = c("i", "j")))
expect_error(getLinkLayer(spdf = as(mtq, "Spatial")))
expect_error(getLinkLayer(mtq[1:5,], df = mob_97209))
expect_warning(getLinkLayer(mtq[1:20,], df = mob_97209))