avoid extra rows if location is set for single region model

USEPA · Aug 16, 2024 · 07998ce · 07998ce
1 parent 336cc55
commit 07998ce
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/CalculationFunctions.R b/R/CalculationFunctions.R
@@ -559,6 +559,10 @@ calculateHouseholdEmissions <- function(model, f, location, characterized=FALSE)
     logging::logwarn("Household emissions not found in this model")
     return(NULL)
   }
+  if(length(model$specs$ModelRegionAcronyms) == 1) {
+    # Set location as NULL for single region model
+    location <- NULL
+  }
   codes <- model$FinalDemandMeta[model$FinalDemandMeta$Group%in%c("Household"), "Code_Loc"]
   if (!is.null(location)) {
     other_code <- codes[!grepl(location, codes)]