# NOT RUN {
# If file size is known, you get a progress bar:
x <- GET("http://courses.had.co.nz/12-oscon/slides.zip", progress())
# Otherwise you get the number of bytes downloaded:
x <- GET("http://httpbin.org/drip?numbytes=4000&duration=3", progress())
# }
Run the code above in your browser using DataLab