# \donttest{
data(mtl_network)
mtl_network$length <- as.numeric(sf::st_length(mtl_network))
mtl_network$direction <- "Both"
mtl_network[6, "direction"] <- "TF"
mtl_network_directed <- lines_direction(mtl_network, "direction")
graph_result <- build_graph_directed(lines = mtl_network_directed,
digits = 2,
line_weight = "length",
direction = "direction",
attrs = TRUE)
# }
Run the code above in your browser using DataLab