chore: remove deprecated functions and arguments

NAMESPACE

@@ -2,7 +2,6 @@
 
 export(osrmIsochrone)
 export(osrmIsodistance)
-export(osrmIsometric)
 export(osrmNearest)
 export(osrmRoute)
 export(osrmTable)

R/osrmIsochrone.R

@@ -18,7 +18,6 @@
 #' @param res number of points used to compute isochrones, one side of the square
 #' grid, the total number of points will be res*res. Increase res to obtain more
 #' detailed isochrones.
-#' @param returnclass deprecated.
 #' @param smooth if TRUE a moving window with a gaussian blur is applied to 
 #' durations. This option may be usefull to remove small patches of hard to 
 #' reach areas. The computed isochrones are less precise but better looking. 
@@ -70,16 +69,11 @@
 #' }
 osrmIsochrone <- function(loc, breaks = seq(from = 0, to = 60, length.out = 7),
                           exclude, res = 30, smooth = FALSE, k,
-                          returnclass,
                           osrm.server = getOption("osrm.server"),
                           osrm.profile = getOption("osrm.profile")) {
   opt <- options(error = NULL)
   on.exit(options(opt), add = TRUE)
-
-  if (!missing(returnclass)) {
-    warning('"returnclass" is deprecated.', call. = FALSE)
-  }
-
+
   # input management
   loc <- input_route(x = loc, id = "loc", single = TRUE)
   oprj <- loc$oprj

R/osrmIsodistance.R

@@ -18,7 +18,6 @@
 #' @param res number of points used to compute isodistances, one side of the
 #' square grid, the total number of points will be res*res. Increase res to
 #' obtain more detailed isodistances.
-#' @param returnclass deprecated.
 #' @param smooth if TRUE a moving window with a gaussian blur is applied to 
 #' distances. This option may be usefull to remove small patches of hard to 
 #' reach areas. The computed isodistances are less precise but better looking. 
@@ -68,16 +67,11 @@
 #' }
 osrmIsodistance <- function(loc, breaks = seq(from = 0, to = 10000, length.out = 4),
                             exclude, res = 30, smooth = FALSE, k,
-                            returnclass,
                             osrm.server = getOption("osrm.server"),
                             osrm.profile = getOption("osrm.profile")) {
   opt <- options(error = NULL)
   on.exit(options(opt), add = TRUE)
 
-  if (!missing(returnclass)) {
-    warning('"returnclass" is deprecated.', call. = FALSE)
-  }
-
   # input management
   loc <- input_route(x = loc, id = "loc", single = TRUE)
   oprj <- loc$oprj
@@ -221,18 +215,4 @@ osrmIsodistance <- function(loc, breaks = seq(from = 0, to = 10000, length.out =
   }
 
   return(iso)
-}
-
-#' @name osrmIsometric
-#' @description deprecated, use \link{osrmIsodistance} instead.
-#' @title deprecated
-#' @param ... deprecated
-#' @return deprecated
-#' @keywords internal
-#' @export
-osrmIsometric <- function(...) {
-  warning("This function is deprecated, use osrmIsodistance() instead.",
-    call. = FALSE
-  )
-  osrmIsodistance(...)
-}
+}

R/osrmRoute.R

@@ -49,8 +49,6 @@
 #' @param exclude pass an optional "exclude" request option to the OSRM API.
 #' @param osrm.server the base URL of the routing server.
 #' @param osrm.profile the routing profile to use, e.g. "car", "bike" or "foot".
-#' @param returnclass deprecated.
-
 #' @return
 #' The output of this function is an sf LINESTRING of the shortest route.\cr
 #' It contains 4 fields: \itemize{
@@ -124,15 +122,11 @@ osrmRoute <- function(src,
                       loc,
                       overview = "simplified",
                       exclude,
-                      returnclass,
                       osrm.server = getOption("osrm.server"),
                       osrm.profile = getOption("osrm.profile")) {
   opt <- options(error = NULL)
   on.exit(options(opt), add = TRUE)
 
-  if (!missing(returnclass)) {
-    warning('"returnclass" is deprecated.', call. = FALSE)
-  }
   url <- base_url(osrm.server, osrm.profile, "route")
 
   if (missing(loc)) {

R/osrmTrip.R

@@ -16,7 +16,6 @@
 #' @param exclude pass an optional "exclude" request option to the OSRM API.
 #' @param overview "full", "simplified". Add geometry either full (detailed) or simplified
 #' according to highest zoom level it could be display on.
-#' @param returnclass deprecated.
 #' @param osrm.server the base URL of the routing server.
 #' @param osrm.profile the routing profile to use, e.g. "car", "bike" or "foot".
 #' @details As stated in the OSRM API, if input coordinates can not be joined by a single trip
@@ -55,15 +54,11 @@
 #' )
 #' }
 osrmTrip <- function(loc, exclude = NULL, overview = "simplified",
-                     returnclass, osrm.server = getOption("osrm.server"),
+                     osrm.server = getOption("osrm.server"),
                      osrm.profile = getOption("osrm.profile")) {
   opt <- options(error = NULL)
   on.exit(options(opt), add = TRUE)
 
-  if (!missing(returnclass)) {
-    warning('"returnclass" is deprecated.', call. = FALSE)
-  }
-
   url <- base_url(osrm.server, osrm.profile, "trip")
 
   # input points

inst/tinytest/test_osrmIsodistance.R

@@ -94,13 +94,6 @@ if(local_server){
                                osrm.server = "http://0.0.0.0:5000/", 
                                osrm.profile = "driving"))
 
-  # old name
-  expect_warning(osrmIsometric(loc = c(13.43,52.47), 
-                                         breaks = seq(0,14,2), 
-                                         res = 10,
-                                         osrm.server = "http://0.0.0.0:5000/", 
-                                         osrm.profile = "driving"))
-
   # server error
   expect_error(osrmIsodistance(loc = c(13.43,52.47), breaks = seq(0,500,100), 
                              res = 10,