fix convex implementation #223 to close polygons

UrbanAnalyst · May 17, 2024 · ea6b87c · ea6b87c
1 parent 74cc11b
commit ea6b87c
Show file tree

Hide file tree

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

diff --git a/R/iso.R b/R/iso.R
@@ -327,7 +327,11 @@ dmat_to_pts <- function (d, from, v, dlim, convex = FALSE) {
     if (convex) {
         pts <- lapply (pts, function (pt_from) {
             lapply (pt_from, function (pt_dlim) {
-                pt_dlim [grDevices::chull (pt_dlim [, c ("x", "y")]), ]
+                h <- grDevices::chull (pt_dlim [, c ("x", "y")])
+                if (length (h) > 1) {
+                    h <- c (h, h [1])
+                }
+                pt_dlim [h, ]
             })
         })
     }

diff --git a/codemeta.json b/codemeta.json
@@ -7,7 +7,7 @@
   "codeRepository": "https://github.com/UrbanAnalyst/dodgr",
   "issueTracker": "https://github.com/UrbanAnalyst/dodgr/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.3.0.024",
+  "version": "0.3.0.025",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",