## Not run: ------------------------------------
# cc <- Async$new(
# urls = c(
# 'https://httpbin.org/',
# 'https://httpbin.org/get?a=5',
# 'https://httpbin.org/get?foo=bar'
# )
# )
# cc
# (res <- cc$get())
# res[[1]]
# res[[1]]$url
# res[[1]]$success()
# res[[1]]$status_http()
# res[[1]]$response_headers
# res[[1]]$method
# res[[1]]$content
# res[[1]]$parse("UTF-8")
#
# lapply(res, function(z) z$parse("UTF-8"))
## ---------------------------------------------
Run the code above in your browser using DataLab