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

Updated test.

parent e14199ea
No related branches found
No related tags found
1 merge request!135Minimize examples to web services
......@@ -36,15 +36,16 @@ test_that("External importRDB1 tests", {
expect_is(qwData$sample_dt, 'Date')
expect_is(qwData$startDateTime, 'POSIXct')
iceSite <- '04024430'
start <- "2014-11-09"
end <- "2014-11-28"
urlIce <- constructNWISURL(iceSite,"00060",start, end,"uv",format="tsv")
ice <- importRDB1(urlIce)
expect_that(sum(is.na(ice$X01_00060)) > 0, is_true())
iceNoConvert <- importRDB1(urlIce, convertType=FALSE)
expect_that(sum(iceNoConvert$X01_00060 == "Ice") > 0, is_true())
#This data got deleted:
# iceSite <- '04024430'
# start <- "2014-11-09"
# end <- "2014-11-28"
# urlIce <- constructNWISURL(iceSite,"00060",start, end,"uv",format="tsv")
# ice <- importRDB1(urlIce)
# expect_that(sum(is.na(ice$X01_00060)) > 0, is_true())
#
# iceNoConvert <- importRDB1(urlIce, convertType=FALSE)
# expect_that(sum(iceNoConvert$X01_00060 == "Ice") > 0, is_true())
})
context("importRDB")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment