Commit 6674f524 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Fix test

parent 50438026
......@@ -83,7 +83,8 @@ test_that("peak, rating curves, surface-water measurements", {
expect_is(Meas07227500.ex$measurement_dt, 'Date')
expect_is(Meas07227500.ex$measurement_dateTime, 'POSIXct')
expect_error(whatNWISdata(siteNumber = "10312000",parameterCd = "50286"))
expect_equal(nrow(whatNWISdata(siteNumber = "10312000",parameterCd = "50286")), 0)
expect_equal(ncol(whatNWISdata(siteNumber = "10312000",parameterCd = "50286")), 24)
url <- "https://waterservices.usgs.gov/nwis/site/?format=rdb&seriesCatalogOutput=true&sites=05114000"
x <- importRDB1(url)
......
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