From 7625e2cd16232634148619abde67ec4da24bbce4 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Fri, 30 Jan 2015 11:10:43 -0600
Subject: [PATCH] Added gzip encoding, NWIS stuff seems much snappier!
---
DESCRIPTION | 2 +-
R/getWebServiceData.R | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index d4d69d12..837afddc 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
Package: dataRetrieval
Type: Package
Title: Retrieval Functions for USGS and EPA Hydrologic and Water Quality Data
-Version: 2.1.1
+Version: 2.1.2
Date: 2015-02-01
Authors@R: c( person("Robert", "Hirsch", role = c("aut"),
email = "rhirsch@usgs.gov"),
diff --git a/R/getWebServiceData.R b/R/getWebServiceData.R
index 5405b4b9..a4e57377 100644
--- a/R/getWebServiceData.R
+++ b/R/getWebServiceData.R
@@ -20,7 +20,7 @@
getWebServiceData <- function(obs_url){
possibleError <- tryCatch({
h <- basicHeaderGatherer()
- returnedDoc <- getURI(obs_url, headerfunction = h$update)
+ returnedDoc <- getURI(obs_url, headerfunction = h$update, encoding='gzip')
}, warning = function(w) {
warning(w, "with url:", obs_url)
}, error = function(e) {
--
GitLab