Update test_fredi.yml

Commented out some lines for the new branch and added lines to check package directory

.github/workflows/test_fredi.yml

@@ -73,7 +73,6 @@ jobs:
             ### Check if path exists and, if not, create it
             exists0  <- oPath0 |> dir.exists()
             if(!exists0) oPath0 |> dir.create(recursive=TRUE)
-            "got here1" |> print()
 
             ###### Action Arguments ######
             urlRepo   <- "https://github.com/USEPA/FrEDI"
@@ -94,28 +93,30 @@ jobs:
             ### Run FrEDI
             devtools::install_github(repo=urlRepo, ref=refBranch, subdir="FrEDI", dependencies=F, upgrade="never", force=T, type="source")
             library(FrEDI)
+            .libPaths()[1] |> list.files() |> print()
             dfRef    <- run_fredi(aggLevels=cAggLvls)
             dfRef |> save(file=oFileRef)
             "got here3" |> print()
 
             ### Detach FrEDI package
             package:FrEDI |> detach(unload=TRUE)
 
-            ###### Run FrEDI for New Branch ######
-            ### Install FrEDI from new branch
-            devtools::install_github(repo=urlRepo, ref=newBranch, dependencies=F, upgrade="never", force=T, type="source")
-            library(FrEDI)
-            dfNew    <- run_fredi(aggLevels=cAggLvls)
-            dfNew |> save(file=oFileNew)
-            "got here4" |> print()
-
-            ###### Test results ######
-            ### Load testing scripts
-            tFiles0 <- tPath0 |> list.files(full.names=TRUE)
-            for(file_i in tFiles0){file_i |> source(); rm(file_i)}
-            ### Get test results
-            dfTests <- general_fredi_test(newOutputs=dfNew, refOutputs=dfRef, outPath=oPath0)
-            "got here5" |> print()
+            # ###### Run FrEDI for New Branch ######
+            # ### Install FrEDI from new branch
+            # devtools::install_github(repo=urlRepo, ref=newBranch, dependencies=F, upgrade="never", force=T, type="source")
+            # .libPaths()[1] |> list.files() |> print()
+            # library(FrEDI)
+            # dfNew    <- run_fredi(aggLevels=cAggLvls)
+            # dfNew |> save(file=oFileNew)
+            # "got here4" |> print()
+            #
+            # ###### Test results ######
+            # ### Load testing scripts
+            # tFiles0 <- tPath0 |> list.files(full.names=TRUE)
+            # for(file_i in tFiles0){file_i |> source(); rm(file_i)}
+            # ### Get test results
+            # dfTests <- general_fredi_test(newOutputs=dfNew, refOutputs=dfRef, outPath=oPath0)
+            # "got here5" |> print()
           '
 
       - name: Upload Tests