R/repo.R

In AntonelliLab/outsider: Install and Run Programs, Outside of R, Inside of R

#' @name pkgnm_guess
#' @title Guess package name
#' @description Return package name from a repo name.
#' @param repo Repository (e.g. "username/repo") or package name associated
#' with module
#' @param call_error Call error if no package found? Default, TRUE.
#' @return character(1)
pkgnm_guess <- function(repo, call_error = TRUE) {
  mdls <- modules_list()
  repo <- tolower(repo)
  # Check against package names
  pull <- mdls == repo
  if (sum(pull) == 1) {
    return(mdls[pull])
  }
  possibles <- mdls[agrepl(pattern = repo, x = mdls, max.distance = 0.1)]
  # Check against urls
  metas <- lapply(X = mdls, FUN = meta_get)
  urls <- vapply(X = metas, FUN = function(x) {
    res <- x[['url']]
    if (is.null(res)) {
      res <- ''
    }
    res
  }, FUN.VALUE = character(1))
  pull <- grepl(pattern = repo, x = urls)
  if (sum(pull) == 1) {
    return(mdls[pull])
  }
  possibles <- c(mdls[agrepl(pattern = repo, x = urls, max.distance = 0.1)],
                 possibles)
  # Check against repos
  services <- c('github', 'gitlab', 'bitbucket')
  repos <- vapply(X = metas, FUN = function(x) {
    pull <- services %in% names(x)
    if (any(pull)) {
      service <- services[pull][[1]]
      res <- paste0(x[[service]], '/', x[['package']])
    } else {
      res <- x[['package']]
    }
    res
  }, FUN.VALUE = character(1))
  pull <- grepl(pattern = repo, x = repos)
  if (sum(pull) == 1) {
    return(mdls[pull])
  }
  possibles <- c(mdls[agrepl(pattern = repo, x = repos, max.distance = 0.1)],
                 possibles)
  # call error and make suggestions
  if (call_error) {
    possibles <- unique(possibles)
    if (length(possibles) > 0) {
      possible_msg <- paste0('\nDid you mean ... ',
                             paste0(char(possibles), collapse = ' or '),
                             ' ... instead?')
    } else {
      possible_msg <- ''
    }
    stop(paste0('No module associated with ', char(repo),
                ' could be found.', possible_msg), call. = FALSE)
  }
  invisible(NULL)
}