cap_speed <- config(max_recv_speed_large = 10000)
if (FALSE) {
# If file size is known, you get a progress bar:
x <- GET("http://httpbin.org/bytes/102400", progress(), cap_speed)
# Otherwise you get the number of bytes downloaded:
x <- GET("http://httpbin.org/stream-bytes/102400", progress(), cap_speed)
}
Run the code above in your browser using DataLab