rm native pipes from 'add-osm_surface'

didn't mean to put those there

Author: mpadge

DESCRIPTION

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

R/add-osm-surface.R

@@ -290,10 +290,11 @@ list2df_with_data <- function (map, obj, obj_type, xy_mn, dat, bg,
     }
     if (!missing (bg)) {
 
-        xy <- cbind (as.numeric (xyz$x), as.numeric (xyz$y)) |>
-            sfheaders::sf_point () |>
-            sf::st_sf (crs = 4326) |>
-            reproj_equal_area ()
+        xy <- cbind (as.numeric (xyz$x), as.numeric (xyz$y))
+        xy <- sfheaders::sf_point (xy)
+        xy <- sf::st_sf (xy, crs = 4326)
+        xy <- reproj_equal_area (xy)
+
         bdry <- sf::st_convex_hull (sf::st_combine (xy))
         indx <- vapply (
             sf::st_within (xy, bdry), function (i) {

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.031",
+  "version": "0.3.5.032",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",