extract_error_message <- function()

in R/graph_api.R [63:69]

• 7 lines of code
• 2 McCabe index (conditional complexity)

extract_error_message <- function(response) {
  if (httr::http_error(response)) {
    out <- paste0("HTTP Error:\n", jsonlite::prettify(httr::content(response, "text", encoding = "UTF-8"), indent = 2))
    stop(out)
  }
  invisible(response)
}