Tweaks.

git-svn-id: https://svn.r-project.org/R/trunk@89021 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: hornik

src/library/tools/R/QC.R

@@ -7975,7 +7975,8 @@ function(dir, localOnly = FALSE, pkgSize = NA)
         z <- parse_URI_reference(v)
         if((endsWith(tolower(z$authority), "github.com") ||
             endsWith(tolower(z$authority), "gitlab.com")) &&
-           basename(z$path) != "issues") {
+           !endsWith(z$path, "/issues") &&
+           !endsWith(z$path, "/issues/new")) {
             w <- sprintf("%s/issues", sub("/$", "", v))
             out$bugreports <-
                 paste(c("The BugReports field in DESCRIPTION has",