WIP: display package dependencies

R/build-home-deps.R

@@ -0,0 +1,49 @@
+build_home_depencies <- function(pkg = ".") {
+  pkg <- as_pkgdown(pkg)
+
+  deps <- dependencies_table(pkg)
+  cats <- split(deps$package, deps$type)
+  cats <- purrr::map_chr(cats, paste0, collapse = ", ")
+
+  # Need to translate category titles
+  paste0("<p>", names(cats), ": ", cats, "</p>")
+}
+
+dependencies_table <- function(pkg = ".") {
+  pkg <- as_pkgdown(pkg)
+
+  deps <- pkg$desc$get_deps()
+  deps <- deps[order(deps$type, deps$package), c("package", "type")]
+  deps <- deps[deps$package != "R", ]
+
+  recursive <- sort(unique(unlist(tools::package_dependencies(deps$package[deps$type %in% c("Depends", "Imports")]))))
+  recursive <- setdiff(recursive, deps$package)
+  deps <- rbind(deps, data.frame(package = recursive, type = "Recursive"))
+
+  deps$package <- purrr::map_chr(deps$package, package_link)
+  rownames(deps) <- NULL
+
+  deps
+}
+
+package_link <- function(package) {
+  href <- downlit::href_package(package)
+
+  if (is.na(href)) {
+    if (is_base_package(package)) {
+      href <- NA
+    } else {
+      href <- paste0("https://cran.r-project.org/web/packages/", package)
+    }
+  }
+
+  a(package, href)
+}
+
+is_base_package <- function(x) {
+  x %in% c(
+    "base", "compiler", "datasets", "graphics", "grDevices", "grid",
+    "methods", "parallel", "splines", "stats", "stats4", "tcltk",
+    "tools", "utils"
+  )
+}

R/build-home-index.R

@@ -160,6 +160,7 @@ data_home_sidebar_links <- function(pkg = ".") {
 
   links <- c(
     link_url(sprintf(tr_("View on %s"), repo$repo), repo$url),
+    link_url(sprintf("See dependencies"), repo$repo), repo$url),
     link_url(tr_("Browse source code"), repo_home(pkg)),
     link_url(tr_("Report a bug"), pkg$desc$get_field("BugReports", default = NULL)),
     purrr::map_chr(links, ~ link_url(.$text, .$href))