R/packageToString.r

In rdatsci/rt: R Tools for the Command Line

packageToString = function(pkg) {
  UseMethod("packageToString")
}

#' @export
packageToString.default = function(pkg) {
  if (testString(pkg))
    return(pkg)
  stop("No method found to convert package to a string: ", pkg)
}

#' @export
packageToString.PackageCran = function(pkg) {
  pkg$name
}

#' @export
packageToString.PackageLocal = function(pkg) {
  pkg$file_path
}

#' @export
packageToString.PackageGit = function(pkg) {
  subdir = ifelse(!nzchar(pkg$subdir), "", paste0("/", pkg$subdir))
  ref = ifelse(!nzchar(pkg$ref), "", paste0("@", pkg$ref))
  paste0(pkg$repo, subdir, ref)
}

#' @export
packageToString.PackageGitHub = function(pkg) {
  paste0("github::", pkg$handle)
}

#' @export
packageToString.PackageGitLab = function(pkg) {
  host = ifelse(is.na(pkg$host), "", sprintf("(%s):", pkg$host))
  paste0("gitlab::", host, pkg$handle)
}

#' @export
packageToString.PackageBitbucket = function(pkg) {
  paste0("bitbucket::", pkg$handle)
}

#' @export
packageToString.PackageBioc = function(pkg) {
  paste0("bioc::", pkg$handle)
}