added node coloring in DependencyReporter (fixes #238, #239)

NAMESPACE

@@ -20,6 +20,7 @@ importFrom(assertthat,is.readable)
 importFrom(assertthat,is.string)
 importFrom(assertthat,is.writeable)
 importFrom(covr,package_coverage)
+importFrom(data.table,":=")
 importFrom(data.table,as.data.table)
 importFrom(data.table,copy)
 importFrom(data.table,data.table)

R/DependencyReporter.R

@@ -31,7 +31,7 @@ NULL
 #' @importFrom assertthat assert_that is.flag
 #' @importFrom utils installed.packages
 #' @importFrom tools package_dependencies
-#' @importFrom data.table data.table rbindlist setkeyv
+#' @importFrom data.table := data.table rbindlist setkeyv
 #' @importFrom visNetwork visHierarchicalLayout
 #' @export
 DependencyReporter <- R6::R6Class(
@@ -221,6 +221,31 @@ DependencyReporter <- R6::R6Class(
         }
 
         , plot_network = function() {
+
+            # color base packages and the package in focus differently
+            gray <- "#dfdfdf"
+            orange <- "#FFBD33"
+            bright_green <- "#aafca8"
+
+            packageDT <- data.table::as.data.table(
+                installed.packages()
+            )
+            base_packages <- packageDT[!is.na(Priority) & Priority == "base"][, Package]
+
+            nodeDT <- self$nodes
+            nodeDT[, package_type := "regular_dependency"]
+            nodeDT[node %in% base_packages, package_type := "base_dependency"]
+            nodeDT[node == self$pkg_name, package_type := "report_package"]
+            private$update_nodes(nodeDT)
+            private$set_plot_node_color_scheme(
+                field = "package_type"
+                , palette = c(
+                    "regular_dependency" = bright_green
+                    , "report_package" = orange
+                    , "base_dependency" = gray
+                )
+            )
+
             g <- (
                 super$plot_network()
                 %>% visNetwork::visHierarchicalLayout(

inst/package_report/package_dependency_reporter.Rmd

@@ -7,6 +7,12 @@ output: html_document
 
 This section analyzes the recursive package dependencies of **`r reporter$pkg_name`**. 
 
+In the plot below, you'll see the following colors:
+
+- gray: **`r reporter$pkg_name`**
+- orange: R packages available [in every R session by default](https://cran.r-project.org/doc/manuals/r-release/R-admin.html#Default-packages)
+- green: third-party R packages
+
 ```{r echo = FALSE, error = TRUE}
 reporter$calculate_default_measures()
 ```