data-raw/TwoRegionModel.R

In USEPA/stateior: US State Input-Output (stateio) R modeling software

# Generate and save two-region IO tables

# model_spec <- "StateIOv1.2-milkbar" # Utilities disaggregation
# model_spec <- "StateIOv1.2-shoofly" # base model
# model_spec <- "StateIOv1.3-pecan" # 2017 schema model
# year <- 2019

# Load model spec
logging::loginfo(paste("Generating two region model for", model_spec))
configpath <- system.file("extdata/modelspecs/", paste0(model_spec, ".yml"), package = "stateior")
specs <- configr::read.config(configpath)

# Build model
alias <- gsub("^.*-", "", model_spec)
# Store log file
# sink(file = file.path("inst", "extdata", "metadata",
#                       paste0('TwoRegion_', alias, '_', year, '.txt')), split=TRUE)
TwoRegionModel <- assembleTwoRegionIO(year, iolevel = "Summary", specs,
                                      disagg_specs = specs$DisaggregationSpecs)
# sink()

# Subset data set
for (name in names(TwoRegionModel)) {
  df <- TwoRegionModel[[name]]
  # Write data to .rds
  data_name <- paste("TwoRegion_Summary", name, alias, year,
                     utils::packageDescription("stateior", fields = "Version"),
                     sep = "_")
  saveRDS(object = df,
          file = paste0(file.path("data", data_name), ".rds"))
  # Write metadata to JSON
  useeior:::writeMetadatatoJSON(package = "stateior",
                                name = data_name,
                                year = year,
                                source = "stateior",
                                url = NULL,
                                date_last_modified = as.character(Sys.Date()),
                                date_accessed = NULL)
}