Merge pull request #64 from USEPA/state_code_initial_fixCompileData

Update configureFrediData.R
USEPA · Dec 19, 2023 · 51777a2 · 51777a2
2 parents 90fbc90 + a2e90ca
commit 51777a2
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/scripts/configureFrediData.R b/scripts/configureFrediData.R
@@ -70,16 +70,16 @@ configureFrediData <- function(
   ### Add to return list
   returnList[["generalConfigTests"]] <- test_general_config
 
-  ###### 3. Drop Reshaped Data ######
-  rDataList    <- list_systemData0[["rDataList"]]
-  drop0        <- c("rsData_reg", "rsData_state")
-  inDrop0      <- (rDataList |> names()) %in% drop0
-  rDataList    <- rDataList[!inDrop0]
-  ### Update list
-  list_systemData0[["rDataList"]] <- rDataList
-  ### Save list
-  sysDataFile  <- dataOutDir |> file.path("tmp_sysdata.rda")
-  save(fredi_config, rDataList, file=sysDataFile)
+  # ###### 3. Drop Reshaped Data ######
+  # rDataList    <- list_systemData0[["rDataList"]]
+  # drop0        <- c("rsData_reg", "rsData_state")
+  # inDrop0      <- (rDataList |> names()) %in% drop0
+  # rDataList    <- rDataList[!inDrop0]
+  # ### Update list
+  # list_systemData0[["rDataList"]] <- rDataList
+  # ### Save list
+  # sysDataFile  <- dataOutDir |> file.path("tmp_sysdata.rda")
+  # save(fredi_config, rDataList, file=sysDataFile)
 
   ###### 4. Add SV Data ######
   ### Update system data: Added in another step