Commit 75ff48d1 authored by David Watkins's avatar David Watkins
Browse files

on the plane

parent 83d2541a
......@@ -122,6 +122,8 @@ importNGWMN_wml2 <- function(input, asDateTime=FALSE, tz=""){
#bandaid to work with only single site calls
#TODO: need better solution when bbox is added
#use number of children of right parent node? ie like xmlSize in XML
siteDesc <- xml_text(xml_find_all(returnedDoc, ".//gml:description"))
if(length(siteDesc) == 0){
siteDesc <- NA
......
......@@ -26,9 +26,11 @@
#' }
#' @export
#' @importFrom XML xmlTreeParse
#' @importFrom XML xmlRoot
#' @importFrom XML xpathApply
#' @importFrom XML xmlSize
#' @importFrom xml2 xml_root
#' @importFrom xml2 xml_find_all
#'
#' @examples
#' \dontrun{
#' siteListPhos <- whatNWISsites(stateCd="OH",parameterCd="00665")
......@@ -46,7 +48,7 @@ whatNWISsites <- function(...){
rawData <- getWebServiceData(urlCall, encoding='gzip')
doc <- xmlRoot(rawData)
doc <- xml_root(rawData)
numChunks <- xmlSize(doc)
for(i in 1:numChunks){
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