# 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