## Not run: ------------------------------------
# # basic stubbing
# stub_request("get", "https://httpbin.org/get")
# stub_request("post", "https://httpbin.org/post")
#
# # list stubs
# stub_registry()
#
# # add header
# stub_request("get", "https://httpbin.org/get") %>%
# wi_th(headers = list('User-Agent' = 'R'))
#
# # add expectation with to_return
# stub_request("get", "https://httpbin.org/get") %>%
# wi_th(
# query = list(hello = "world"),
# headers = list('User-Agent' = 'R')) %>%
# to_return(status = 200, body = "stuff", headers = list(a = 5))
#
# # list stubs again
# stub_registry()
#
# # regex
# stub_request("get", uri_regex = ".+ample\\..")
#
# # clear all stubs
# stub_registry_clear()
## ---------------------------------------------
Run the code above in your browser using DataLab