fix user relation matrix construct #59 when only 1 row

Author: mpadge

DESCRIPTION

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

R/quarto-dashboard.R

@@ -47,6 +47,10 @@ get_user_network <- function (data_users) {
     rels <- user_relation_matrices (data_users)
     index <- which (!grepl ("^login", names (rels)))
     relmat <- apply (as.matrix (rels [, index]), 2, function (i) i / sum (i))
+    if (!is.matrix (relmat)) {
+        relmat <- matrix (relmat, nrow = 1L)
+    }
+    relmat [which (is.na (relmat))] <- 0
     relvec <- 20 * rowSums (relmat) / ncol (relmat)
     reldf <- cbind (rels [, 1:2], value = relvec)
     names (reldf) <- c ("source", "target", "value")

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