fix 🐛 in roclet on extra_file names of empty blocks

Author: mpadge

DESCRIPTION

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

R/roclet.R

@@ -193,7 +193,9 @@ get_extra_blocks <- function (extra_files) {
 
     lens <- vapply (blocks, length, integer (1L))
     blocks <- do.call (c, blocks)
-    names (blocks) <- rep (extra_files, times = lens)
+    if (length (blocks) > 0L) {
+        names (blocks) <- rep (extra_files, times = lens)
+    }
 
     return (blocks)
 }

codemeta.json

@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/ropensci-review-tools/srr",
   "issueTracker": "https://github.com/ropensci-review-tools/srr/issues",
   "license": "https://spdx.org/licenses/MIT",
-  "version": "0.1.4.037",
+  "version": "0.1.4.038",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",