tests/testthat/test-PointMap.R

In alcyon: Spatial Network Analysis

# SPDX-FileCopyrightText: 2024 Petros Koutsolampros
#
# SPDX-License-Identifier: GPL-3.0-only

context("PointMap tests")

test_that("PointMap linking", {
    pointMap <- loadInteriorLinesAsPointMap()$pointMap
    linkData <- links(pointMap)
    expect_identical(colnames(linkData), c("from", "to"))
    expect_identical(dim(linkData), c(0L, 2L))

    pointMap <- linkCoords(pointMap, 1.74, 6.7, 5.05, 5.24)
    linkData <- links(pointMap)
    expect_identical(colnames(linkData), c("from", "to"))
    expect_identical(dim(linkData), c(1L, 2L))

    pointMap <- unlinkCoords(pointMap, 1.74, 6.7, 5.05, 5.24)
    linkData <- links(pointMap)
    expect_identical(colnames(linkData), c("from", "to"))
    expect_identical(dim(linkData), c(0L, 2L))

    pointMap <- linkRefs(pointMap, 1835056L, 7208971L)
    linkData <- links(pointMap)
    expect_identical(colnames(linkData), c("from", "to"))
    expect_identical(dim(linkData), c(1L, 2L))

    pointMap <- unlinkRefs(pointMap, 1835056L, 7208971L)
    linkData <- links(pointMap)
    expect_identical(colnames(linkData), c("from", "to"))
    expect_identical(dim(linkData), c(0L, 2L))
})

test_that("PointMap linking", {
    pointMap <- loadInteriorLinesAsPointMap()$pointMap
    connectionData <- connections(pointMap)
    expect_identical(colnames(connectionData), c("from", "to"))
    expect_identical(dim(connectionData), c(887448L, 2L))
})