R/giant_component.R

In Wences91/altanalysis: Altmetric analysis

#' giant_component
#' 
#' @param graph A igraph graph
#' @description This function returns the main component from a igraph graph.
#' @export 
#' @importFrom igraph clusters induced.subgraph


giant_component <- function(graph){
  cl <- igraph::clusters(graph)
  return(igraph::induced.subgraph(graph, which(cl$membership == which.max(cl$csize))))
}