feat: sf output for snapping

Author: aoles

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: openrouteservice
 Title: Openrouteservice API Client
-Version: 0.5.1
+Version: 0.5.2
 Authors@R: person("Andrzej", "Oleś", email = "andrzej.oles@gmail.com", comment = c(ORCID = "0000-0003-0285-2787"), role = c("aut", "cre"))
 Description: The package streamlines access to the services provided by openrouteservice.org.
   It allows you to painlessly query for directions, geocoding, isochrones, time-distance matrices, and POIs.

NEWS.md

@@ -1,3 +1,9 @@
+# openrouteservice 0.5.2
+
+## NEW FEATURES
+
+- sf output for snapping.
+
 # openrouteservice 0.5.1
 
 ## BUG FIXES

R/api_call.R

@@ -249,7 +249,7 @@ parse_content <- function (content,
 
       res[names(properties)] <- properties
     }
-    else if (endpoint!="geocode") {
+    else if (endpoint %in% c("isochrones", "pois")) {
       for (i in 1:length(res)) {
         # attempt to parse JSON strings to R objects
         if (is.character(res[[i]])) {
@@ -261,11 +261,14 @@ parse_content <- function (content,
           })
         }
       }
-      # use integer indices
-      if ("group_index" %in% names(res))
-        res$group_index <- type.convert(res$group_index, as.is = TRUE)
     }
 
+    # use integer indices
+    id_cols <- c("group_index", "source_id")
+    id_cols <- id_cols[id_cols %in% names(res)]
+    for (name in id_cols)
+      res[[name]] <- type.convert(res[[name]], as.is = TRUE)
+
     return(res)
   }
 

R/snap.R

@@ -14,6 +14,7 @@
 #' @templateVar return Coordinates of snapped location(s) and distance to the original point(s)
 #' @template return-text
 #' @template return-parsed
+#' @template return-sf
 #' @examples
 #' locations = list(
 #'   c(8.669629, 49.413025),
@@ -32,7 +33,7 @@ ors_snap <- function(locations,
                      format = c('geojson', 'json'),
                      ...,
                      api_key = ors_api_key(),
-                     output = c("parsed", "text")) {
+                     output = c("parsed", "text", "sf")) {
   ## required arguments with no default value
   if (missing(locations))
     stop('Missing argument "locations"')

README.md

@@ -70,6 +70,12 @@ defaults are equivalent of having
 
 ## Package News
 
+### version 0.5.2
+
+#### NEW FEATURES
+
+-   sf output for snapping.
+
 ### version 0.5.1
 
 #### BUG FIXES
@@ -81,9 +87,3 @@ defaults are equivalent of having
 #### NEW FEATURES
 
 -   Enable snap endpoint.
-
-### version 0.4.0
-
-#### NEW FEATURES
-
--   Enable optimization endpoint.