# NOT RUN {
## Create a downloader that retries five times
http_get_5 <- async_retryable(http_get, times = 5)
ret <- synchronise(
http_get_5("https://eu.httpbin.org/get?q=1")$
then(function(x) rawToChar(x$content))
)
cat(ret)
# }
Run the code above in your browser using DataCamp Workspace