R/remove_subnetworks.R

In travis-m-blimkie/networker: Reproducible PPI Network Creation and Visualization in R

#' Find and return the largest subnetwork
#'
#' @param input Graph object
#'
#' @return Largest subnetwork from the input network list as an igraph object
#'
#' @importFrom igraph components induced_subgraph
#'
#' @references None.
#'
#' @seealso <https://www.github.com/travis-m-blimkie/networker>
#'
remove_subnetworks <- function(input) {
  igraph::V(input)$comp <- components(input)$membership

  max_subnet_id <- igraph::V(input)$comp %>%
    table() %>%
    tibble::enframe() %>%
    arrange(desc(value)) %>%
    magrittr::extract2(1, 1) %>%
    as.numeric()

  induced_subgraph(input, igraph::V(input)$comp == max_subnet_id)
}