# NOT RUN {
## Try a download at most 5 times
afun <- async(function() {
async_retry(
function() http_get("https://eu.httpbin.org"),
times = 5
)$then(function(x) x$status_code)
})
synchronise(afun())
# }
Run the code above in your browser using DataLab