Remove geosphere, close #332

DESCRIPTION

@@ -43,7 +43,6 @@ Imports:
     jsonlite (>= 1.5),
     stringr (>= 1.3.1),
     methods,
-    geosphere (>= 1.5.7),
     Rcpp (>= 0.12.1),
     nabor (>= 0.5.0),
     rlang (>= 0.2.2),

NAMESPACE

@@ -66,7 +66,6 @@ export(od_aggregate_from)
 export(od_aggregate_to)
 export(od_coords)
 export(od_coords2line)
-export(od_dist)
 export(od_id_character)
 export(od_id_max_min)
 export(od_id_order)
@@ -113,7 +112,6 @@ importFrom(Rcpp,evalCpp)
 importFrom(dplyr,first)
 importFrom(dplyr,last)
 importFrom(dplyr,n)
-importFrom(geosphere,distHaversine)
 importFrom(graphics,text)
 importFrom(magrittr,"%>%")
 importFrom(methods,as)

R/linefuns.R

@@ -46,7 +46,7 @@ is_linepoint <- function(l) {
 }
 #' Find the bearing of straight lines
 #'
-#' This is a simple wrapper around the geosphere function [bearing()] to return the
+#' This function returns the
 #' bearing (in degrees relative to north) of lines.
 #'
 #' @details
@@ -84,7 +84,8 @@ line_bearing <- function(l, bidirectional = FALSE) {
 #' on the direction of turn, i.e. + or - values for clockwise/anticlockwise),
 #' bidirectional (which mean values greater than +/- 90 are impossible).
 #'
-#' Building on the convention used in [bearing()] and in many applications,
+#' Building on the convention used in in the `bearing()` function from the
+#' `geosphere` package and in many applications,
 #' North is definied as 0, East as 90 and West as -90.
 #'
 #' @inheritParams line_bearing

R/od-funs.R

@@ -509,31 +509,6 @@ points2flow <- function(p) {
   od2line(flow = odf, zones = p)
 }
 
-#' Quickly calculate Euclidean distances of od pairs
-#'
-#' It is common to want to know the Euclidean distance between origins and destinations
-#' in OD data. You can calculate this by first converting OD data to SpatialLines data,
-#' e.g. with [od2line()]. However this can be slow and overkill if you just
-#' want to know the distance. This function is a few orders of magnitude faster.
-#'
-#' Note: this function assumes that the zones or centroids in `cents` have a geographic
-#' (lat/lon) CRS.
-#'
-#' @inheritParams od2line
-#' @family od
-#' @export
-#' @examples
-#' data(flow)
-#' data(cents)
-#' od_dist(flow, cents)
-od_dist <- function(flow, zones) {
-  omatch <- match(flow[[1]], zones@data[[1]])
-  dmatch <- match(flow[[2]], zones@data[[1]])
-  cents_o <- zones@coords[omatch, ]
-  cents_d <- zones@coords[dmatch, ]
-  geosphere::distHaversine(p1 = cents_o, p2 = cents_d)
-}
-
 #' Convert a series of points, or a matrix of coordinates, into a line
 #'
 #' This function makes that makes the creation of `sf`

R/stplanr-package.R

@@ -16,7 +16,6 @@
 #' @importFrom methods as slot
 #' @importFrom stats setNames
 #' @importFrom utils read.csv
-#' @importFrom geosphere distHaversine
 #' @importFrom Rcpp evalCpp
 #' @importFrom methods is new
 #' @importFrom utils download.file tail unzip