curl_multi.R

# Manual page
library(curl)
?multi

# Example of 100 requests over 10 connections
real = vector("list", 10)
for(i in 1:10){
    h <- new_handle(url = "https://httpbin.org/get")
    multi_add(h, complete = function(res){
        print(res)
        real[[i]] = res$status
    }, error = stop)
}
results <- multi_run(host_connections = 10)
print(real) # gives nulls