Examples for 'crul::mock'

### ** Examples

## Not run: 
##D 
##D if (interactive()) {
##D   library(webmockr)
##D   library(crul)
##D 
##D   URL <- "https://hb.opencpu.org"
##D 
##D   # turn on mocking
##D   crul::mock()
##D 
##D   # stub a request
##D   stub_request("get", file.path(URL, "get"))
##D 
##D   # create an HTTP client
##D   (x <- HttpClient$new(url = URL))
##D 
##D   # make a request - matches stub - no real request made
##D   x$get('get')
##D 
##D   # allow net connect
##D   webmockr::webmockr_allow_net_connect()
##D   x$get('get', query = list(foo = "bar"))
##D   webmockr::webmockr_disable_net_connect()
##D   x$get('get', query = list(foo = "bar"))
##D 
##D   # With Async
##D   urls <- c(
##D    file.path(URL, "get"),
##D    file.path(URL, "anything"),
##D    file.path(URL, "encoding/utf8")
##D   )
##D   
##D   for (u in urls) {
##D     webmockr::stub_request("get", u) %>% 
##D       webmockr::to_return(body = list(mocked = TRUE))
##D   }
##D 
##D   async_con <- Async$new(urls = urls)
##D   async_resp <- async_con$get()
##D   lapply(async_resp, \(x) x$parse("UTF-8"))
##D }
##D 
## End(Not run)