diff --git a/R/importWaterML1.r b/R/importWaterML1.r index 2e4e72c9a73a14d7be7bb4ac29afd9606ef7c24e..7fd6fc5637511299622b9a7bb7b730ef4750722a 100644 --- a/R/importWaterML1.r +++ b/R/importWaterML1.r @@ -86,7 +86,9 @@ #' inactiveAndAcitive <- importWaterML1(inactiveAndAcitive) importWaterML1 <- function(obs_url,asDateTime=FALSE, tz=""){ - if(url.exists(obs_url)){ + if(file.exists(obs_url)){ + doc <- xmlTreeParse(obs_url, getDTD = FALSE, useInternalNodes = TRUE) + } else { doc = tryCatch({ h <- basicHeaderGatherer() returnedDoc <- getURI(obs_url, headerfunction = h$update) @@ -106,8 +108,6 @@ importWaterML1 <- function(obs_url,asDateTime=FALSE, tz=""){ message(e) return(NA) }) - } else { - doc <- xmlTreeParse(obs_url, getDTD = FALSE, useInternalNodes = TRUE) } if(tz != ""){