segmentsMif <- system.file(
"extdata", "testdata", "barnsbury",
"barnsbury_small_segment_original.mif",
package = "alcyon"
)
segmentsSf <- st_read(
segmentsMif,
geometry_column = 1L, quiet = TRUE
)
gateCountsMif <- system.file(
"extdata", "testdata", "barnsbury",
"barnsbury_ped_gatecounts.mif",
package = "alcyon"
)
gateCountsSf <- st_read(
gateCountsMif,
geometry_column = 1L, quiet = TRUE
)
matchPointsToLines(gateCountsSf, segmentsSf)
Run the code above in your browser using DataLab