R/get_url.R

In codemetar: Generate 'CodeMeta' Metadata for R Packages

# get_url_bioconductor_package -------------------------------------------------
get_url_bioconductor_package <- function(package) {

  get_url_bioconductor_package_2("https://bioconductor.org", package)
}

# get_url_bioconductor_package_2 -----------------------------------------------
get_url_bioconductor_package_2 <- function(base_url, package) {

  paste0(base_url, "/packages/release/bioc/html/", package, ".html")
}

# get_url_cran_package ---------------------------------------------------------
# CRAN canonical URL
get_url_cran_package <- function(package) {

  paste0("https://CRAN.R-project.org/package=", package)
}

# get_url_cran_package_2 -------------------------------------------------------
get_url_cran_package_2 <- function(base_url, package) {

  paste0(base_url, "/web/packages/", package)
}

# get_url_doi ------------------------------------------------------------------
get_url_doi <- function(...) {

  paste("https://doi.org", ..., sep = "/")
}

# get_url_github_package -------------------------------------------------------
get_url_github_package <- function(provider_name) {

  commit <- gsub(".*@", "", provider_name)
  commit <- gsub("\\)", "", commit)

  link <- gsub(".*\\(", "", provider_name)
  link <- gsub("@.*", "", link)

  get_url_github(link, "commit", commit)
}

# get_url_github ---------------------------------------------------------------
get_url_github <- function(...) {

  paste("https://github.com", ..., sep = "/")
}

# get_url_rhub -----------------------------------------------------------------
get_url_rhub <- function(a, b) {

  sprintf("https://sysreqs.r-hub.io/%s/%s", a, b)
}