# NOT RUN {
library(pkgdepR)
deps(pkg = "pkgdepR") %>% plot(option = "E", direction = -1)
deps(pkg = "pkgdepR") %>% plot(option = "D", alpha = 0.5, main = list(text = NULL))
deps(pkg = "pkgdepR") %>%
plot(option = "D", alpha = 0.8, main = list(text = NULL)) %>%
visNetwork::visInteraction(dragNodes = FALSE)
# }
Run the code above in your browser using DataLab