Skip to content
Snippets Groups Projects
Commit 7625e2cd authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Added gzip encoding, NWIS stuff seems much snappier!

parent 99b64024
No related branches found
No related tags found
1 merge request!81New testing
Hide whitespace changes
Inline Side-by-side
DESCRIPTION
+ 1
− 1
View file @ 7625e2cd
Package: dataRetrieval Package: dataRetrieval
Type: Package Type: Package
Title: Retrieval Functions for USGS and EPA Hydrologic and Water Quality Data Title: Retrieval Functions for USGS and EPA Hydrologic and Water Quality Data
Version: 2.1.1 Version: 2.1.2
Date: 2015-02-01 Date: 2015-02-01
Authors@R: c( person("Robert", "Hirsch", role = c("aut"), Authors@R: c( person("Robert", "Hirsch", role = c("aut"),
email = "rhirsch@usgs.gov"), email = "rhirsch@usgs.gov"),
......
R/getWebServiceData.R
+ 1
− 1
View file @ 7625e2cd
...@@ -20,7 +20,7 @@ ...@@ -20,7 +20,7 @@
getWebServiceData <- function(obs_url){ getWebServiceData <- function(obs_url){
possibleError <- tryCatch({ possibleError <- tryCatch({
h <- basicHeaderGatherer() h <- basicHeaderGatherer()
returnedDoc <- getURI(obs_url, headerfunction = h$update) returnedDoc <- getURI(obs_url, headerfunction = h$update, encoding='gzip')
}, warning = function(w) { }, warning = function(w) {
warning(w, "with url:", obs_url) warning(w, "with url:", obs_url)
}, error = function(e) { }, error = function(e) {
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment