diff --git a/R/setAccess.R b/R/setAccess.R
index 868e4fcd3da5433efd2ab0e0290f180a11f0d2d1..1a098d3b397a3e7407bf13aad102f4066348d5ae 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 945c8376e1a432044d6a6e3d4ce1f386c7783fed..b03dba89bbf893a6ad7eb43bac1a0af0ab1f8650 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"]),