restore sf attributes on return value for #338

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: osmdata
 Title: Import 'OpenStreetMap' Data as Simple Features or Spatial Objects
-Version: 0.2.5.012
+Version: 0.2.5.013
 Authors@R: c(
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre")),
     person("Bob", "Rudis", role = "aut"),

R/getbb.R

@@ -282,6 +282,10 @@ getbb <- function (place_name,
         obj_index <- as.integer (c (names (gt_p), names (gt_mp)))
         ret_data <- obj [obj_index, which (!names (obj) %in% c ("boundingbox", "geotext"))]
         ret <- cbind (ret_data, ret_poly)
+        # Then restore sf attributes:
+        nms <- names (ret)
+        attributes (ret) <- attributes (ret_poly)
+        names (ret) <- nms
     }
 
     return (ret)

codemeta.json

@@ -11,7 +11,7 @@
   "codeRepository": "https://github.com/ropensci/osmdata/",
   "issueTracker": "https://github.com/ropensci/osmdata/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.2.5.012",
+  "version": "0.2.5.013",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",