Enable production demand vector for 2R models

[WesIngwersen]

2R Models still cannot be calculated using the demand vector due to this stop

useeior/R/DemandFunctions.R

Lines 92 to 95 in 47d03b0

	prepareImportProductionDemand <- function(model, location) {
	if (model$specs$IODataSource == "stateior") {
	y_m_p <- prepare2RDemand(model, location, domestic = FALSE)
	stop("Import production demand not yet implemented for 2R models.")

[WesIngwersen]

useeior/R/StateiorFunctions.R

Lines 146 to 168 in 47d03b0

	prepare2RDemand <- function(model, location, domestic, demand_type = "Production") {
	# Get state abbreviations, e.g., "US-ME" and "RoUS"
	state_abb <- sub(".*/","",model$FinalDemandMeta$Code_Loc) ## Extract characters after /
	state_abb <- unique(state_abb)
	iolevel <- model$specs$BaseIOLevel
	ita_column <- ifelse(iolevel == "Detail", "F05100", "F051")
	if(domestic) {
	# TODO: CHANGE domestic FROM BOOLEAN TO STRING WITH VALUES 'domestic', 'production',
	# and 'import', so we can calculate the import matrix in the following if else if else block
	use_table <- model$DomesticUseTransactionswithTrade
	} else {
	use_table <- model$UseTransactionswithTrade
	}
	# Getting list of final demand columns used for the appropriate demand
	if(demand_type == "Production") {
	FD_columns <- unlist(sapply(list("HouseholdDemand", "InvestmentDemand",
	"ChangeInventories", "Export", "Import",
	"GovernmentDemand"),
	getVectorOfCodes, ioschema = model$specs$BaseIOSchema,
	iolevel = iolevel))
	FD_columns <- FD_columns[FD_columns %in% gsub("/.*", "", model$FinalDemandMeta$Code_Loc)]
	}

The logic was not completed for handling import final demand but also an import final demand vector needs to be derived from a U_m, which itself does not exist