Get rid of rematch2 dependency (which was bringing in tibble)

Closes #437

Author: jennybc

DESCRIPTION

@@ -29,7 +29,6 @@ Imports:
     gh,
     git2r (>= 0.23),
     glue,
-    rematch2,
     rlang,
     rprojroot (>= 1.2),
     rstudioapi,

NEWS.md

@@ -51,7 +51,7 @@ build paths within it (#415, #425).
 
 New Imports: fs, glue, utils
 
-No longer in Imports: backports, httr, rmarkdown (moved to Suggests), styler (moved to Suggests)
+No longer in Imports: backports, httr, rematch2, rmarkdown (moved to Suggests), styler (moved to Suggests)
 
 # usethis 1.3.0
 

R/browse.R

@@ -110,6 +110,39 @@ github_url_rx <- function() {
 ## output: "https://github.com/r-lib/gh"
 github_home <- function(package = NULL) {
   gh_link <- github_link(package)
-  df <- rematch2::re_match(gh_link, github_url_rx())
+  df <- re_match_inline(gh_link, github_url_rx())
   glue("https://github.com/{df$owner}/{df$repo}")
 }
+
+## inline a simplified version of rematch2::re_match()
+re_match_inline <- function(text, pattern) {
+  match <- regexpr(pattern, text, perl = TRUE)
+  start  <- as.vector(match)
+  length <- attr(match, "match.length")
+  end    <- start + length - 1L
+
+  matchstr <- substring(text, start, end)
+  matchstr[ start == -1 ] <- NA_character_
+
+  res <- data.frame(
+    stringsAsFactors = FALSE,
+    .text = text,
+    .match = matchstr
+  )
+
+  if (!is.null(attr(match, "capture.start"))) {
+
+    gstart  <- attr(match, "capture.start")
+    glength <- attr(match, "capture.length")
+    gend    <- gstart + glength - 1L
+
+    groupstr <- substring(text, gstart, gend)
+    groupstr[ gstart == -1 ] <- NA_character_
+    dim(groupstr) <- dim(gstart)
+
+    res <- cbind(groupstr, res, stringsAsFactors = FALSE)
+  }
+
+  names(res) <- c(attr(match, "capture.names"), ".text", ".match")
+  res
+}