http_status(100)
http_status(404)
if (FALSE) {
x <- GET("http://httpbin.org/status/200")
http_status(x)
http_status(GET("http://httpbin.org/status/300"))
http_status(GET("http://httpbin.org/status/301"))
http_status(GET("http://httpbin.org/status/404"))
# errors out on unknown status
http_status(GET("http://httpbin.org/status/320"))
}
Run the code above in your browser using DataLab