fix bug in 'get_index_id_cols' for #229

UrbanAnalyst · Jun 6, 2024 · bc7f205 · bc7f205
1 parent 021664e
commit bc7f205
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: dodgr
 Title: Distances on Directed Graphs
-Version: 0.4.0.013
+Version: 0.4.0.014
 Authors@R: c(
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre")),
     person("Andreas", "Petutschnig", role = "aut"),

diff --git a/R/dists.R b/R/dists.R
@@ -227,7 +227,8 @@ get_index_id_cols <- function (graph,
             is.matrix (pts) ||
             is.data.frame (pts)) {
             index <- get_pts_index (graph, gr_cols, vert_map, pts)
-            if (is.matrix (pts) || is.data.frame (pts)) {
+            if ((is.matrix (pts) || is.data.frame (pts)) &&
+                !any (duplicated (index))) {
                 rownames (pts) <- vert_map$vert [index]
             }
         } else {

diff --git a/codemeta.json b/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.0.013",
+  "version": "0.4.0.014",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",