## 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()
#
# # Create an AsyncVaried object
# out <- AsyncVaried$new(req1, req2)
#
# # before you make requests, the methods return empty objects
# out$status()
# out$status_code()
# out$content()
# out$times()
# out$parse()
# out$responses()
#
# # make requests
# out$request()
#
# # access various parts
# ## http status objects
# out$status()
# ## status codes
# out$status_code()
# ## content (raw data)
# out$content()
# ## times
# out$times()
# ## parsed content
# out$parse()
# ## response objects
# 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