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)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.