fix 'get_git_remote' to get BugReports url when main is docs site

Closes #53 (again)

Author: mpadge

DESCRIPTION

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

R/git.R

@@ -32,6 +32,11 @@ get_git_remote <- function (path = ".") {
         if (length (r) > 1) {
             r <- r [which (!grepl ("\\.io", r))]
         }
+        if (grepl ("\\.io", r) && "BugReports" %in% names (d)) {
+            r <- strsplit (d$BugReports, ",?\\s+?") [[1]]
+            r <- grep ("github\\.com", r, value = TRUE)
+            r <- gsub ("\\/issues$", "", r)
+        }
 
     } else if (repo_is_git (path)) {
 

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