pkgDependencyGain

pkgDependencyGain.R

# edited from this function: https://github.com/seandavi/BiocPkgTools/blob/HEAD/R/pkgDependencyMetrics.R#L232
pkgDependencyGain <- function(pkg, depdf, depsToRemove) {

  ## fetch dependency graph
  g <- buildPkgDependencyIgraph(depdf)
  
  ## exclude 'R', 'base' and 'methods'
  excludedpkgs <- c("R", "base", "methods")
  g <- igraph::induced_subgraph(g, setdiff(names(V(g)), excludedpkgs))
  
  ## get all reachable dependencies
  deppkgs <- igraph::subcomponent(g, pkg, mode="out")
  
  ## get the induced subgraph of dependencies for 'pkg'
  g.pkg <- igraph::induced_subgraph(g, deppkgs)
  
  BiocPkgTools:::.getDepGain(g = g.pkg, pkg = pkg, depsToRemove = depsToRemove)
  
}