filter out unconnected nodes from network graph #59

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: repometrics
 Title: Metrics for Your Code Repository
-Version: 0.1.3.059
+Version: 0.1.3.060
 Authors@R: 
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

R/quarto-dashboard.R

@@ -104,6 +104,10 @@ get_user_network <- function (data_repo, data_users, range = c (1, 20)) {
         dplyr::filter (target %in% nodes$id & source %in% netdat$nodes$id)
     netdat$links <- dplyr::bind_rows (netdat$links, links)
 
+    # Remove any nodes which then have no links:
+    netdat$nodes <- netdat$nodes |>
+        dplyr::filter (id %in% c (netdat$links$source, netdat$links$target))
+
     # Finally add focal repo to those data (if not already there)
     this_repo <- data_repo$rm$repo_from_gh_api$full_name
     if (this_repo %in% netdat$nodes$id) {

codemeta.json

@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/ropensci-review-tools/repometrics",
   "issueTracker": "https://github.com/ropensci-review-tools/repometrics/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.3.059",
+  "version": "0.1.3.060",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",