update deprecated igraph function names

LandSciTech · Mar 13, 2024 · f1f845e · f1f845e
1 parent 38277cb
commit f1f845e
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -38,7 +38,7 @@ Encoding: UTF-8
 LazyData: true
 Imports:
     dplyr,
-    igraph,
+    igraph (>= 2.0.3),
     data.table,
     sf,
     units,

diff --git a/R/mstList.R b/R/mstList.R
@@ -50,7 +50,7 @@ mstList<- function(sim){
     mst.paths <- igraph::mst(mst.g, weighted=TRUE) 
 
     # get raster indexs for mst vertices
-    paths.matrix <- igraph::get.edgelist(mst.paths, names=TRUE)
+    paths.matrix <- igraph::as_edgelist(mst.paths, names=TRUE)
 
     paths.matrix <- matrix(as.numeric(paths.matrix), ncol = 2)
 

diff --git a/R/shortestPaths.R b/R/shortestPaths.R
@@ -23,7 +23,7 @@ shortestPaths<- function(sim){
     #create a list of shortest paths
     paths <- unlist(lapply(sim$paths.list,
                            function(x){
-                             igraph::get.shortest.paths(sim$g, x[1], 
+                             igraph::shortest_paths(sim$g, x[1], 
                                                         x[2], out = "both") 
                            } ))
 
@@ -66,7 +66,7 @@ iterativeShortestPaths<- function(sim){
 
     for (i in seq_along(sim$paths.list)) {
       path.list <- sim$paths.list[[i]]
-      path <- igraph::get.shortest.paths(sim$g, path.list[1], path.list[2], out = "both")
+      path <- igraph::shortest_paths(sim$g, path.list[1], path.list[2], out = "both")
 
       path <- unlist(path)