R/error_handlers.R

In GitStats: Standardized Git Repository Data

handle_graphql_error <- function(responses_list, verbose) {
  if (inherits(responses_list, "graphql_error")) {
    if (verbose) cli::cli_alert_danger("GraphQL returned errors.")
    if (inherits(responses_list, "graphql_no_fields_error")) {
      if (verbose) {
        error_fields <- purrr::map_vec(responses_list$errors, ~.$extensions$fieldName)
        cli::cli_alert_info("Your GraphQL does not recognize [{error_fields}] field{?s}.")
        cli::cli_alert_warning("Check version of your GitLab.")
      }
    }
  } else if (any(purrr::map_lgl(responses_list, ~ inherits(., "graphql_error")))) {
    class(responses_list) <- c("graphql_error", class(responses_list))
    if (verbose) cli::cli_alert_danger("GraphQL returned errors.")
    check <- any(purrr::map_lgl(responses_list, ~ inherits(., "graphql_no_fields_error")))
    if (check && verbose) {
      error_fields <- purrr::map_vec(responses_list, ~ purrr::map(.$errors, ~.$extensions$fieldName) |> purrr::discard(is.null)) |> unique()
      cli::cli_alert_info("Your GraphQL does not recognize [{error_fields}] field{?s}.")
      cli::cli_alert_warning("Check version of your GitLab.")
    }
  }
  return(responses_list)
}

set_graphql_error_class <- function(response) {
  if (is_query_error(response)) {
    class(response) <- c(class(response), "graphql_error")
    if (is_no_fields_query_error(response)) {
      class(response) <- c(class(response), "graphql_no_fields_error")
    }
  }
  return(response)
}

is_query_error <- function(response) {
  check <- FALSE
  if (length(response) > 0) {
    check <- any(names(response) == "errors")
  }
  return(check)
}

is_no_fields_query_error <- function(response) {
  any(purrr::map_lgl(response$errors, ~ grepl("doesn't exist on type", .$message)))
}