check igraph compat at runtime

ropensci · Dec 3, 2024 · 6ed7ecb · 6ed7ecb
1 parent 5bcc7e2
commit 6ed7ecb
Showing 1 changed file with 10 additions and 7 deletions.
diff --git a/R/utils_igraph.R b/R/utils_igraph.R
@@ -27,15 +27,18 @@ targets_adjacent_vertices <- function(graph, v, mode) {
   index <- igraph::adjacent_vertices(graph = graph, v = v, mode = mode)
   index <- unlist(index, use.names = FALSE)
   index <- unique(index)
-  igraph::V(graph)$name[index + igraph_version_offset]
+  if (is.null(igraph_version_offset$offset)) {
+    igraph_version_offset$offset <- as.integer(
+      utils::compareVersion(
+        a = as.character(packageVersion("igraph")),
+        b = "2.1.2"
+      ) < 0L
+    )
+  }
+  igraph::V(graph)$name[index + igraph_version_offset$offset]
 }
 
-igraph_version_offset <- as.integer(
-  utils::compareVersion(
-    a = as.character(packageVersion("igraph")),
-    b = "2.1.2"
-  ) < 0L
-)
+igraph_version_offset <- new.env(parent = emptyenv())
 
 igraph_leaves <- function(igraph) {
   is_leaf <- igraph::degree(igraph, mode = "in") == 0L