# NOT RUN {
http_status(100)
http_status(404)
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
# }
# NOT RUN {
http_status(GET("http://httpbin.org/status/320"))
# }
Run the code above in your browser using DataLab