Examples for 'crul::hooks'

### ** Examples

## Not run: 
##D # hooks on the request
##D fun_req <- function(request) {
##D   cat(paste0("Requesting: ", request$url$url), sep = "\n")
##D }
##D (x <- HttpClient$new(url = "https://hb.opencpu.org",
##D   hooks = list(request = fun_req)))
##D x$hooks
##D x$hooks$request
##D r1 <- x$get('get')
##D 
##D captured_req <- list()
##D fun_req2 <- function(request) {
##D   cat("Capturing Request", sep = "\n")
##D   captured_req <<- request
##D }
##D (x <- HttpClient$new(url = "https://hb.opencpu.org",
##D   hooks = list(request = fun_req2)))
##D x$hooks
##D x$hooks$request
##D r1 <- x$get('get')
##D captured_req
##D 
##D 
##D 
##D # hooks on the response
##D fun_resp <- function(response) {
##D   cat(paste0("status_code: ", response$status_code), sep = "\n")
##D }
##D (x <- HttpClient$new(url = "https://hb.opencpu.org",
##D   hooks = list(response = fun_resp)))
##D x$url
##D x$hooks
##D r1 <- x$get('get')
##D 
##D # both
##D (x <- HttpClient$new(url = "https://hb.opencpu.org",
##D   hooks = list(request = fun_req, response = fun_resp)))
##D x$get("get")
## End(Not run)