R Academy · Lekcja

Wysyłanie żądań HTTP za pomocą httr2

Wysyłaj żądania GET i POST, obsługuj nagłówki oraz przetwarzaj odpowiedzi.

Wysyłanie żądań HTTP za pomocą httr2 to bezpłatna lekcja R Academy na CoddyKit. To lekcja 2 z 4. Możesz przeczytać całą lekcję poniżej za darmo — a potem ćwiczyć ją interaktywnie w przeglądarce z wbudowanym edytorem kodu i tutorem AI dostępnym 24/7. To część ścieżki edukacyjnej R Academy, a Twój postęp synchronizuje się między webem a aplikacją CoddyKit. Kurs R Academy zawiera 4 lekcji w sumie.

Wprowadzenie do httr2

httr2 to nowoczesny pakiet R do obsługi żądań HTTP, będący następcą pakietu httr. Wykorzystuje wzorzec budowniczego oparty na potoku: rozpocznij od request(url), dodaj modyfikatory, a następnie wykonaj żądanie za pomocą req_perform().

library(httr2)

# Basic GET request pattern:
# request(url)     -> create request object
# |> req_*()       -> modify request
# |> req_perform() -> send request
# |> resp_*()      -> extract from response

# Minimal example (requires internet):
# resp <- request('https://httpbin.org/get') |>
#   req_perform()
# resp_status(resp)     # 200
# resp_body_json(resp)  # parsed JSON body

cat('httr2 follows: build -> perform -> extract')

request() i req_perform()

request(url) tworzy obiekt żądania. req_perform() wykonuje żądanie i zwraca obiekt odpowiedzi. Odpowiedź można następnie analizować za pomocą funkcji resp_*.

library(httr2)

# Build and send a GET request
# resp <- request('https://httpbin.org/get') |>
#   req_perform()

# Inspect response
# resp_status(resp)          # 200
# resp_status_desc(resp)     # 'OK'
# resp_headers(resp)         # list of headers
# resp_header(resp, 'content-type')  # single header
# resp_body_string(resp)     # raw body as string
# resp_body_json(resp)       # parsed JSON
# resp_body_raw(resp)        # raw bytes

cat('Response hierarchy:')
cat('status -> headers -> body')

req_headers(): niestandardowe nagłówki

req_headers() dodaje nagłówki HTTP lub zastępuje ich wartości. Funkcja służy do przekazywania tokenów uwierzytelniających, określania typu treści, ustawiania nagłówków wersji API i dodawania niestandardowych metadanych żądania.

library(httr2)

# Add custom headers
# resp <- request('https://api.example.com/data') |>
#   req_headers(
#     'Authorization' = 'Bearer my_token',
#     'X-API-Version' = '2',
#     'Accept'        = 'application/json'
#   ) |>
#   req_perform()

# Common headers:
# 'Content-Type' = 'application/json' for POST with JSON body
# 'Accept'       = 'application/json' to request JSON response
# 'User-Agent'   = 'MyApp/1.0' for polite identification
# 'X-API-Key'    = key  for key-based auth

cat('req_headers() sets HTTP request headers')

req_url_query(): parametry zapytania

req_url_query() bezpiecznie dodaje parametry zapytania do adresu URL (kodując znaki specjalne). Jest to rozwiązanie czytelniejsze niż ręczne łączenie ciągów za pomocą paste0().

library(httr2)

# Add query parameters
# resp <- request('https://api.example.com/search') |>
#   req_url_query(
#     q      = 'R programming',
#     page   = 1,
#     size   = 20,
#     sort   = 'relevance'
#   ) |>
#   req_perform()
# Resulting URL:
# https://api.example.com/search?q=R+programming&page=1&size=20&sort=relevance

# Inspect the URL without performing:
req <- request('https://api.example.com/search') |>
  req_url_query(q = 'hello world', page = 2)
req$url
# 'https://api.example.com/search?q=hello+world&page=2'

Żądania POST z req_body_json()

Dane JSON można wysłać w żądaniu POST za pomocą req_body_json(). Funkcja automatycznie ustawia nagłówek Content-Type: application/json i serializuje listę R do formatu JSON.

library(httr2)

# POST request with JSON body
# resp <- request('https://api.example.com/users') |>
#   req_method('POST') |>
#   req_body_json(list(
#     name  = 'Alice',
#     email = 'alice@example.com',
#     role  = 'admin'
#   )) |>
#   req_perform()

# resp_status(resp)     # 201 Created (if success)
# resp_body_json(resp)  # returned user object

