add summary of srrTODO to srr_counts if not all stds documented

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: roreviewapi
 Title: Plumber API to report package structure and function
-Version: 0.1.0.015
+Version: 0.1.0.016
 Authors@R: 
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

R/srr.R

@@ -66,6 +66,24 @@ srr_counts <- function (repourl, repo, issue_id, post_to_issue = TRUE) {
             "All standards must be documented prior to submission"
         )
 
+        todo <- grep ("srrstatsTODO", srr_rep)
+        if (length (todo) > 0L) {
+            srr_rep_todo <- srr_rep [seq (todo, length (srr_rep))]
+            ptn <- "^\\-\\sTotal\\s\\:"
+            srr_rep_todo_total <- gsub (ptn, "", grep (ptn, srr_rep_todo, value = TRUE))
+            srr_rep_todo_total <- as.integer (gsub ("^\\s|\\/.*$", "", srr_rep_todo_total))
+            if (srr_rep_todo_total > 0L) {
+                out <- c (
+                    out, "",
+                    paste0 (
+                        "There are also ",
+                        srr_rep_todo_total,
+                        " standards with 'srrstatsTODO' tags."
+                    )
+                )
+            }
+        }
+
     } else {
 
         out <- roreviewapi::srr_counts_summary (srr_rep)

codemeta.json

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