Suppress warnings if no files are found, update dataRetrieval url

Author: cristinamullin

.github/workflows/test-coverage.yaml

@@ -48,3 +48,4 @@ jobs:
         with:
           name: coverage-test-failures
           path: ${{ runner.temp }}/package
+          if-no-files-found: ignore  # Suppress warnings if no files are found

tests/testthat/test-ResultFlagsDependent.R

@@ -1,15 +1,26 @@
 test_that("No NA's in dependent flag columns", {
   today <- Sys.Date()
   twoago <- as.character(today - 2 * 365)
-  testdat <- TADA_DataRetrieval(statecode = "UT", startDate = twoago, characteristicName = c("Nitrate", "Copper"), sampleMedia = "Water", ask = FALSE)
-  testdat <- TADA_ConvertResultUnits(testdat, transform = TRUE)
+  testdat <- TADA_DataRetrieval(statecode = "UT", 
+                                startDate = twoago, 
+                                characteristicName = c("Nitrate", "Copper"), 
+                                sampleMedia = "Water", 
+                                ask = FALSE)
+  testdat <- TADA_ConvertResultUnits(testdat, 
+                                     transform = TRUE)
 
-  testdat <- suppressWarnings(TADA_FlagFraction(testdat, clean = FALSE, flaggedonly = FALSE))
+  testdat <- suppressWarnings(TADA_FlagFraction(testdat, 
+                                                clean = FALSE, 
+                                                flaggedonly = FALSE))
   expect_false(any(is.na(testdat$TADA.SampleFraction.Flag)))
 
-  testdat <- suppressWarnings(TADA_FlagSpeciation(testdat, clean = "none", flaggedonly = FALSE))
+  testdat <- suppressWarnings(TADA_FlagSpeciation(testdat, 
+                                                  clean = "none", 
+                                                  flaggedonly = FALSE))
   expect_false(any(is.na(testdat$TADA.MethodSpeciation.Flag)))
 
-  testdat <- suppressWarnings(TADA_FlagResultUnit(testdat, clean = "none", flaggedonly = FALSE))
+  testdat <- suppressWarnings(TADA_FlagResultUnit(testdat, 
+                                                  clean = "none", 
+                                                  flaggedonly = FALSE))
   expect_false(any(is.na(testdat$TADA.ResultUnit.Flag)))
 })

vignettes/TADAModule1.Rmd

@@ -197,10 +197,7 @@ Additional resources:
     the console: ?TADA_DataRetrieval
 
 -   [Introduction to the dataRetrieval
-    package](https://CRAN.R-project.org/package=dataRetrieval)
-
--   [General Data Import from Water Quality
-    Portal](https://rdrr.io/cran/dataRetrieval/man/readWQPdata.html)
+    package](https://doi-usgs.github.io/dataRetrieval/)
 
 -   [Water Quality Portal Web Services
     Guide](https://www.waterqualitydata.us/webservices_documentation/)