0byt3m1n1
Path:
C:
/
Program Files
/
R
/
R-4.2.2
/
library
/
httr
/
demo
/
[
Home
]
File: connection-sharing.r
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 ))