filter network data to remove negligible connections

Author: mpadge

DESCRIPTION

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

R/quarto-dashboard.R

@@ -46,7 +46,10 @@ repometrics_dashboard <- function (data_repo, data_users, action = "preview") {
     })
 }
 
-get_user_network <- function (data_repo, data_users, maxval = 20) {
+# `range` is used to scale values, and restrict to sufficiently large values.
+# Total range is first re-scaled to maximum of `range[2]`, then values below
+# `range[1]` are removed.
+get_user_network <- function (data_repo, data_users, range = c (1, 20)) {
 
     rels <- user_relation_matrices (data_users)
     index <- which (!grepl ("^login", names (rels)))
@@ -59,11 +62,12 @@ get_user_network <- function (data_repo, data_users, maxval = 20) {
     reldf <- cbind (rels [, 1:2], value = relvec)
     names (reldf) <- c ("source", "target", "value")
 
-    reldf$value <- reldf$value * maxval / max (reldf$value)
+    reldf$value <- reldf$value * range [2] / max (reldf$value)
+    reldf <- reldf [which (reldf$value >= range [1]), ]
 
     netdat <- list (
         nodes = data.frame (
-            id = unique (c (rels$login1, rels$login2)),
+            id = unique (c (reldf$source, reldf$target)),
             group = 1L
         ),
         links = reldf

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.052",
+  "version": "0.1.3.053",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

inst/extdata/quarto/network.qmd

@@ -32,9 +32,6 @@ nodes_user <- data.frame (id = dat_pkg$rm$contribs_from_gh_api$login, group = 4L
 nodes_user$group [which (nodes_user$id %in% names (dat_users))] <- 3L
 ```
 
-here is some text
-
-
 ```{ojs import-network-data}
 network = FileAttachment("results-user-network.json").json()
 ```
@@ -103,7 +100,7 @@ chart = {
       .attr("stroke-width", 1.5)
       .data(nodes)
       .join("circle")
-        .attr("r", d => 5 * Math.log10(d.contributions + 1));
+        .attr("r", d => 10 * Math.log10(d.contributions + 1));
 
   node.append("text")
       .attr("x", 8)