## Not run: ------------------------------------
# (x <- Response$new())
#
# x$set_url("https://httpbin.org/get")
# x
#
# x$set_request_headers(list('Content-Type' = "application/json"))
# x
# x$request_headers
#
# x$set_response_headers(list('Host' = "httpbin.org"))
# x
# x$response_headers
#
# x$set_status(404)
# x
# x$get_status()
#
# x$set_body("hello world")
# x
# x$get_body()
#
# x$set_exception("exception")
# x
# x$get_exception()
## ---------------------------------------------
Run the code above in your browser using DataLab