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

Ice example now estimated.

parent efd434c5
No related branches found
No related tags found
1 merge request!86remove WQP tests
Hide whitespace changes
Inline Side-by-side
tests/testthat/tests_userFriendly_fxns.R
+ 3
− 3
View file @ 92076b30
...@@ -109,9 +109,9 @@ test_that("NWIS dv tests", { ...@@ -109,9 +109,9 @@ test_that("NWIS dv tests", {
startDate, endDate, statCd=c('00001','00003')) startDate, endDate, statCd=c('00001','00003'))
expect_that(length(unique(rawDailyMultiSites$site_no)) > 1, is_true()) expect_that(length(unique(rawDailyMultiSites$site_no)) > 1, is_true())
# Site with no data: # # Site with no data:
x <- readNWISdv("10258500","00060", "2014-09-08", "2014-09-14") # x <- readNWISdv("10258500","00060", "2015-02-08", "2015-02-14")
expect_that(sum(is.na(x$X_00060_00003)) > 0, is_true()) # expect_that(sum(is.na(x$X_00060_00003)) > 0, is_true())
site <- "05212700" site <- "05212700"
notActive <- readNWISdv(site, "00060", "2014-01-01","2014-01-07") notActive <- readNWISdv(site, "00060", "2014-01-01","2014-01-07")
......
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