Update test_fredi.yml

Corrected line referring to undefined variable that contains a logical value indicating whether the path for saving results exists

.github/workflows/test_fredi.yml

@@ -71,7 +71,8 @@ jobs:
             oFileRef <- oPath0 |> file.path("refResults.rda")
 
             ### Check if path exists and, if not, create it
-            if(!exists0) oPath0 |> dir.create(recursive = TRUE)
+            exists0  <- oPath0 |> dir.exists()
+            if(!exists0) oPath0 |> dir.create(recursive=TRUE)
 
             ###### Action Arguments ######
             urlRepo   <- "https://github.com/USEPA/FrEDI"