# 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.