tests/testthat/test-ShapeMap.R

In alcyon: Spatial Network Analysis

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

context("ShapeMap tests")

test_that("Non-numeric columns in conversion", {
    lineStringMap <- loadSmallAxialLinesAsSf()$sf
    lineStringMap$nonn1 <- "a"
    lineStringMap$nonn2 <- "a"
    expect_warning(
        as(lineStringMap, "ShapeMap"),
        "Non-numeric columns will not be transferred to the ShapeMap: nonn1 nonn2"
    )
})