Commit 634b3eb1 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Add a test

parent 0142053a
......@@ -97,6 +97,14 @@ test_that("General NWIS retrievals working", {
"update_time",
"url")))
multi_hucs <- c("07130007", "07130011")
multi_huc <- dataRetrieval::readNWISdata(huc = multi_hucs,
parameterCd = "63680",
startDate = "2015-06-18",
endDate = "2015-06-18",
service="dv")
expect_equal(2, nrow(multi_huc))
})
test_that("whatNWISdata",{
......
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