Merge pull request #126 from munterfinger/release/v0.7.0

Release/v0.7.0

Author: munterfi

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: hereR
 Type: Package
 Title: 'sf'-Based Interface to the 'HERE' REST APIs
-Version: 0.6.1
+Version: 0.7.0
 Authors@R: c(
     person("Merlin", "Unterfinger", role = c("aut", "cre"), email = "info@munterfinger.ch", comment = c(ORCID = "0000-0003-2020-2366")),
     person("Daniel", "Possenriede", role = "ctb", comment = c(ORCID = "0000-0002-6738-9845")))
@@ -19,8 +19,9 @@ Description: Interface to the 'HERE' REST APIs <https://developer.here.com/devel
   Locations, routes and isolines are returned as 'sf' objects.
 Depends: R (>= 3.3.0)
 Imports: 
+    crul (>= 1.1.0),
     curl (>= 4.3),
-    data.table (>= 1.12.6),
+    data.table (>= 1.13.0),
     flexpolyline (>= 0.2.0),
     jsonlite (>= 1.7.0),
     sf (>= 0.9-0),

NAMESPACE

@@ -14,6 +14,7 @@ export(route_matrix)
 export(set_auth)
 export(set_key)
 export(set_proxy)
+export(set_rate_limit)
 export(set_verbose)
 export(station)
 export(traffic)

NEWS.md

