url-test.R

# https://github.com/tmastny/sagemaker/blob/4d64375bdf4019cc0bf82a7ff4d6d97ea134f103/R/install.R#L29

library(stringr)
library(git2r)
library(magrittr)

print.github_url <- function(x, ...) {
  cat(x)
  invisible(x)
}

github_url <- function(path) {
  repo_url <- git2r::remote_url() %>%
    stringr::str_sub(end = -5)
  
  head <- git2r::repository_head()
  
  commit <- git2r::lookup_commit(head) %>%
    as.data.frame()

  line_url <- paste0(repo_url, "/blob/", commit$sha, "/", path)
  
  class(line_url) <- c("github_url", class(line_url))
  line_url
}


github_url("R/install.R#L29")

github_url("R/install.R") %>%
  browseURL()