# NOT RUN {
check_url <- async_sequence(
http_head, function(x) identical(x$status_code, 200L))
synchronise(check_url("https://eu.httpbin.org/status/404"))
synchronise(check_url("https://eu.httpbin.org/status/200"))
# }
Run the code above in your browser using DataLab