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)) }