From bcf707a1104268192ce67ef06e1b320d184e8b20 Mon Sep 17 00:00:00 2001
From: jvendries <jvendries@hotmail>
Date: Fri, 26 Apr 2024 15:05:38 -0400
Subject: [PATCH] call create disagg files from proxy data function from
 useeior for state objects

---
 R/BuildModel.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/BuildModel.R b/R/BuildModel.R
index 9685a16..24351c4 100644
--- a/R/BuildModel.R
+++ b/R/BuildModel.R
@@ -679,8 +679,8 @@ assembleTwoRegionIO <- function(year, iolevel, disagg_specs=NULL) {
  
         if(!is.null(disagg$stateDF)) {
           # Get the correct disaggregation percentages for each state
-          model <- createDisaggFilesFromProxyData(model, disagg, year, state)
-          #model <- useeior:::createDisaggFilesFromProxyData(model, disagg, year, state)
+          #model <- createDisaggFilesFromProxyData(model, disagg, year, state)
+          model <- useeior:::createDisaggFilesFromProxyData(model, disagg, year, state)
           disagg <- model$DisaggregationSpecs[[disagg$OriginalSectorCode]]
         } 
         model <- disaggregateStateModel(model, state)