R/repositoryid.R

In ecos-umons/extractoR: R packages metadata extractor

ParseGithubRepositoryName <- function(str) {
  re <- "^([^/]+)/([^/]+)(/(([^/]+)*))?$"
  subdir <- sub(re, "\\4", str)
  subdir[subdir == ""] <- "."
  data.table(owner=sub(re, "\\1", str),
             repository=sub(re, "\\2", str), subdir=subdir)
}

ParseRepositoryId <- function(str) {
  re <- "^([^:]+):([^:]+)(:([^:]+))?$"
  data.table(source=sub(re, "\\1", str),
             repository=sub(re, "\\2", str),
             ref=sub(re, "\\4", str))
}