From c55d5cf9488b2ddbed738a7dfdd577eba0b079c4 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Thu, 11 Sep 2014 10:58:17 -0500
Subject: [PATCH] Changing to official WaterML2 source. Still debugging.

---
 R/getWaterML2Data.r | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/R/getWaterML2Data.r b/R/getWaterML2Data.r
index bd473da6..45137c60 100644
--- a/R/getWaterML2Data.r
+++ b/R/getWaterML2Data.r
@@ -8,12 +8,13 @@
 #' @import XML
 #' @importFrom plyr rbind.fill.matrix
 #' @examples
-#' URL <- "http://webvastage6.er.usgs.gov/ogc-swie/wml2/dv/sos?request=GetObservation&featureID=435601087432701&observedProperty=00045&beginPosition=2012-01-01&offering=Sum"
-#' dataReturned3 <- getWaterML2Data(URL)
+#' URL <- "http://waterservices.usgs.gov/nwis/dv/?format=waterml,2.0&sites=01646500&startDT=2014-09-01&endDT=2014-09-08&statCd=00003&parameterCd=00060"
+#' \dontrun{dataReturned3 <- getWaterML2Data(URL)}
 getWaterML2Data <- function(obs_url){
   
+  h <- basicHeaderGatherer()
   doc = tryCatch({
-    returnedDoc <- getURI(obs_url, headerfunction = h$update)
+    returnedDoc <- getURL(obs_url, headerfunction = h$update)
     if(h$value()["Content-Type"] == "text/xml;charset=UTF-8"){
       xmlTreeParse(returnedDoc, getDTD = FALSE, useInternalNodes = TRUE)
     } else {
-- 
GitLab