## -----------------------------------------------------------------------------
library(httpcache)

## ---- results='hide', echo=FALSE, message=FALSE-----------------------------------------------------------------------
options(width=120)

## ---------------------------------------------------------------------------------------------------------------------
system.time(a <- GET("https://httpbin.org/get"))
system.time(b <- GET("https://httpbin.org/get"))

## ---------------------------------------------------------------------------------------------------------------------
identical(a, b)

## ---------------------------------------------------------------------------------------------------------------------
clearCache()
startLog()
a <- GET("http://httpbin.org/get")
b <- GET("http://httpbin.org/get")

## ---------------------------------------------------------------------------------------------------------------------
library(httptest)