curl() connection

curl.R

# Synchronous implementation of curl() connection
curl <- function(url){
  con <- rawConnection(raw(0), "r+");
  cat("Downloading ")
  req <- httr::GET(url, httr::write_stream(function(x){
    cat(".")
    writeBin(x, con)
  }))
  httr::stop_for_status(req)
  seek(con, 0)
  con
}

# Does not parse-stream. Downloads all data first.
diamonds <- jsonlite::stream_in(curl("https://jeroenooms.github.io/data/diamonds.json"))

# Also does not support gzip
flights <- jsonlite::stream_in(gzcon(curl("https://jeroenooms.github.io/data/flights.json.gz")))

This is now possible with the new curl package.