fix srr_counts output when missing_stds

ropensci-review-tools · Mar 13, 2024 · 72a3953 · 72a3953
1 parent 03a88cd
commit 72a3953
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: roreviewapi
 Title: Plumber API to report package structure and function
-Version: 0.1.0.014
+Version: 0.1.0.015
 Authors@R: 
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

diff --git a/R/srr.R b/R/srr.R
@@ -54,6 +54,11 @@ srr_counts <- function (repourl, repo, issue_id, post_to_issue = TRUE) {
         while (!nzchar (missing_stds [1])) {
             missing_stds <- missing_stds [-1]
         }
+        next_sec <- grep ("^\\#+", missing_stds)
+        missing_stds <- missing_stds [-seq (next_sec [1], length (missing_stds))]
+        while (!nzchar (missing_stds [length (missing_stds)])) {
+            missing_stds <- missing_stds [-length (missing_stds)]
+        }
 
         out <- c (
             missing_stds,

diff --git a/codemeta.json b/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.14",
+  "version": "0.1.0.015",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",