R/api_interface.R

In seandavi/RefineBio: The bridge between refine.bio and Bioconductor

make_request <- function(method, url, ...) {
  # set a user agent
  ua <- httr::user_agent("http://github.com/seandavi/RefineBio")
  response <- httr::VERB(
    verb = method,
    url,
    ...,
    httr::content_type("application/json"),
    httr::add_headers("API-KEY" = rb_get_token()),
    httr::accept_json(),
    ua
  )

  # We are expecting JSON
  if (httr::http_type(response) != "application/json") {
    stop("API did not return the expected json datatype", call. = FALSE)
  }

  # Convert http errors into R errors
  if (httr::http_error(response)) {
    msg <- sprintf(
      "RefineBio API request failed [%d]\n<%s>\n%s\n%s",
      httr::status_code(response),
      response$message,
      response$error_type,
      response$details
    )
    stop(
      msg,
      call. = FALSE
    )
  }
  to_keep <- c(
    "status_code",
    "headers",
    "date",
    "times",
    "request"
  )
  ret <- response[to_keep]
  body_parsed <- jsonlite::fromJSON(
    httr::content(response, as = "text", encoding = "utf-8"),
    simplifyDataFrame = TRUE
  )
  if (!("results" %in% names(body_parsed))) {
    body_parsed <- list(results = body_parsed)
  }
  ret <- c(ret, body_parsed)
  class(ret) <- c("rb_result", class(ret))
  ret
}

get_url <- function(url, query = NULL) {
  make_request("GET", url, query = query)
}

post_url <- function(url, body = NULL) {
  make_request("POST", url, body = body)
}

put_url <- function(url, body = NULL) {
  make_request("PUT", url, body = body)
}

make_url <- function(endpoint) {
  file.path(.refinebio_url, endpoint)
}

get_by_endpoint <- function(endpoint, query = NULL) {
  url <- make_url(endpoint)
  get_url(url, query = query)
}

post_by_endpoint <- function(endpoint, body = NULL) {
  url <- make_url(endpoint)
  post_url(url, body = body)
}

put_by_endpoint <- function(endpoint, body = NULL) {
  url <- make_url(endpoint)
  put_url(url, body = body)
}