# Other body methods:
# req_body_form(...)  -> application/x-www-form-urlencoded
# req_body_raw(bytes) -> raw bytes
# req_body_file(path) -> file upload
cat('req_body_json() handles Content-Type automatically')

resp_body_json(): analizowanie odpowiedzi

resp_body_json() analizuje treść odpowiedzi jako JSON i konwertuje ją na listę R. Użyj simplifyVector=TRUE (wartość domyślna), aby automatycznie konwertować tablice JSON na wektory R, a obiekty na nazwane listy.

library(httr2)
library(jsonlite)

# Simulated API response handling
# resp <- request('https://api.github.com/users/hadley') |>
#   req_perform()
# user <- resp_body_json(resp)
# user$name    # 'Hadley Wickham'
# user$public_repos  # number of repos
# user$followers     # follower count

# For arrays (simplifyVector=TRUE converts to data frame):
# resp <- request('https://api.github.com/users/hadley/repos') |>
#   req_perform()
# repos <- resp_body_json(resp, simplifyVector = TRUE)
# repos$name  # vector of repo names

cat('resp_body_json() with simplifyVector=TRUE -> data frame')

resp_status() i obsługa błędów

resp_check_status() automatycznie zgłasza błąd dla odpowiedzi 4xx/5xx. Bez tej funkcji httr2 nie zgłasza błędu dla nieprawidłowych kodów stanu — należy sprawdzić je jawnie lub wywołać resp_check_status().

library(httr2)

# Pattern: check status after perform
# resp <- request('https://api.example.com/data') |>
#   req_perform() |>
#   resp_check_status()  # errors on 4xx/5xx

# Manual status checks:
# status <- resp_status(resp)
# if (status == 200) { ... }
# if (status == 404) { stop('Not found') }
# if (status == 401) { stop('Unauthorized') }
# if (status == 429) { Sys.sleep(60); retry() }

# HTTP status codes:
# 200 OK, 201 Created, 204 No Content
# 400 Bad Request, 401 Unauthorized, 403 Forbidden
# 404 Not Found, 429 Rate Limited
# 500 Server Error, 503 Service Unavailable
cat('Always check response status codes')

req_retry(): automatyczne ponawianie prób

req_retry() automatycznie ponawia nieudane żądania. Określ max_tries i opcjonalnie is_transient (funkcję rozpoznającą błędy, dla których warto ponowić próbę, takie jak 429 lub 503). Jest to niezbędne do tworzenia niezawodnych klientów API.

library(httr2)

# Automatic retry with exponential backoff
# resp <- request('https://api.example.com/data') |>
#   req_retry(
#     max_tries = 3,
#     is_transient = function(resp) {
#       resp_status(resp) %in% c(429, 500, 503)
#     },
#     backoff = ~ 2^.x  # exponential: 2, 4, 8 seconds
#   ) |>
#   req_perform()

# Default retry behavior:
# - Retries on 429 Too Many Requests automatically
# - Uses Retry-After header if present
# - max_tries = 1 by default (no retry)

# Simple retry:
# req_retry(max_tries = 3)  # retry up to 3 times total
cat('req_retry() adds resilience to API calls')

req_throttle(): ograniczanie częstotliwości

req_throttle(rate) gwarantuje, że nie przekroczysz maksymalnej częstotliwości żądań. Przekaż rate = n/period (na przykład 10 żądań na minutę). httr2 automatycznie robi przerwy między żądaniami, gdy jest to konieczne.

library(httr2)

# Throttle to at most 10 requests per minute
# urls <- paste0('https://api.example.com/items/', 1:50)
# resps <- lapply(urls, function(url) {
#   request(url) |>
#     req_throttle(rate = 10 / 60) |>  # 10/min
#     req_perform()
# })

# Alternative: use req_perform_parallel() for parallel
# with throttle built in:
# reqs <- lapply(urls, \(u) request(u))
# resps <- req_perform_parallel(
#   reqs,
#   on_error = 'continue',  # skip failures
#   progress = TRUE
# )

cat('req_throttle(rate = 10/60) = 10 req/min')

Pomocnicze funkcje uwierzytelniania

httr2 udostępnia wbudowane funkcje pomocnicze do uwierzytelniania: req_auth_basic(user, pass) dla uwierzytelniania Basic, req_auth_bearer_token(token) dla tokenów Bearer oraz req_oauth_*() dla przepływów OAuth.

library(httr2)

# Bearer token (most common for modern APIs)
# resp <- request('https://api.example.com/data') |>
#   req_auth_bearer_token('my_api_token_here') |>
#   req_perform()

# Basic authentication
# resp <- request('https://api.example.com/data') |>
#   req_auth_basic('username', 'password') |>
#   req_perform()

