# NOT RUN {
## Check that the contents of two URLs are the same
afun <- async(function() {
u1 <- http_get("https://eu.httpbin.org")
u2 <- http_get("https://eu.httpbin.org/get")
when_all(u1, u2)$
then(function(x) identical(x[[1]]$content, x[[2]]$content))
})
synchronise(afun())
# }
Run the code above in your browser using DataLab