inst/tinytest/test_gradLinkTypoLayer.R

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.sf <- getLinkLayer(x = mtq, df = mob[mob$j %in% c(97209, 97213),], 
                       dfid = c("i", "j"))


plot(st_geometry(mtq))
expect_silent(gradLinkTypoLayer(x = mob.sf, df = mob,
                                var = "fij", 
                                breaks = c(109,500,1000,2000,4679), 
                                lwd = c(1,2,4,10),
                                var2='j', add = TRUE))
plot(st_geometry(mtq))
mob$sj[1:50] <- NA
expect_silent(gradLinkTypoLayer(x = mob.sf, df = mob,
                                var = "fij", 
                                breaks = c(109,500,1000,2000,4679), 
                                lwd = c(1,2,4,10),
                                var2='sj', add = TRUE))
expect_error(gradLinkTypoLayer(spdf = mtq))
expect_error(gradLinkTypoLayer(x = mob.sf, df = mob,
                               var = "fij", 
                               breaks = c(109,500,1000,2000,4679), 
                               lwd = c(1,2,4),
                               var2='j', add = TRUE))

Try the cartography package in your browser

Any scripts or data that you put into this service are public.

cartography documentation built on Sept. 14, 2023, 5:08 p.m.