From da770a0102afa45eb2e69cd6069dc5fa3117991e Mon Sep 17 00:00:00 2001 From: stibu81 Date: Fri, 29 Nov 2024 17:23:45 +0100 Subject: [PATCH] fix: fix adjacent_vertices() being off by 1 if return.vs.es is FALSE --- R/interface.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/interface.R b/R/interface.R index ca75e70e9cb..e6b029bc0e5 100644 --- a/R/interface.R +++ b/R/interface.R @@ -611,9 +611,9 @@ adjacent_vertices <- function(graph, v, on.exit(.Call(R_igraph_finalizer)) res <- .Call(R_igraph_adjacent_vertices, graph, vv, mode) + res <- lapply(res, `+`, 1) if (igraph_opt("return.vs.es")) { - res <- lapply(res, `+`, 1) res <- lapply(res, unsafe_create_vs, graph = graph, verts = V(graph)) }