packrat/lib/x86_64-apple-darwin15.6.0/3.6.0/httr/demo/connection-sharing.r

In adnaniazi/krauseNiazi2019Analyses: Reproducible analysis for tailfindr paper

test_server <- "http://had.co.nz"

# Create a new handle for every request - no connection sharing
rowMeans(replicate(
  20,
  GET(handle = handle(test_server), path = "index.html")$times
))

test_handle <- handle(test_server)
# Re use the same handle for multiple requests
rowMeans(replicate(
  20,
  GET(handle = test_handle, path = "index.html")$times
))

# With httr, handles are automatically pooled
rowMeans(replicate(
  20,
  GET(test_server, path = "index.html")$times
))