Open jeroen opened 2 years ago
Some quick tests. Maybe performance depends on IPv4 vs IPv6 ??
test <- function(url){ h <- curl::new_handle(noprogress=FALSE) curl::curl_fetch_memory(url, handle = h) } req1 <- test('https://r-universe.dev/speed') req2 <- test('https://ropensci.r-universe.dev/speed') req3 <- test('https://ropensci.r-universe.dev/bin/macosx/contrib/4.1/magick_2.7.3.9000.tgz') req4 <- test('https://ropensci.r-universe.dev/stats/checks') cat("req1: ", length(req1$content) / req1$times[['total']] / 1e6, "MB/s\n") cat("req2: ", length(req2$content) / req2$times[['total']] / 1e6, "MB/s\n") cat("req3: ", length(req3$content) / req3$times[['total']] / 1e6, "MB/s\n") cat("req4: ", length(req4$content) / req4$times[['total']] / 1e6, "MB/s\n")
Some quick tests. Maybe performance depends on IPv4 vs IPv6 ??