@@ -1,3 +1,13 @@
+# version 0.7.0
+
+* Enable `optimize` parameter to chose from "balanced", "quality" and "performance" in `isoline()` (closes [#119](https://github.com/munterfinger/hereR/issues/119)).
+* Remove deprecated parameters in `route()`, `route_matrix()` and `isoline()`.
+* Add specific user-agent to the requests: `hereR/<version> R/<version> (<platform>)`.
+* Add option to deactivate rate limits `set_rate_limit(FALSE)`.
+* Bugfix: Add rate limits in RPS (requests per seconds) to async requests to the APIs; move dependency for requests from **curl** to **crul** package (closes [#122](https://github.com/munterfinger/hereR/issues/122)).
+* Bugfix: `isoline()` now handles multipart polygons (MULTIPOLYGON) if received by the API (closes [#121](https://github.com/munterfinger/hereR/issues/121)).
+* Add area and feature avoidance in `route()` (closes [#117](https://github.com/munterfinger/hereR/issues/117)).
+
 # version 0.6.1
 
 * Use **styler** package and use `tyler::tidyverse_style()`to format the package.

R/autosuggest.R

@@ -21,7 +21,7 @@
 autosuggest <- function(address, results = 5, url_only = FALSE) {
 
   # Check addresses
-  .check_addresses(address)
+  .check_character(address)
   .check_numeric_range(results, 1, 100)
   .check_boolean(url_only)
 
@@ -34,7 +34,7 @@ autosuggest <- function(address, results = 5, url_only = FALSE) {
   url <- paste0(
     url,
     "&q=",
-    address
+    curl::curl_escape(address)
   )
 
   # Add bbox containing the world
@@ -56,8 +56,9 @@ autosuggest <- function(address, results = 5, url_only = FALSE) {
   }
 
   # Request and get content
-  data <- .get_content(
-    url = url
+  data <- .async_request(
+    url = url,
+    rps = 5
   )
   if (length(data) == 0) {
     return(NULL)

R/checks.R

@@ -1,20 +1,20 @@
-.check_addresses <- function(addresses) {
-  if (!is.character(addresses)) {
+.check_character <- function(text) {
+  if (!is.character(text) & !is.null(text)) {
     stop(sprintf(
       "'%s' must be a 'character' vector.",
-      deparse(substitute(addresses))
+      deparse(substitute(text))
     ))
   }
-  if (any(is.na(addresses))) {
+  if (any(is.na(text))) {
     stop(sprintf(
       "'%s' contains NAs.",
-      deparse(substitute(addresses))
+      deparse(substitute(text))
     ))
   }
-  if ("" %in% gsub(" ", "", addresses)) {
+  if ("" %in% gsub(" ", "", text)) {
     stop(sprintf(
       "'%s' contains empty strings.",
-      deparse(substitute(addresses))
+      deparse(substitute(text))
     ))
   }
 }
@@ -41,26 +41,28 @@
 }
 
 .check_polygon <- function(polygon) {
-  if (!"sf" %in% class(polygon)) {
-    stop(sprintf(
-      "'%s' must be an sf object.",
-      deparse(substitute(polygon))
-    ))
-  }
-  if (any(sf::st_is_empty(polygon))) {
-    stop(sprintf(
-      "'%s' has empty entries in the geometry column.",
-      deparse(substitute(polygon))
-    ))
-  }
-  if (!"sf" %in% class(polygon) |
-    any(!(
-      sf::st_geometry_type(polygon) %in% c("POLYGON", "MULTIPOLYGON")
-    ))) {
-    stop(sprintf(
-      "'%s' must be an sf object with geometry type 'POLYGON' or 'MULTIPOLYGON'.",
-      deparse(substitute(polygon))
-    ))
+  if (!is.null(polygon)) {
+    if (!"sf" %in% class(polygon)) {
+      stop(sprintf(
+        "'%s' must be an sf object.",
+        deparse(substitute(polygon))
+      ))
+    }
+    if (any(sf::st_is_empty(polygon))) {
+      stop(sprintf(
+        "'%s' has empty entries in the geometry column.",
+        deparse(substitute(polygon))
+      ))
+    }
+    if (!"sf" %in% class(polygon) |
+      any(!(
+        sf::st_geometry_type(polygon) %in% c("POLYGON", "MULTIPOLYGON")
+      ))) {
+      stop(sprintf(
+        "'%s' must be an sf object with geometry type 'POLYGON' or 'MULTIPOLYGON'.",
+        deparse(substitute(polygon))
+      ))
+    }
   }
 }
 
@@ -140,6 +142,19 @@
   }
 }
 
+.check_optimize <- function(optimize) {
+  optimizations <- c("balanced", "quality", "performance")
+  if (!optimize %in% optimizations) {
+    stop(
+      sprintf(
+        "Optimization method '%s' not valid, must be in ('%s').",
+        optimize,
+        paste(optimizations, collapse = "', '")
+      )
+    )
+  }
+}
+
 .check_range_type <- function(range_type) {
   range_types <- c("distance", "time", "consumption")
   if (!range_type %in% range_types) {
@@ -198,3 +213,18 @@
     ))
   }
 }
+
+.check_internet <- function() {
+  access <- tryCatch(
+    {
+      curl::has_internet()
+    },
+    error = function(cond) {
+      warning(cond)
+      return(FALSE)
+    }
+  )
+  if (!access) {
+    stop("Connection error: Please check internet access and proxy configuration.")
+  }
+}

R/connection.R

@@ -115,8 +115,9 @@ connection <- function(origin, destination, datetime = Sys.time(),
   }
 
   # Request and get content
-  data <- .get_content(
-    url = url
+  data <- .async_request(
+    url = url,
+    rps = 10
   )
   if (length(data) == 0) {
     return(NULL)

R/flow.R

@@ -86,8 +86,9 @@ flow <- function(aoi, min_jam_factor = 0, url_only = FALSE) {
   }
 
   # Request and get content
-  data <- .get_content(
-    url = url
+  data <- .async_request(
+    url = url,
+    rps = Inf
   )
   if (length(data) == 0) {
     return(NULL)

R/geocode.R

@@ -36,7 +36,7 @@
 geocode <- function(address, alternatives = FALSE, sf = TRUE, url_only = FALSE) {
 
   # Input checks
-  .check_addresses(address)
+  .check_character(address)
   .check_boolean(alternatives)
   .check_boolean(sf)
   .check_boolean(url_only)
@@ -50,7 +50,7 @@ geocode <- function(address, alternatives = FALSE, sf = TRUE, url_only = FALSE)
   url <- paste0(
     url,
     "&q=",
-    gsub("\\|", "", address)
+    curl::curl_escape(address)
   )
 
   # Return urls if chosen
@@ -59,8 +59,9 @@ geocode <- function(address, alternatives = FALSE, sf = TRUE, url_only = FALSE)
   }
 
   # Request and get content
-  data <- .get_content(
-    url = url
+  data <- .async_request(
+    url = url,
+    rps = 5
   )
   if (length(data) == 0) {
     return(NULL)

R/incident.R

@@ -70,8 +70,9 @@ incident <- function(aoi, from = Sys.time() - 60 * 60 * 24 * 7, url_only = FALSE
   }
 
   # Request and get content
-  data <- .get_content(
-    url = url
+  data <- .async_request(
+    url = url,
+    rps = Inf
   )
   if (length(data) == 0) {
     return(NULL)

R/intermodal_route.R

@@ -101,8 +101,9 @@ intermodal_route <- function(origin, destination, datetime = Sys.time(),
   }
 
   # Request and get content
-  data <- .get_content(
-    url = url
+  data <- .async_request(
+    url = url,
+    rps = 5
   )
   if (length(data) == 0) {
     return(NULL)