add Alias to model specs

R/StateiorFunctions.R

@@ -12,7 +12,7 @@
 #' @return A list of two-region IO data of model iolevel and year.
 getTwoRegionIOData <- function(model, dataname) {
   # Define state, year and iolevel
-  alias <- ifelse(!is.na(model$specs$alias), model$specs$alias, NULL)
+  alias <- ifelse(!is.na(model$specs$Alias), model$specs$Alias, NULL)
   if(!"US-DC" %in% model$specs$ModelRegionAcronyms) {
     state <- state.name[state.abb == gsub(".*-", "", model$specs$ModelRegionAcronyms[1])]
   } else {

format_specs/ModelSpecification.md

@@ -7,6 +7,7 @@ Model specifications are assigned in a yml file based on the parameters shown be
 | BaseIOSchema | int | Y | The base IO schema (e.g. 2012) |
 | BaseIOLevel | str | Y | The base IO level of detail (e.g. `Detail`) |
 | IOYear | int | Y | The base IO year |
+| Alias | str | N | The alias provided to the model, typically also included in the model name. Required for two region models from stateior. |
 | ModelRegionAcronyms | list | Y | The model region acronyms |
 | ModelType | str | Y | The [model type](#Model-Types) (e.g. `EEIO`) |
 | IODataSource | str | Y | The model source (e.g. `BEA` or `stateior`) |