Merge pull request #726 from ldecicco-USGS/fix_agency

thought this was a requirement, but isn't...
DOI-USGS · Aug 21, 2024 · 26b9265 · 26b9265
2 parents a5c9729 + fa45738
commit 26b9265
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 11 deletions.
diff --git a/R/constructNWISURL.R b/R/constructNWISURL.R
@@ -242,7 +242,6 @@ constructNWISURL <- function(siteNumbers,
 
            url <- appendDrURL(baseURL,
                               site_no = siteNumbers,
-                              agency_cd = "USGS",
                               format = "rdb"
            )
            if (nzchar(startDate)) {

diff --git a/tests/testthat/tests_imports.R b/tests/testthat/tests_imports.R
@@ -235,16 +235,6 @@ test_that("importWaterML2 internal test", {
   expect_is(UserData$value, "numeric")
 })
 
-test_that("importWaterML2 external test", {
-  testthat::skip_on_cran()
-  url <- "https://waterservices.usgs.gov/nwis/iv/?format=waterml,2.0&sites=01646500&parameterCd=00060,00065"
-  xml <- getWebServiceData(url)
-  measurementTS2 <- xml2::xml_find_all(xml, "//wml2:MeasurementTimeseries")
-  exData <- importWaterML2(measurementTS2)
-  expect_is(exData$value, "numeric")
-  expect_gt(nrow(exData), 0)
-})
-
 
 context("importWQP_noCRAN")