First pass at sf output for GIScience#42

DESCRIPTION

@@ -6,11 +6,20 @@ Description: The package streamlines access to the services provided by openrout
   It allows you to painlessly query for directions, geocoding, isochrones, time-distance matrices, and POIs.
 URL: https://github.com/GIScience/openrouteservice-r
 BugReports: https://github.com/GIScience/openrouteservice-r/issues
-Imports: geojson, geojsonlint, httr, jsonlite, keyring, leaflet, utils, xml2
+Imports: 
+    geojson,
+    geojsonlint,
+    httr,
+    jsonlite,
+    keyring,
+    leaflet,
+    utils,
+    xml2,
+    geojsonsf
 Suggests: covr, ggplot2, knitr, pkgdown, RColorBrewer, rmarkdown, roxygen2, sp, testthat
 License: Apache License 2.0 | file LICENSE
 Encoding: UTF-8
 LazyData: true
 VignetteBuilder: knitr
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 6.0.1
+RoxygenNote: 6.1.1

R/directions.R

@@ -16,8 +16,11 @@
 #'
 #' # simple call
 #' ors_directions(coordinates, preference="fastest")
-#'
-#' #customized options
+
+#' # sf output
+#' ors_directions(coordinates, preference="fastest", output_sf = TRUE)
+
+#' # customized options
 #' ors_directions(coordinates, profile="cycling-mountain", elevation=TRUE, format="geojson")
 #' @template author
 #' @export
@@ -26,18 +29,27 @@ ors_directions <- function(coordinates,
                            format = c('json', 'geojson', 'gpx'),
                            ...,
                            api_key = ors_api_key(),
-                           parse_output = NULL) {
+                           parse_output = NULL,
+                           output_sf = FALSE) {
   if (missing(coordinates))
     stop('Missing argument "coordinates"')
 
   profile = match.arg(profile)
 
-  format = match.arg(format)
+  if(output_sf) {
+    format = "geojson"
+  } else {
+    format = match.arg(format)
+  }
   response_format = switch(format, 'gpx'='xml', 'json')
 
   params = list(coordinates = coordinates, profile = profile, format = format, ...)
 
   query = api_query(api_key, params)
-
-  api_call("directions", "GET", query, response_format = response_format, parse_output = parse_output)
+  if(output_sf) {
+    a = api_call("directions", "GET", query, response_format = response_format, parse_output = FALSE)
+    geojsonsf::geojson_sf(a)
+  } else {
+    api_call("directions", "GET", query, response_format = response_format, parse_output = parse_output)
+  }
 }