cran: remove links to adespatial

R/edges_weights_vector.R

@@ -1,12 +1,13 @@
 #' Create an edges weights vector
 #' 
 #' @description
-#' Creates an edges weights vector that can be used in [adespatial::aem()]. 
-#' Resulting edges weights equal to 0 will be replaced by `4 x max(w)`, 
-#' where `max(w)` is the maximal weight in the matrix.
+#' Creates an edges weights vector that can be used in `aem()` of the package 
+#' `adespatial`. Resulting edges weights equal to 0 will be replaced by 
+#' `4 x max(w)`, where `max(w)` is the maximal weight in the matrix.
 #'
 #' @param x a `list` of length 2. The nodes_by_edges matrix returned by 
-#'   `nodes_by_edges_matrix()` or [adespatial::aem.build.binary()].
+#'   `nodes_by_edges_matrix()` (or `aem.build.binary()` of the package 
+#'   `adespatial`).
 #'   
 #' @param y a `data.frame` with the following three columns: `from` 
 #'   (the first node of the edge), `to` (the second node of the edge), and 
@@ -68,7 +69,7 @@ edges_weights_vector <- function(x, y) {
 
   if (any(!(names(x) %in% c("se.mat", "edges")))) {
     stop("Argument 'x' must be a nodes-by-edges matrix as returned by ",
-         "nodes_by_edges_matrix() or adespatial::aem.build.binary()", 
+         "nodes_by_edges_matrix() or aem.build.binary() (adespatial)", 
          call. = FALSE)
   }
 

R/nodes_by_edges_matrix.R

@@ -1,10 +1,11 @@
 #' Create a nodes-by-edges matrix
 #' 
 #' @description
-#' Creates a nodes-by-edges matrix that will be used by [adespatial::aem()].
-#' This function creates the same output as [adespatial::aem.build.binary()]
-#' but works in a different way: it's only based on node labels (not on 
-#' coordinates). Also, this function adds labels to nodes and edges.
+#' Creates a nodes-by-edges matrix that will be used by `aem()` of the package 
+#' `adespatial`. This function creates the same output as `aem.build.binary()` 
+#' of the package `adespatial` but works in a different way: it's only based on
+#' node labels (not on coordinates). Also, this function adds labels to nodes 
+#' and edges.
 #' 
 #' @param edges a `data.frame` with the following two columns: `from` (the 
 #'   first node of the edge) and `to` (the second node of the edge).

tests/testthat/test-edges_weights_vector.R

@@ -43,7 +43,7 @@ test_that("edges_weights_vector() - Tests for errors", {
   expect_error(edges_weights_vector(nodes_edges_bad),
                paste0("Argument 'x' must be a nodes-by-edges matrix as ", 
                       "returned by nodes_by_edges_matrix() or ", 
-                      "adespatial::aem.build.binary()"),
+                      "aem.build.binary() (adespatial)"),
                fixed = TRUE)
 
   expect_error(edges_weights_vector(nodes_edges),