R/download.R

In ropensci/jsonld: JSON for Linking Data

download <- function(url){
  h <- curl::new_handle()
  if(isTRUE(getOption('jsonld_use_accept', TRUE)))
    curl::handle_setheaders(h, "Accept" = "application/ld+json, application/json")
  req <- curl::curl_fetch_memory(url, handle = h)
  if(req$status >= 400){
    json <- rawToChar(req$content)
    if(jsonlite::validate(json)){
      data <- jsonlite::fromJSON(json)
      if(length(data$message))
        stop(sprintf("(%s) %s", url, data$message))
    }
    stop(sprintf("Download (HTTP %d): %s", req$status, url))
  }
  headers <- curl::parse_headers_list(req$headers)
  list(
    content_type = jsonlite::unbox(headers[["content-type"]]),
    link = jsonlite::unbox(headers[["link"]]),
    final_url = jsonlite::unbox(req$url),
    response_text = jsonlite::unbox(rawToChar(req$content))
  )
}