R/neighbor_nms.R

In jdreyf/ezlimmaplot: Bioinformatics plots using limma and ggplot2, some from output of ezlimma

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

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