Commit fd26e5eb authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Apparently some inactive sites are now retro active.

parent fdcfcb76
......@@ -49,8 +49,11 @@ test_that("External importRDB1 tests", {
site <- "05427850"
url <- constructNWISURL(site,"00060","2015-01-01", "","dv",format="tsv")
expect_message(importRDB1(url))
url <- constructNWISURL(site,"00060","2015-01-01", "","dv",
format="tsv",
statCd = "laksjd")
# And....now there's data there:
expect_error(importRDB1(url))
})
......@@ -121,10 +124,13 @@ test_that("External importWaterML1 test", {
expect_that(nrow(inactiveSite) == 0, is_true())
inactiveAndActive <- c("07334200","05212700")
inactiveAndActive <- constructNWISURL(inactiveAndActive, "00060", "2014-01-01", "2014-01-10",'dv')
inactiveAndActive <- constructNWISURL(inactiveAndActive, "00060",
"2014-01-01", "2014-12-31",'dv')
inactiveAndActive <- importWaterML1(inactiveAndActive)
# saveRDS(inactiveAndActive, "rds/inactiveAndActive.rds")
expect_that(length(unique(inactiveAndActive$site_no)) == 1, is_true())
#
expect_true(length(unique(inactiveAndActive$site_no)) < 2)
#raw XML
url <- constructNWISURL(service = 'dv', siteNumber = '02319300', parameterCd = "00060",
......
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