suppress warnings in match-pts-to-verts when x,y are NA

mpadge · mpadge · commit ae55d3eaeb01 · 2025-08-26T12:54:52.000+02:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: m4ra
 Title: Many-to-Many Multi-Modal Routing Aggregator
-Version: 0.1.1.049
+Version: 0.1.1.050
 Authors@R: 
     person(given = "Mark",
            family = "Padgham",
diff --git a/R/weight-networks.R b/R/weight-networks.R
@@ -148,7 +148,11 @@ cache_vertex_indices <- function (city) {
                 )
             )
             if (!fs::file_exists (fname)) {
-                index <- dodgr::match_points_to_verts (v1, v2 [, c ("x", "y")])
+                # dodgr issues warnings if any (x, y) values are NA:
+                suppressWarnings (
+                    index <-
+                        dodgr::match_points_to_verts (v1, v2 [, c ("x", "y")])
+                )
                 saveRDS (index, fname)
             }
             flist <- c (flist, fname)
diff --git a/codemeta.json b/codemeta.json
@@ -7,7 +7,7 @@
   "codeRepository": "https://github.com/UrbanAnalyst/m4ra",
   "issueTracker": "https://github.com/UrbanAnalyst/m4ra/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.1.049",
+  "version": "0.1.1.050",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

Original file line number	Diff line number	Diff line change
`@@ -148,7 +148,11 @@ cache_vertex_indices <- function (city) {`
`148`	`148`	`)`
`149`	`149`	`)`
`150`	`150`	`if (!fs::file_exists (fname)) {`
`151`		`- index <- dodgr::match_points_to_verts (v1, v2 [, c ("x", "y")])`
	`151`	`+ # dodgr issues warnings if any (x, y) values are NA:`
	`152`	`+ suppressWarnings (`
	`153`	`+ index <-`
	`154`	`+ dodgr::match_points_to_verts (v1, v2 [, c ("x", "y")])`
	`155`	`+ )`
`152`	`156`	`saveRDS (index, fname)`
`153`	`157`	`}`
`154`	`158`	`flist <- c (flist, fname)`