httr2.R
In httr2: Perform HTTP Requests and Process the Responses

## ----include = FALSE----------------------------------------------------------
has_pipe <- getRversion() >= "4.1.0"

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = has_pipe
)

## ----setup--------------------------------------------------------------------
library(httr2)

## -----------------------------------------------------------------------------
req <- request(example_url())
req

## -----------------------------------------------------------------------------
req |> req_dry_run()

## -----------------------------------------------------------------------------
port <- if (has_pipe) paste0("`", url_parse(example_url())$port, "`") else "e.g. `1234`"

## -----------------------------------------------------------------------------
req |>
  req_headers(
    Name = "Hadley", 
    `Shoe-Size` = "11", 
    Accept = "application/json"
  ) |> 
  req_dry_run()

## -----------------------------------------------------------------------------
req |>
  req_body_json(list(x = 1, y = "a")) |> 
  req_dry_run()

## -----------------------------------------------------------------------------
req |>
  req_body_form(x = "1", y = "a") |> 
  req_dry_run()

## -----------------------------------------------------------------------------
req |>
  req_body_multipart(x = "1", y = "a") |> 
  req_dry_run()

## -----------------------------------------------------------------------------
req <- request(example_url()) |> req_url_path("/json")
resp <- req |> req_perform()
resp

## -----------------------------------------------------------------------------
resp |> resp_raw()

## -----------------------------------------------------------------------------
resp |> resp_status()
resp |> resp_status_desc()

## -----------------------------------------------------------------------------
resp |> resp_headers()
resp |> resp_header("Content-Length")

## -----------------------------------------------------------------------------
resp |> resp_header("ConTEnT-LeNgTH")

## -----------------------------------------------------------------------------
resp |> resp_body_json() |> str()

## ----error = TRUE-------------------------------------------------------------
request(example_url()) |> 
  req_url_path("/status/404") |> 
  req_perform()

request(example_url()) |> 
  req_url_path("/status/500") |> 
  req_perform()