R/uri_utils.R

In yonicd/shield: Full Remote Installation

make_cran_uri <- function(dep, endpoint = 'api.github.com'){
  sprintf('https://%s/repos/cran/%s/contents/DESCRIPTION', endpoint, dep)
}

make_gh_uri <- function(dep, endpoint = 'api.github.com', suffix = 'main'){
  sprintf('https://%s/repos/%s/commits/%s', endpoint, dep, suffix)
}