Skip to content
Snippets Groups Projects
Commit f7750628 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Adding new check.

parent 4f7d4192
No related branches found
No related tags found
1 merge request!59Error handling.
Hide whitespace changes
Inline Side-by-side
R/readNWISunit.r
+ 1
− 0
View file @ f7750628
...@@ -287,6 +287,7 @@ readNWISmeas <- function (siteNumbers,startDate="",endDate="", tz=""){ ...@@ -287,6 +287,7 @@ readNWISmeas <- function (siteNumbers,startDate="",endDate="", tz=""){
#' data <- readNWISgwl(siteNumber, '','') #' data <- readNWISgwl(siteNumber, '','')
#' sites <- c("434400121275801", "375907091432201") #' sites <- c("434400121275801", "375907091432201")
#' data2 <- readNWISgwl(sites, '','') #' data2 <- readNWISgwl(sites, '','')
#' data3 <- readNWISgwl("420125073193001", '','')
readNWISgwl <- function (siteNumbers,startDate="",endDate=""){ readNWISgwl <- function (siteNumbers,startDate="",endDate=""){
url <- constructNWISURL(siteNumbers,NA,startDate,endDate,"gwlevels",format="wml1") url <- constructNWISURL(siteNumbers,NA,startDate,endDate,"gwlevels",format="wml1")
......
man/readNWISgwl.Rd
+ 1
− 0
View file @ f7750628
...@@ -55,6 +55,7 @@ siteNumber <- "434400121275801" ...@@ -55,6 +55,7 @@ siteNumber <- "434400121275801"
data <- readNWISgwl(siteNumber, '','') data <- readNWISgwl(siteNumber, '','')
sites <- c("434400121275801", "375907091432201") sites <- c("434400121275801", "375907091432201")
data2 <- readNWISgwl(sites, '','') data2 <- readNWISgwl(sites, '','')
data3 <- readNWISgwl("420125073193001", '','')
} }
\seealso{ \seealso{
\code{\link{renameNWISColumns}}, \code{\link{importWaterML1}} \code{\link{renameNWISColumns}}, \code{\link{importWaterML1}}
......
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