R/neighbor_nms.R

In jdreyf/PANTS: Pathway analysis via network smoothing

#' Get names of nodes' neighbors
#'
#' Get node names of nodes' direct neighbors
#'
#' @param nodes Node names in the graph
#' @inheritParams graph2kernel

neighbor_nms <- function(gr, nodes){
  return(igraph::V(gr)$name[unlist(igraph::ego(gr, order=1, match(nodes, igraph::V(gr)$name)))])
}