R/aliases.R

In slopp/renv: Project Environments for R

# aliases used primarily for nicer / normalized text output
`_renv_aliases` <- list(
  cran         = "CRAN",
  github       = "GitHub",
  gitlab       = "GitLab",
  local        = "Local",
  bitbucket    = "Bitbucket",
  bioconductor = "Bioconductor"
)

renv_alias <- function(text) {
  `_renv_aliases`[[text]] %||% text
}