pkg <- read.dcf("../DESCRIPTION", fields = "Package")[1]
library(pkg, character.only = TRUE)
library(`r pkg`)

Create graoh

res <- dep_graph(pkg = "rworkflows",
                 method_seed = "github",
                 reverse = TRUE) 

Subset graph

mypkgs <- grep("neurogenomics/|bschilder/|RajLabMSSM/|NathanSkene/",
               names(igraph::V(res$graph)), 
               value = TRUE)
g <- res$graph |> 
    tidygraph::filter(name %in% mypkgs) |>
    dplyr::mutate(size=60)

Plot network

plt <- echodeps::dep_graph_plot(g = g, 
                                pkg = "rworkflows", 
                                use_basename = TRUE)

Session Info

utils::sessionInfo()




RajLabMSSM/echodeps documentation built on Oct. 31, 2023, 7:20 a.m.