fix get_stds_in_code to traverse all dirs for #24

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: srr
 Title: 'rOpenSci' Review Roclets
-Version: 0.0.1.142
+Version: 0.0.1.143
 Authors@R: 
     person("Mark", "Padgham", , "mark@ropensci.org", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

R/pre-submit.R

@@ -91,10 +91,21 @@ get_stds_from_code <- function (path) {
         return (NULL)
     }
 
-    flist <- list.files (file.path (path, "R"), full.names = TRUE)
+    dirs <- c (".", "R", "vignettes", "tests")
+    sfxs <- c ("\\.Rmd$", "\\.(R|r)$", "\\.Rmd$", "\\.(R|r)$")
+    rec <- c (FALSE, FALSE, TRUE, TRUE)
+
+    flist <- lapply (seq_along (dirs), function (i) {
+        list.files (file.path (path, dirs [i]),
+                    full.names = TRUE,
+                    recursive = rec [i],
+                    pattern = sfxs [i])
+                       })
+    flist <- unlist (flist)
+
     suppressWarnings ({
         blocks <- lapply (flist, function (i)
-                          tryCatch (roxygen2::parse_file (i),
+                          tryCatch (roxygen2::parse_file (i, env = NULL),
                                     error = function (e) list ()))
     })
     names (blocks) <- flist

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