Extract headers from a response — resp

resp_headers() retrieves a list of all headers.
resp_header() retrieves a single header.
resp_header_exists() checks if a header is present.

Usage

resp_headers(resp, filter = NULL)

resp_header(resp, header)

resp_header_exists(resp, header)

Arguments

resp: An HTTP response object, as created by req_perform().
filter: A regular expression used to filter the header names. NULL, the default, returns all headers.
header: Header name (case insensitive)

Value

resp_headers() returns a list.
resp_header() returns a string if the header exists and NULL otherwise.
resp_header_exists() returns TRUE or FALSE.

Examples

resp <- request("https://httr2.r-lib.org") %>% req_perform()
resp %>% resp_headers()
#> <httr2_headers>
#> server: GitHub.com
#> content-type: text/html; charset=utf-8
#> last-modified: Thu, 23 Jun 2022 22:07:15 GMT
#> access-control-allow-origin: *
#> etag: W/"62b4e413-49b0"
#> expires: Thu, 23 Jun 2022 22:22:49 GMT
#> cache-control: max-age=600
#> content-encoding: gzip
#> x-proxy-cache: MISS
#> x-github-request-id: D8BE:343B:516991:800697:62B4E561
#> accept-ranges: bytes
#> date: Thu, 23 Jun 2022 22:44:21 GMT
#> via: 1.1 varnish
#> age: 16
#> x-served-by: cache-bur-kbur8200124-BUR
#> x-cache: HIT
#> x-cache-hits: 4
#> x-timer: S1656024262.615316,VS0,VE0
#> vary: Accept-Encoding
#> x-fastly-request-id: 54dca5e3fa9adfd174b7c409745a7c15dc121dc2
#> content-length: 5222
resp %>% resp_headers("x-")
#> <httr2_headers>
#> x-proxy-cache: MISS
#> x-github-request-id: D8BE:343B:516991:800697:62B4E561
#> x-served-by: cache-bur-kbur8200124-BUR
#> x-cache: HIT
#> x-cache-hits: 4
#> x-timer: S1656024262.615316,VS0,VE0
#> x-fastly-request-id: 54dca5e3fa9adfd174b7c409745a7c15dc121dc2

resp %>% resp_header_exists("server")
#> [1] TRUE
resp %>% resp_header("server")
#> [1] "GitHub.com"
# Headers are case insensitive
resp %>% resp_header("SERVER")
#> [1] "GitHub.com"

# Returns NULL if header doesn't exist
resp %>% resp_header("this-header-doesnt-exist")
#> NULL