From 283cd4730fa96b0f84de98733f6e42133e93c703 Mon Sep 17 00:00:00 2001
From: Jordan S Read <jread@usgs.gov>
Date: Tue, 10 Nov 2015 09:22:00 -0600
Subject: [PATCH] adding iv, uv, gw w/ tests
---
R/setAccess.R | 1 +
tests/testthat/tests_userFriendly_fxns.R | 2 +-
2 files changed, 2 insertions(+), 1 deletion(-)
diff --git a/R/setAccess.R b/R/setAccess.R
index 868e4fcd..1a098d3b 100644
--- a/R/setAccess.R
+++ b/R/setAccess.R
@@ -31,6 +31,7 @@ setAccess = function(access="public"){
pkg.env$waterservices = paste0("http://waterservices.usgs.gov/nwis/site/", access.param)
pkg.env$iv = paste0("http://nwis.waterservices.usgs.gov/nwis/iv/", access.param)
pkg.env$dv = paste0("http://waterservices.usgs.gov/nwis/dv/", access.param)
+ pkg.env$gwlevels = paste0("http://waterservices.usgs.gov/nwis/gwlevels/", access.param)
}
diff --git a/tests/testthat/tests_userFriendly_fxns.R b/tests/testthat/tests_userFriendly_fxns.R
index 945c8376..b03dba89 100644
--- a/tests/testthat/tests_userFriendly_fxns.R
+++ b/tests/testthat/tests_userFriendly_fxns.R
@@ -19,7 +19,7 @@ test_that("Unit value data returns correct types", {
expect_is(rawData$dateTime, 'POSIXct')
expect_is(rawData$Flow_Inst, 'numeric')
expect_that(attr(rawData, "url"), equals(
- "http://nwis.waterservices.usgs.gov/nwis/iv/?site=05114000&format=waterml,1.1&ParameterCd=00060&startDT=2014-10-10&endDT=2014-10-10")
+ "http://nwis.waterservices.usgs.gov/nwis/iv/?Access=1&site=05114000&format=waterml,1.1&ParameterCd=00060&startDT=2014-10-10&endDT=2014-10-10")
)
# #First switchover to standard time:
# expect_that(as.numeric(timeZoneChange[which(timeZoneChange$tz_cd == "America/Chicago")[1],"dateTime"]),
--
GitLab