Tweaks to ors_elevation()

Author: aoles

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: openrouteservice
 Title: Openrouteservice API Client
-Version: 0.2.6
+Version: 0.2.7
 Authors@R: person("Andrzej", "Oleś", email = "[email protected]", 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,13 @@
+# openrouteservice 0.2.7
+
+## NEW FEATURES
+
+- `ors_elevation()` now accepts point coordinates in matrix form.
+
+## BUG FIXES
+
+- `ors_elevation()` does not issue a message on missing encoding anymore.
+
 # openrouteservice 0.2.6
 
 ## NEW FEATURES

R/api_call.R

@@ -146,7 +146,8 @@ process_response <- function(res, endpoint, output, simplifyMatrix) {
 
   format <- switch(format, "application/gpx+xml"="xml", "json")
 
-  res <- parse_content(content(res, "text"), format, output, endpoint, simplifyMatrix)
+  res <- parse_content(suppressMessages(content(res, "text")),
+                       format, output, endpoint, simplifyMatrix)
 
   attr(res, "query_time") <- query_time
 

R/elevation.R

@@ -54,9 +54,12 @@ ors_elevation <- function(format_in = c("geojson", "point", "polyline", "encoded
 
   ## check whether geojson is a point or a line
   if (format_in == "geojson") {
-    geometry = fromJSON(geometry)
+    geometry <- fromJSON(geometry)
     input <- geometry$type
   } else {
+    names(geometry) <- NULL
+    if (format_in=="point")
+      geometry <- as.vector(geometry)
     input <- format_in
   }
 

README.md

@@ -72,21 +72,25 @@ defaults are equivalent of having
 Package News
 ------------
 
-### version 0.2.6
+### version 0.2.7
 
 #### NEW FEATURES
 
--   `ors_pois()` gains `sf` output.
+-   `ors_elevation()` now accepts point coordinates in matrix form.
 
-### version 0.2.5
+#### BUG FIXES
+
+-   `ors_elevation()` does not issue a message on missing encoding
+    anymore.
+
+### version 0.2.6
 
 #### NEW FEATURES
 
--   Improved `ors_elevation()` response handling.
+-   `ors_pois()` gains `sf` output.
 
-### version 0.2.4
+### version 0.2.5
 
 #### NEW FEATURES
 
--   `ors_directions()`, `ors_isochrones()`, `ors_elevation()` and
-    `ors_geocode()` can now output `sf` objects (\#42).
+-   Improved `ors_elevation()` response handling.

inst/WORDLIST

@@ -24,3 +24,9 @@ reachability
 Reachability
 SRTM
 str
+ggforce
+ggplot
+mapview
+natively
+polyline
+postprocessing

vignettes/openrouteservice.Rmd

@@ -13,8 +13,10 @@ vignette: >
 ---
 
 ```{r config, include=FALSE}
+## increase width for code output
+options(width = 100)
 ## set up knitr defaults
-knitr::opts_chunk$set(eval=TRUE, out.width='100%', out.height='560px')
+knitr::opts_chunk$set(eval = TRUE, out.width = '100%', out.height = '560px')
 ```
 
 ## Get started
@@ -87,11 +89,11 @@ coordinates <- list(c(8.34234, 48.23424), c(8.34423, 48.26424))
 x <- ors_directions(coordinates)
 ```
 
-Way points can be provided as a list of coordinate pairs `c(lng, lat)`, or a
+Way points can be provided as a list of coordinate pairs `c(lon, lat)`, or a
 2-column matrix-like object such as a data frame.
 
 ```{r data_frame}
-coordinates <- data.frame(lng = c(8.34234, 8.34423), lat = c(48.23424, 48.26424))
+coordinates <- data.frame(lon = c(8.34234, 8.34423), lat = c(48.23424, 48.26424))
 ```
 
 The response formatting defaults to geoJSON which allows to easily
@@ -370,8 +372,8 @@ y <- ors_geocode(location = location, layers = "locality", size = 1)
 
 This service allows you to find places of interest around or within given
 geographic coordinates. You may search for given features around a point, path
-or even within a given polygon specified in `geometry`. To list all the
-available POI categories use `ors_pois('list')`.
+or even within a polygon specified in `geometry`. To list all the available POI
+categories use `ors_pois('list')`.
 
 ```{r pois}
 geometry <- list(
@@ -413,9 +415,7 @@ Given a point or line geometry you can use `ors_elevation` to query for its
 elevation.
 
 ```{r elevation}
-x <- ors_geocode("Königstuhl")
+x <- ors_geocode("Königstuhl", output = "sf")
 
-coordinates <- x$features[[1L]]$geometry$coordinates
-
-ors_elevation("point", coordinates)
+ors_elevation("point", st_coordinates(x))
 ```