Skip to contents

Graph may have duplicated edges, particularly when extracted as dodgr_streetnet objects. This function de-duplicates any repeated edges, reducing weighted distances and times to the minimal values from all duplicates.

Usage

dodgr_deduplicate_graph(graph)

Arguments

graph

Any 'dodgr' graph or network.

Value

A potentially modified version of graph, with any formerly duplicated edges reduces to single rows containing minimal weighted distances and times.

Examples

net0 <- weight_streetnet (hampi, wt_profile = "foot")
nrow (net0)
#> [1] 6813
# Duplicate part of input data:
h2 <- rbind (hampi, hampi [1, ])
net1 <- weight_streetnet (h2, wt_profile = "foot")
nrow (net1) # network then has more edges
#> [1] 6871
net2 <- dodgr_deduplicate_graph (net1)
nrow (net2)
#> [1] 6813
stopifnot (identical (nrow (net0), nrow (net2)))