# NOT RUN {
## Filter out non-working URLs
afun <- async(function(urls) {
test_url <- async_sequence(
http_head, function(x) identical(x$status_code, 200L))
async_filter(urls, test_url)
})
urls <- c("https://eu.httpbin.org/get",
"https://eu.httpbin.org/status/404")
synchronise(afun(urls))
# }
Run the code above in your browser using DataCamp Workspace