compound junctions in dodgr_dists_categorical for #190

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: dodgr
 Title: Distances on Directed Graphs
-Version: 0.2.15.062
+Version: 0.2.15.063
 Authors@R: c(
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre")),
     person("Andreas", "Petutschnig", role = "aut"),

R/dists-categorical.R

@@ -80,9 +80,13 @@ dodgr_dists_categorical <- function (graph,
         stop ("graphs with integer edge_type columns may not contain 0s")
     }
 
-    edge_type <- graph$edge_type
     graph <- tbl_to_df (graph)
 
+    if (get_turn_penalty (graph) > 0.0) {
+        graph <- create_compound_junctions (graph)$graph # don't need compound edges here
+    }
+    edge_type <- graph$edge_type
+
     hps <- get_heap (heap, graph)
     heap <- hps$heap
     graph <- hps$graph

codemeta.json

@@ -7,7 +7,7 @@
   "codeRepository": "https://github.com/ATFutures/dodgr",
   "issueTracker": "https://github.com/ATFutures/dodgr/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.2.15.062",
+  "version": "0.2.15.063",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",