R/utils.R

In ghee: Provides a Lightweight Interface for 'GitHub' through R

#' Check github path
#'
#' @param .path GitHub repo path of the form "{username}/{repo}". If not provided, will default to current repo.
#' @keywords internal
#'
#' @return The GitHub repo path
#'
check_path <- function(.path) {

  if(missing(.path)) {
    as.character(gh::gh_tree_remote())
  } else {
    unlist(strsplit(.path, split = "/"))
  }
}

#' Check that a person can be assigned to an issue
#'
#' @inheritParams gh_collab_invite
#'
#' @keywords internal
#'
#' @return TRUE/FALSE if a collaborator is assignable
#'
gh_check_assignable <- function(path, assignee, ..., messages = TRUE) {

  path <- check_path(path)

  result <-
    if (
      isFALSE(
        tryCatch(gh::gh("GET /repos/{owner}/{repo}/assignees/{assignee}",
                        owner = path[1],
                        repo = path[2],
                        assignee = assignee,
                        ...),
                 error = function(c) FALSE))) {FALSE} else {TRUE}

  if (messages) {
    if(result) {
      message(paste0(assignee), " can be assigned to an issue of the ", path[2], " repository.")
    } else {
      message(paste0(assignee), " cannot be assigned to an issue of the ", path[2], " repository.")
    }
  }

  return(result)

}