1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/response_class.R
\docType{data}
\name{VcrResponse}
\alias{VcrResponse}
\title{The response of an HTTPInteraction}
\arguments{
\item{status}{the status of the response}
\item{headers}{the response headers}
\item{body}{the response body}
\item{http_version}{the HTTP version}
\item{adapter_metadata}{Additional metadata used by a specific VCR adapter}
}
\description{
The response of an HTTPInteraction
}
\details{
\strong{Methods}
\describe{
\item{\code{to_hash()}}{
Create a hash.
}
\item{\code{from_hash(hash)}}{
Get a hash back to an R list.
}
\item{\code{update_content_length_header()}}{
Updates the Content-Length response header so that it is accurate
for the response body
}
\item{\code{get_header(key)}}{
get a header by key (i.e., name)
- key: header name to get
}
\item{\code{edit_header(key, value = NULL)}}{
edit header
- key: header name to edit
- value: new value to assign
}
\item{\code{delete_header(key)}}{
delete a header
- key: header name to delete
}
\item{\code{content_encoding()}}{
get content encoding
}
\item{\code{is_compressed()}}{
Checks if the type of encoding is one of "gzip" or "deflate"
}
}
}
\examples{
\dontrun{
vcr_configure(dir = tempdir())
url <- "https://google.com"
(cli <- crul::HttpClient$new(url = url))
(res <- cli$get("get", query = list(q = "stuff")))
(x <- VcrResponse$new(res$status_http(), res$response_headers,
res$parse("UTF-8"), res$response_headers$status))
x$body
x$status
x$headers
x$http_version
x$to_hash()
x$from_hash(x$to_hash())
# update content length header
## example 1
### content-length header present, but no change
url <- "https://fishbase.ropensci.org"
cli <- crul::HttpClient$new(url = url, headers = list(`Accept-Encoding` = '*'))
res <- cli$get("species/34")
x <- VcrResponse$new(res$status_http(), res$response_headers,
res$parse("UTF-8"), res$response_headers$status)
x$headers$`content-length`
x$update_content_length_header()
x$headers$`content-length`
## example 2
### no content-length header
url <- "https://google.com"
cli <- crul::HttpClient$new(url = url)
res <- cli$get()
x <- VcrResponse$new(res$status_http(), res$response_headers,
rawToChar(res$content), res$response_headers$status)
x$headers$`content-length`
x$update_content_length_header() # no change, b/c header doesn't exist
# check if body is compressed
url <- "https://fishbase.ropensci.org"
(cli <- crul::HttpClient$new(url = url))
(res <- cli$get("species/3"))
res$response_headers
(x <- VcrResponse$new(res$status_http(), res$response_headers,
res$parse("UTF-8"), res$response_headers$status))
x$content_encoding()
x$is_compressed()
}
}
\keyword{internal}
|
