R/github.R

isGitHubURL <- function(url) {
  is.string(url) && grepl("^http(?:s)?://(?:www|api).github.com", url, perl = TRUE)
}

canUseGitHubDownloader <- function() {
  all(packageVersionInstalled(devtools = "1.9.1", httr = "1.0.0"))
}

githubDownload <- function(url, destfile, ...) {
  onError(1, {
    github_pat      <- yoink("devtools", "github_pat")
    authenticate    <- yoink("httr", "authenticate")
    GET             <- yoink("httr", "GET")
    content         <- yoink("httr", "content")

    token <- github_pat(quiet = TRUE)
    auth <- if (!is.null(token))
      authenticate(token, "x-oauth-basic", "basic")
    else
      list()
    request <- GET(url, auth)
    writeBin(content(request, "raw"), destfile)
    if (file.exists(destfile)) 0 else 1
  })
}

Try the packrat package in your browser

Any scripts or data that you put into this service are public.

packrat documentation built on May 2, 2019, 6:24 a.m.