sum edge distances when simplifying

cmu-lib · Apr 15, 2019 · a8a3f48 · a8a3f48
1 parent 33098a8
commit a8a3f48
Show file tree

Hide file tree

Showing 2 changed files with 22,454 additions and 22,454 deletions.
diff --git a/osmar/drake.R b/osmar/drake.R
@@ -75,7 +75,7 @@ pgh_plan <- drake_plan(
     as_tbl_graph() %>% 
     activate(edges) %>% 
     left_join(select(write_edgelist(pgh_tidy_graph), -from, -to, -distance), by = "id"),
-  simplified_graph = simplify_topology(flat_graph, protected_nodes = which(vertex_attr(flat_graph, "pathfinder.interface"))),
+  simplified_graph = simplify_topology(flat_graph, protected_nodes = which(vertex_attr(flat_graph, "pathfinder.interface")), edge_attr_comb = list(pathfinder.distance = sum, .default.combiner = first)),
   simplified_pgh_nodes = as_tbl_graph(simplified_graph) %>% 
     write_nodelist() %>% 
     write_csv(path = file_out("osmar/output_data/simplified/simplified_pgh_nodes.csv"), na = ""),