Merge pull request #313 from UrbanAnalyst/compound

fix compound junction construction when there are none #305

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: dodgr
 Title: Distances on Directed Graphs
-Version: 0.4.3.008
+Version: 0.4.3.009
 Authors@R: c(
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre")),
     person("Andreas", "Petutschnig", role = "aut"),

R/compound-junctions.R

@@ -171,25 +171,27 @@ remove_turn_restrictions <- function (graph, res) {
     graph_in <- graph_in [which (graph_in$.vx1 %in% graph_out_compound$.vx0), ]
 
     index <- match (graph_out_compound$.vx0, graph_in$.vx1)
-    graph_out_compound$.vx0 <- graph_in$.vx0 [index]
-    graph_out_compound$object_ <-
-        paste0 (graph_in$object_ [index], "_", graph_out_compound$object_)
-    graph_out_compound$d <- graph_in$d [index] + graph_out_compound$d
-    graph_out_compound$d_weighted <-
-        graph_in$d_weighted [index] + graph_out_compound$d_weighted
-    graph_out_compound$time <- graph_in$time [index] + graph_out_compound$time
-    graph_out_compound$time_weighted <-
-        graph_in$time_weighted [index] + graph_out_compound$time_weighted
-
-    # Extend edge map:
-    res$edge_map <- rbind (
-        res$edge_map,
-        data.frame (
-            edge = paste0 ("j_", rcpp_gen_hash (length (index), 10)),
-            e_in = graph_in$edge_ [index],
-            e_out = graph_out_compound$edge_
+    if (length (index) > 0L) {
+        graph_out_compound$.vx0 <- graph_in$.vx0 [index]
+        graph_out_compound$object_ <-
+            paste0 (graph_in$object_ [index], "_", graph_out_compound$object_)
+        graph_out_compound$d <- graph_in$d [index] + graph_out_compound$d
+        graph_out_compound$d_weighted <-
+            graph_in$d_weighted [index] + graph_out_compound$d_weighted
+        graph_out_compound$time <- graph_in$time [index] + graph_out_compound$time
+        graph_out_compound$time_weighted <-
+            graph_in$time_weighted [index] + graph_out_compound$time_weighted
+
+        # Extend edge map:
+        res$edge_map <- rbind (
+            res$edge_map,
+            data.frame (
+                edge = paste0 ("j_", rcpp_gen_hash (length (index), 10)),
+                e_in = graph_in$edge_ [index],
+                e_out = graph_out_compound$edge_
+            )
         )
-    )
+    }
 
     # Remove original edges from graph, and add new compound ones:
     res$graph <- rbind (

codemeta.json

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