## ---- echo = FALSE-------------------------------------------------------
library(httr)
knitr::opts_chunk$set(comment = "#>", collapse = TRUE)
## ------------------------------------------------------------------------
library(httr)
r <- GET("http://httpbin.org/get")
## ------------------------------------------------------------------------
r
## ------------------------------------------------------------------------
status_code(r)
headers(r)
str(content(r))
## ------------------------------------------------------------------------
r <- GET("http://httpbin.org/get")
# Get an informative description:
http_status(r)
# Or just access the raw code:
r$status_code
## ------------------------------------------------------------------------
warn_for_status(r)
stop_for_status(r)
## ------------------------------------------------------------------------
r <- GET("http://httpbin.org/get")
content(r, "text")
## ---- eval = FALSE-------------------------------------------------------
# content(r, "text", encoding = "ISO-8859-1")
## ------------------------------------------------------------------------
content(r, "raw")
## ---- eval = FALSE-------------------------------------------------------
# bin <- content(r, "raw")
# writeBin(bin, "myfile.txt")
## ------------------------------------------------------------------------
# JSON automatically parsed into named list
str(content(r, "parsed"))
## ------------------------------------------------------------------------
headers(r)
## ------------------------------------------------------------------------
headers(r)$date
headers(r)$DATE
## ------------------------------------------------------------------------
r <- GET("http://httpbin.org/cookies/set", query = list(a = 1))
cookies(r)
## ------------------------------------------------------------------------
r <- GET("http://httpbin.org/cookies/set", query = list(b = 1))
cookies(r)
## ------------------------------------------------------------------------
r <- GET("http://httpbin.org/get",
query = list(key1 = "value1", key2 = "value2")
)
content(r)$args
## ------------------------------------------------------------------------
r <- GET("http://httpbin.org/get",
query = list(key1 = "value 1", "key 2" = "value2", key2 = NULL))
content(r)$args
## ------------------------------------------------------------------------
r <- GET("http://httpbin.org/get", add_headers(Name = "Hadley"))
str(content(r)$headers)
## ------------------------------------------------------------------------
r <- GET("http://httpbin.org/cookies", set_cookies("MeWant" = "cookies"))
content(r)$cookies
## ------------------------------------------------------------------------
r <- POST("http://httpbin.org/post", body = list(a = 1, b = 2, c = 3))
## ------------------------------------------------------------------------
url <- "http://httpbin.org/post"
body <- list(a = 1, b = 2, c = 3)
# Form encoded
r <- POST(url, body = body, encode = "form")
# Multipart encoded
r <- POST(url, body = body, encode = "multipart")
# JSON encoded
r <- POST(url, body = body, encode = "json")
## ---- eval = FALSE-------------------------------------------------------
# POST(url, body = body, encode = "multipart", verbose()) # the default
# POST(url, body = body, encode = "form", verbose())
# POST(url, body = body, encode = "json", verbose())
## ---- eval = FALSE-------------------------------------------------------
# POST(url, body = upload_file("mypath.txt"))
# POST(url, body = list(x = upload_file("mypath.txt")))
## ------------------------------------------------------------------------
sessionInfo()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.