tests/testthat/helper.R

In tmastny/browse: Navigate to Files in Remote Git Repos

library(withr)

current_commit_url <- function(file = "R/browse.R", lines = "") {
  sha <- git2r::last_commit() %>% .$sha

  paste0(
    "https://github.com/tmastny/browse/blob/",
    sha, "/", file, lines
  )
}

not_git_repo <- inherits(try(git2r::workdir()), "try-error")
no_tilde_dir <- inherits(try(with_dir("~", getwd())), "try-error")
file_exists <- file.exists("~/rpackages/browse/R/browse.R")