From 7d032b018a853165f37e0df45a1a831f8a5ac501 Mon Sep 17 00:00:00 2001
From: Kenny Wong <Wong.Kenny@epa.gov>
Date: Wed, 18 Sep 2024 08:49:39 -0400
Subject: [PATCH] Update test-CriteriaComparison.R

updated comments and styler
---
 tests/testthat/test-CriteriaComparison.R | 42 +++++++++++++-----------
 1 file changed, 22 insertions(+), 20 deletions(-)

diff --git a/tests/testthat/test-CriteriaComparison.R b/tests/testthat/test-CriteriaComparison.R
index 21ff85fa..753932f9 100644
--- a/tests/testthat/test-CriteriaComparison.R
+++ b/tests/testthat/test-CriteriaComparison.R
@@ -1,32 +1,34 @@
-
 test_that("TADA_PairForCriteriaCalc function does not grow dataset", {
-  
   testdat1 <- TADA_RandomTestingData(
     number_of_days = 1,
     choose_random_state = TRUE,
     autoclean = TRUE
-    )
-    
-    tryCatch({
-        testdat2 <- TADA_PairForCriteriaCalc (testdat1)
-      }
-      ,
-      error = function (testdat1) {
-        for(i in 1:10) {
-          testdat1 <- TADA_RandomTestingData (
-            number_of_days = 1,
-            choose_random_state = TRUE,
-            autoclean = TRUE
-          )
-        
-        if( class( try( testdat2 <- TADA_PairForCriteriaCalc(testdat1))) != "try-error") {
+  )
+
+  # checks to see if testdat1 has any paired parameters needed to run TADA_PairForCriteriaCalc.
+  # If it fails to run, an error will result and it will reiterate the testdat1 <- TADA_RandomTestingData() pull.
+  tryCatch(
+    {
+      testdat2 <- TADA_PairForCriteriaCalc(testdat1)
+    },
+    error = function(testdat1) {
+      for (i in 1:10) {
+        testdat1 <- TADA_RandomTestingData(
+          number_of_days = 1,
+          choose_random_state = TRUE,
+          autoclean = TRUE
+        )
+        # Checks if testdat2 will run without error with the new testdat1 data pull.
+        # If try() is able to run without error, then the loop will stop.
+        if (class(try(testdat2 <- TADA_PairForCriteriaCalc(testdat1))) != "try-error") {
           testdat2
-          opt <- options(show.error.messages=FALSE)
+          opt <- options(show.error.messages = FALSE)
           on.exit(options(opt))
           stop()
         }
       }
-    })
-    
+    }
+  )
+
   expect_true(dim(testdat1)[1] == dim(testdat2)[1])
 })