# NOT RUN {
# 200
ok("https://google.com")
# 200
ok("https://httpbin.org/status/200")
# 404
ok("https://httpbin.org/status/404")
# doesn't exist
ok("https://stuff.bar")
# doesn't exist
ok("stuff")
# with HttpClient
z <- crul::HttpClient$new("https://httpbin.org/status/404",
opts = list(verbose = TRUE))
ok(z)
# }
Run the code above in your browser using DataLab