# Store tokens securely in environment variables
# token <- Sys.getenv('MY_API_TOKEN')
# resp <- request('https://api.example.com') |>
#   req_auth_bearer_token(token) |>
#   req_perform()

cat('Never hardcode tokens in scripts!')
cat('Use Sys.getenv() or the keyring package')

Uruchomienie testowe z req_dry_run()

req_dry_run() pokazuje dokładnie, jakie żądanie zostałoby wysłane (metodę, adres URL, nagłówki i treść), bez faktycznego wysyłania. Jest niezbędna do debugowania złożonych żądań przed wysłaniem ich do rzeczywistego interfejsu API.

library(httr2)

# Inspect the request without sending it
req <- request('https://api.example.com/users') |>
  req_method('POST') |>
  req_headers(
    'X-API-Version' = '2',
    'Accept'        = 'application/json'
  ) |>
  req_auth_bearer_token('my_token') |>
  req_body_json(list(name = 'Alice', role = 'admin')) |>
  req_url_query(notify = 'true')

# Show request details without sending
req_dry_run(req)
# POST /users?notify=true HTTP/1.1
# Host: api.example.com
# Authorization: Bearer my_token
# Content-Type: application/json
# ...

Szybki test

Sprawdź, czy rozumie Pan/Pani wzorzec budowania żądań w httr2.

Podsumowanie: żądania HTTP z httr2

Najważniejsze informacje: httr2 korzysta z budowniczego opartego na potoku: request(url) |> req_*() |> req_perform(). Dodawaj nagłówki za pomocą req_headers(), parametry zapytania za pomocą req_url_query(), a treść JSON za pomocą req_body_json(). Uwierzytelniaj się za pomocą req_auth_bearer_token(). Zawsze sprawdzaj stan odpowiedzi za pomocą resp_check_status(). Zwiększaj odporność klienta dzięki req_retry() i ograniczaj częstotliwość za pomocą req_throttle(). Debuguj za pomocą req_dry_run().

library(httr2)

# Complete httr2 request pattern:
# resp <- request('https://api.example.com/endpoint') |>
#   req_headers('Accept' = 'application/json') |>
#   req_url_query(param1 = 'value', page = 1) |>
#   req_auth_bearer_token(Sys.getenv('API_TOKEN')) |>
#   req_retry(max_tries = 3) |>
#   req_throttle(rate = 10/60) |>
#   req_perform() |>
#   resp_check_status()

# Extract data:
# data <- resp_body_json(resp, simplifyVector = TRUE)

cat('build -> authenticate -> perform -> check -> extract')

Często zadawane pytania

Czy lekcja „Wysyłanie żądań HTTP za pomocą httr2” jest bezpłatna?

Tak — pełny tekst „Wysyłanie żądań HTTP za pomocą httr2” jest dostępny za darmo tutaj w sieci. Aby ćwiczyć ją interaktywnie (wbudowany edytor kodu i tutor AI dostępny 24/7) i odblokować resztę kursu R Academy, przejdź na CoddyKit PRO. Kurs R Academy zawiera 4 lekcji w sumie.

Co nauczysz się w „Wysyłanie żądań HTTP za pomocą httr2”?

Wysyłaj żądania GET i POST, obsługuj nagłówki oraz przetwarzaj odpowiedzi. Ćwiczysz R Academy z praktycznym kodem, który uruchamiasz bezpośrednio w przeglądarce, a tutor AI dostępny 24/7 odpowiada na Twoje pytania podczas pracy nad lekcją.

Czy potrzebuję doświadczenia, aby zacząć R Academy?

Nie wymagamy żadnego doświadczenia. R Academy w CoddyKit jest strukturyzowany dla początkujących i zaawansowanych użytkowników, więc możesz zacząć tutaj lub od początku i uczyć się w swoim tempie. To lekcja 2 z 4.

Ile czasu zajmuje lekcja „Wysyłanie żądań HTTP za pomocą httr2”?

Większość lekcji CoddyKit trwa około 5–10 minut. Każda lekcja to mały, interaktywny krok, dzięki czemu robisz systematyczne postępy i zawsze wracasz dokładnie do tego samego miejsca — na webie i w aplikacji.

Czy mogę pisać i uruchamiać kod w tej lekcji R Academy?

Tak. Każda lekcja R Academy zawiera wbudowany edytor kodu, więc piszesz i uruchamiasz prawdziwy kod bezpośrednio w przeglądarce i od razu otrzymujesz sprzężenie zwrotne od AI — bez konfiguracji na komputerze.

Wszystkie lekcje w tym kursie

← Powrót do R Academy