fix reported numbers of stds; closes #24

ropensci-review-tools · Nov 26, 2021 · 0649cc2 · 0649cc2
1 parent fafd279
commit 0649cc2
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: srr
 Title: 'rOpenSci' Review Roclets
-Version: 0.0.1.144
+Version: 0.0.1.145
 Authors@R: 
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

diff --git a/R/report.R b/R/report.R
@@ -43,7 +43,7 @@ srr_report <- function (path = ".", branch = "", view = TRUE) {
         stds <- regmatches (m, gregexpr ("\\[(.*?)\\]", m))
         stds <- lapply (stds, function (i)
                         strsplit (gsub ("^\\[|\\]$", "", i), ",\\s?") [[1]])
-        length (unlist (stds))
+        length (unique (unlist (stds)))
     }
     num_srr <- num_stds (msgs$msgs)
     num_na <- num_stds (msgs$msgs_na)

diff --git a/codemeta.json b/codemeta.json
@@ -8,7 +8,7 @@
   "description": "Companion package to 'rOpenSci' statistical software review\n    project.",
   "name": "srr: 'rOpenSci' Review Roclets",
   "license": "https://spdx.org/licenses/MIT",
-  "version": "0.0.1.144",
+  "version": "0.0.1.145",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",