# NOT RUN {
tmp <- tempfile()
r1 <- GET("https://www.google.com", write_disk(tmp))
readLines(tmp)
# The default
r2 <- GET("https://www.google.com", write_memory())
# Save a very large file
# }
# NOT RUN {
GET("http://www2.census.gov/acs2011_5yr/pums/csv_pus.zip",
write_disk("csv_pus.zip"), progress())
# }
Run the code above in your browser using DataLab