fixes meters test

USEPA · Nov 30, 2022 · 4cd01f2 · 4cd01f2
1 parent 526013a
commit 4cd01f2
Show file tree

Hide file tree

Showing 18 changed files with 315 additions and 135 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -41,11 +41,11 @@ Imports:
     stats, 
     gganimate,
     lubridate,
-    maps, 
-    readr
+    maps
 Depends: 
     R (>= 3.5.0)
 Suggests: 
+    readr,
     gifski,
     rlang,
     remotes, 

diff --git a/docs/articles/CONTRIBUTING.html b/docs/articles/CONTRIBUTING.html
diff --git a/docs/articles/WQPDataHarmonization.html b/docs/articles/WQPDataHarmonization.html
diff --git a/docs/articles/WQPDataHarmonization_files/figure-html/unnamed-chunk-10-1.png b/docs/articles/WQPDataHarmonization_files/figure-html/unnamed-chunk-10-1.png
diff --git a/docs/articles/WQPDataHarmonization_files/figure-html/unnamed-chunk-20-1.png b/docs/articles/WQPDataHarmonization_files/figure-html/unnamed-chunk-20-1.png
diff --git a/docs/articles/WQPDataHarmonization_files/figure-html/unnamed-chunk-22-1.png b/docs/articles/WQPDataHarmonization_files/figure-html/unnamed-chunk-22-1.png
diff --git a/docs/articles/WQPDataHarmonization_files/figure-html/unnamed-chunk-30-1.png b/docs/articles/WQPDataHarmonization_files/figure-html/unnamed-chunk-30-1.png
diff --git a/docs/articles/WQPDataHarmonization_files/figure-html/unnamed-chunk-31-1.gif b/docs/articles/WQPDataHarmonization_files/figure-html/unnamed-chunk-31-1.gif
diff --git a/docs/articles/WQPDataHarmonization_files/figure-html/unnamed-chunk-9-1.png b/docs/articles/WQPDataHarmonization_files/figure-html/unnamed-chunk-9-1.png
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -4,7 +4,7 @@ pkgdown_sha: ~
 articles:
   CONTRIBUTING: CONTRIBUTING.html
   WQPDataHarmonization: WQPDataHarmonization.html
-last_built: 2022-11-09T02:17Z
+last_built: 2022-11-30T15:52Z
 urls:
   reference: usepa.github.io/tada/reference
   article: usepa.github.io/tada/articles

diff --git a/docs/reference/CreateAnimatedMap.html b/docs/reference/CreateAnimatedMap.html
diff --git a/docs/reference/SummarizeCharacteristics.html b/docs/reference/SummarizeCharacteristics.html
diff --git a/docs/reference/TADABigdataRetrieval.html b/docs/reference/TADABigdataRetrieval.html
diff --git a/docs/reference/index.html b/docs/reference/index.html
diff --git a/docs/search.json b/docs/search.json
diff --git a/docs/sitemap.xml b/docs/sitemap.xml
@@ -63,6 +63,9 @@
   <url>
     <loc>usepa.github.io/tada/reference/ConvertResultUnits.html</loc>
   </url>
+  <url>
+    <loc>usepa.github.io/tada/reference/CreateAnimatedMap.html</loc>
+  </url>
   <url>
     <loc>usepa.github.io/tada/reference/decimalnumcount.html</loc>
   </url>
@@ -90,6 +93,9 @@
   <url>
     <loc>usepa.github.io/tada/reference/GenerateCensoredDataStats.html</loc>
   </url>
+  <url>
+    <loc>usepa.github.io/tada/reference/GenerateMap.html</loc>
+  </url>
   <url>
     <loc>usepa.github.io/tada/reference/GetMeasureUnitRef.html</loc>
   </url>
@@ -144,6 +150,9 @@
   <url>
     <loc>usepa.github.io/tada/reference/RemoveEmptyColumns.html</loc>
   </url>
+  <url>
+    <loc>usepa.github.io/tada/reference/SummarizeCharacteristics.html</loc>
+  </url>
   <url>
     <loc>usepa.github.io/tada/reference/TADABigdataRetrieval.html</loc>
   </url>

diff --git a/tests/testthat/test-DataDiscoveryRetrieval.R b/tests/testthat/test-DataDiscoveryRetrieval.R
@@ -119,6 +119,5 @@ test_that("TADAdataRetrieval", {
   check_autoclean_meters_works <- TADAdataRetrieval(statecode = "UT",
                                     characteristicName = c("Ammonia", "Nitrate", "Nitrogen"),
                                     startDate = "01-01-2021")
-  expect_equal(check_autoclean_meters_works$ActivityDepthHeightMeasure.MeasureUnitCode[975], "m"
-  )
+  expect_equal(unique(check_autoclean_meters_works$ActivityDepthHeightMeasure.MeasureUnitCode), c("NA", 'm'))
   })
diff --git a/vignettes/WQPDataHarmonization.Rmd b/vignettes/WQPDataHarmonization.Rmd
@@ -1,6 +1,6 @@
 ---
 title: "WQP Data Harmonization"
-author: "Cristina A. Mullin"
+author: "Cristina A. Mullin, TADA Team"
 date: "`r Sys.Date()`"
 output: rmarkdown::html_vignette
 vignette: >
@@ -244,7 +244,10 @@ See ?TADABigdataRetrieval for more details. WARNING, this can take
 multiple HOURS to run. The total run time depends on your query inputs.
 
 ```{r}
-# AllWaterTempData <- TADABigdataRetrieval(startDate = "2019-01-01", endDate = "2021-12-31", characteristicName = "Temperature, water", siteType = "Stream")
+# AllWaterTempData <- TADABigdataRetrieval(startDate = "2019-01-01", 
+#                                     endDate = "2021-12-31", 
+#                                     characteristicName = "Temperature, water",
+#                                     siteType = "Stream")
 ```
 
 Review all column names in the TADA Profile