From fc7689686bb73adaf2290d5d86b1c8a71224f036 Mon Sep 17 00:00:00 2001 From: mpadge Date: Wed, 13 Mar 2024 20:53:55 +0100 Subject: [PATCH] add summary of srrTODO to srr_counts if not all stds documented --- DESCRIPTION | 2 +- R/srr.R | 18 ++++++++++++++++++ codemeta.json | 2 +- 3 files changed, 20 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 36620b2..644b203 100644 --- a/DESCRIPTION +++ b/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", , "mark.padgham@email.com", role = c("aut", "cre"), comment = c(ORCID = "0000-0003-2172-5265")) diff --git a/R/srr.R b/R/srr.R index 0bd7055..e347ee7 100644 --- a/R/srr.R +++ b/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) diff --git a/codemeta.json b/codemeta.json index be486df..dd64f59 100644 --- 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.015", + "version": "0.1.0.016", "programmingLanguage": { "@type": "ComputerLanguage", "name": "R",