drop = F in connect-highways

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: osmplotr
 Title: Bespoke Images of 'OpenStreetMap' Data
-Version: 0.3.5.025
+Version: 0.3.5.026
 Authors@R: 
     c(person(given = "Mark",
              family = "Padgham",

R/connect-highways.R

@@ -492,7 +492,7 @@ sps_through_cycle <- function (ways, cyc) {
         }, simplify = FALSE)
         path_lens <- vapply (paths, length, integer (1L))
         this_path <- paths [[which.min (path_lens)]]
-        this_way <- w0f [this_path, ]
+        this_way <- w0f [this_path, , drop = FALSE]
 
         ways [[c0]] <- list (this_way)
         thepath <- rbind (thepath, this_way)

codemeta.json

@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/ropensci/osmplotr",
   "issueTracker": "https://github.com/ropensci/osmplotr/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.3.5.025",
+  "version": "0.3.5.026",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",