graph_get <- function()

in R/graph_api.R [45:60]

• 16 lines of code
• 3 McCabe index (conditional complexity)

graph_get <- function(service, params, token = token_get()) {
  if (is_graph_api_token(token)) {
    params[["access_token"]] <- token_string(token)
  } else if ((class(token) == "character") & length(token) == 1) {
    params[["access_token"]] <- token
  } else {
    stop("Parameter token must be a string or object of type 'graph_api_token'")
  }
  agent <- httr::user_agent("Radlibrary R Package")
  response <- httr::RETRY("GET", graph_api_endpoint(service), agent,
    query = params,
    quiet = FALSE, terminate_on = c(400, 500)
  )
  extract_error_message(response)
  response
}