Nothing
# SPDX-FileCopyrightText: 2024 Petros Koutsolampros
#
# SPDX-License-Identifier: GPL-3.0-only
context("Conversion tests")
test_that("sf line map to ShapeMap", {
lineStringMap <- loadSmallAxialLinesAsSf()$sf
shapeMap <- Rcpp_toShapeMap(lineStringMap, c(1L, 2L))
expectedColNames <- c(
"Ref",
"df_row_name",
"df_1_Depthmap_Ref",
"df_2_Connectivity"
)
attrNames <- Rcpp_ShapeMap_getAttributeNames(shapeMap)
expect_identical(expectedColNames, attrNames)
firstCol <- attrNames[[1L]]
firstColData <- Rcpp_ShapeMap_getAttributeData(shapeMap, firstCol)[[firstCol]]
expect_length(firstColData, nrow(lineStringMap))
})
test_that("sf line map to Axial ShapeGraph", {
lineStringMap <- loadSmallAxialLinesAsSf()$sf
shapeMap <- Rcpp_toShapeMap(lineStringMap, c(1L, 2L))
result <- Rcpp_toAxialShapeGraph(shapeMap)
shapeGraph <- result$mapPtr
expectedColNames <- c(
"Ref",
"Connectivity",
"Line Length",
"Data Map Ref",
"df_row_name",
"df_1_Depthmap_Ref",
"df_2_Connectivity"
)
attrNames <- Rcpp_ShapeMap_getAttributeNames(shapeGraph)
expect_identical(expectedColNames, attrNames)
firstCol <- attrNames[[1L]]
firstColData <- Rcpp_ShapeMap_getAttributeData(
shapeGraph,
firstCol
)[[firstCol]]
expect_length(firstColData, nrow(lineStringMap))
axialConnections <- Rcpp_ShapeGraph_getAxialConnections(shapeGraph)
expect_length(axialConnections$from, 236L)
})
test_that("sf line map to Segment ShapeGraph", {
lineStringMap <- loadSmallAxialLinesAsSf()$sf
shapeMap <- Rcpp_toShapeMap(lineStringMap, c(1L, 2L))
result <- Rcpp_toAxialShapeGraph(shapeMap)
shapeGraph <- result$mapPtr
segmentMap <- Rcpp_axialToSegment(shapeGraph)
expectedColNames <- c(
"Ref",
"Axial Line Ref",
"Segment Length",
"Angular Connectivity",
"Connectivity",
"Axial Connectivity",
"Axial Line Length",
"Axial Data Map Ref",
"Axial df_row_name",
"Axial df_1_Depthmap_Ref",
"Axial df_2_Connectivity"
)
attrNames <- Rcpp_ShapeMap_getAttributeNames(segmentMap)
expect_identical(expectedColNames, attrNames)
firstCol <- attrNames[[1L]]
firstColData <- Rcpp_ShapeMap_getAttributeData(
segmentMap,
firstCol
)[[firstCol]]
expect_length(firstColData, 294L)
segmentConnections <- Rcpp_ShapeGraph_getSegmentConnections(segmentMap)
expect_length(segmentConnections$from, 1416L)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.