diff --git a/tests/testthat/tests_general.R b/tests/testthat/tests_general.R index 5d44df5796e10d6aacee1dea381e8516ac1e0343..1a8beaa6dad526544e7fc5f017fb8c711b4ad033 100644 --- a/tests/testthat/tests_general.R +++ b/tests/testthat/tests_general.R @@ -19,4 +19,23 @@ test_that("General NWIS retrievals working", { siteInfo <- readNWISdata(stateCd="WI", parameterCd="00010",hasDataTypeCd="iv", service="site") +}) + + +test_that("General WQP retrievals working", { + testthat::skip_on_cran() + + nameToUse <- "pH" + pHData <- readWQPdata(siteid="USGS-04024315",characteristicName=nameToUse) + expect_is(pHData$ActivityStartDateTime, 'POSIXct') + + pHDataExpanded2 <- readWQPdata(bBox=c(-90.10,42.67,-88.64,43.35), + characteristicName=nameToUse) + expect_is(pHDataExpanded2$ActivityStartDateTime, 'POSIXct') + + startDate <- as.Date("2013-01-01") + nutrientDaneCounty <- readWQPdata(countycode="US:55:025",startDate=startDate, + characteristicType="Nutrient") + expect_is(nutrientDaneCounty$ActivityStartDateTime, 'POSIXct') + }) \ No newline at end of file