library(flownet)
library(sf)
# Load existing network edges (exclude proposed new links)
africa_net <- africa_network[!africa_network$add, ]
# Convert network LINESTRING geometries to graph
graph <- linestrings_to_graph(africa_net)
head(graph)
# Graph contains edge, from/to nodes, and coordinates
names(graph)
Run the code above in your browser using DataLab