## Not run: ------------------------------------
# # pass in requests via ...
# req1 <- HttpRequest$new(
# url = "https://httpbin.org/get",
# opts = list(verbose = TRUE),
# headers = list(foo = "bar")
# )$get()
# req2 <- HttpRequest$new(url = "https://httpbin.org/post")$post()
# out <- AsyncVaried$new(req1, req2)
# out$request()
# out$status()
# out$status_code()
# out$content()
# out$times()
# out$parse()
# out$responses()
#
# # pass in requests in a list via .list param
# reqlist <- list(
# HttpRequest$new(url = "https://httpbin.org/get")$get(),
# HttpRequest$new(url = "https://httpbin.org/post")$post(),
# HttpRequest$new(url = "https://httpbin.org/put")$put(),
# HttpRequest$new(url = "https://httpbin.org/delete")$delete(),
# HttpRequest$new(url = "https://httpbin.org/get?g=5")$get(),
# HttpRequest$new(
# url = "https://httpbin.org/post")$post(body = list(y = 9)),
# HttpRequest$new(
# url = "https://httpbin.org/get")$get(query = list(hello = "world"))
# )
#
# out <- AsyncVaried$new(.list = reqlist)
# out$request()
# out$status()
# out$status_code()
# out$content()
# out$times()
# out$parse()
## ---------------------------------------------
Run the code above in your browser using DataLab