Commit 8c8314fa authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Merge pull request #197 from ldecicco-USGS/master

Bug fix
parents 5211c43f 8a4f6f44
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.5.2 Version: 2.5.3
Date: 2016-03-04 Date: 2016-03-04
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"),
...@@ -28,10 +28,10 @@ Depends: ...@@ -28,10 +28,10 @@ Depends:
R (>= 3.0) R (>= 3.0)
Imports: Imports:
XML, XML,
httr, httr (>= 1.0.0),
curl, curl,
reshape2, reshape2,
lubridate, lubridate (>= 1.5.0),
stats, stats,
utils, utils,
dplyr, dplyr,
......
...@@ -46,9 +46,7 @@ whatNWISsites <- function(...){ ...@@ -46,9 +46,7 @@ whatNWISsites <- function(...){
rawData <- getWebServiceData(urlCall, encoding='gzip') rawData <- getWebServiceData(urlCall, encoding='gzip')
doc <- xmlRoot(rawData)
doc <- xmlTreeParse(rawData, getDTD = FALSE, useInternalNodes = TRUE)
doc <- xmlRoot(doc)
numChunks <- xmlSize(doc) numChunks <- xmlSize(doc)
for(i in 1:numChunks){ for(i in 1:numChunks){
chunk <- doc[[1]] chunk <- doc[[1]]
......
Supports Markdown
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