## Not run:
# x <- HttpResponse$new(method = "get", url = "https://httpbin.org")
# x$url
# x$method
#
# x <- HttpClient$new(url = 'http://sushi.com')
# (res <- x$get('/nigiri/sake.json'))
# res$parse()
# res$status_code
# res$status_http()
# res$status_http()$status_code
# res$status_http()$message
# res$status_http()$explanation
# res$raise_for_status()
# res$success()
# ## End(Not run)
Run the code above in your browser using DataLab