R/http.R

In rcitoid: Client for 'Citoid'

oid_base <- "https://en.wikipedia.org"
oid_path <- "api/rest_v1/data/citation"

# errs <- function(x) {
#   if (x$status_code > 201) {
#     fun <- fauxpas::find_error_class(x$status_code)$new()
#     fun$do_verbose(x)
#   }
# }

# oid_GET <- function(format, id, accept_language, ...) {
#   cli <- crul::HttpClient$new(
#     oid_base,
#     headers = cp(list(
#       "User-Agent" = oid_ua(),
#       "X-USER-AGENT" = oid_ua(),
#       "Accept-Language" = accept_language
#     )),
#     opts = list(...)
#   )
#   paths <- file.path(oid_path, format, id)
#   res <- lapply(paths, function(z) cli$get(z))
#   invisible(lapply(res, errs))
#   return(res)
# }

oid_headers <- function(accept_language) {
  cp(list(
    "User-Agent" = oid_ua(),
    "X-USER-AGENT" = oid_ua(),
    "Accept-Language" = accept_language
  ))
}

errs_asnc <- function(x) {
  if (x > 201) {
    fun <- fauxpas::find_error_class(x)$new()
    fun$do_verbose(x)
  }
}

oid_GET_async <- function(format, id, accept_language, ...) {
  paths <- file.path(oid_path, format, id)
  reqs <- lapply(paths, function(w) {
    crul::HttpRequest$new(
      url = oid_base,
      opts = list(...),
      headers = oid_headers(accept_language)
    )$get(path = w)
  })
  cli <- crul::AsyncVaried$new(.list = reqs)
  cli$request()
  invisible(lapply(cli$status_code(), errs_asnc))
  cli$responses()
}

oid_ua <- function() {
  versions <- c(
    paste0("r-curl/", utils::packageVersion("curl")),
    paste0("crul/", utils::packageVersion("crul")),
    sprintf("rOpenSci(rcitoid/%s)",
            utils::packageVersion("rcitoid"))
  )
  paste0(versions, collapse = " ")
}