test updates

USEPA · Aug 15, 2023 · 44c8ab8 · 44c8ab8
1 parent 618cebb
commit 44c8ab8
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/tests/testthat/test-ResultFlagsIndependent.R b/tests/testthat/test-ResultFlagsIndependent.R
@@ -60,7 +60,7 @@ test_that("Imprecise_lessthan3decimaldigits works again", {
 })
 
 test_that("No NA's in independent flag columns", {
-  testdat <- TADA_RandomTestingSet()
+  testdat <- TADA_RandomNationalTestingSet()
   testdat <- TADA_ConvertResultUnits(testdat, transform = TRUE)
 
   testdat <- suppressWarnings(TADA_FlagMethod(testdat, clean = FALSE, flaggedonly = FALSE))
@@ -80,7 +80,7 @@ test_that("No NA's in independent flag columns", {
 })
 
 test_that("TADA_FindPotentialDuplicates functions do not grow dataset", {
-  testdat <- TADA_RandomTestingSet()
+  testdat <- TADA_RandomNationalTestingSet()
   testdat1 <- TADA_FindPotentialDuplicatesSingleOrg(testdat)
   testdat2 <- TADA_FindPotentialDuplicatesMultipleOrgs(testdat)
   expect_true(dim(testdat)[1] == dim(testdat1)[1])

diff --git a/tests/testthat/test-Transformations.R b/tests/testthat/test-Transformations.R
@@ -1,5 +1,5 @@
 test_that("harmonization works", {
-  dat <- TADA_RandomTestingSet()
+  dat <- TADA_RandomNationalTestingSet()
   dat <- subset(dat, !is.na(dat$TADA.ResultMeasureValue))
   dat <- TADA_FlagFraction(dat, clean = TRUE)
   dat <- TADA_FlagResultUnit(dat, clean = "invalid_only")