include writing model to excel in some tests

USEPA · May 16, 2024 · 41bd541 · 41bd541
1 parent dde2d8f
commit 41bd541
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/.gitignore b/.gitignore
@@ -7,3 +7,4 @@ work
 inst/doc/**/*.html
 renv/
 examples
+tests/*.xlsx
diff --git a/tests/test_model_build.R b/tests/test_model_build.R
@@ -64,6 +64,7 @@ m <- "USEEIOv2.0-GHG"
 cfg <- paste0("modelspecs/", m, ".yml")
 model <- buildModel(m, configpaths = file.path(cfg))
 printValidationResults(model)
+writeModeltoXLSX(model, ".")
 
 ## USEEIOv2.0 Detail, industry model
 model <- useeior:::initializeModel(m, configpaths = file.path(cfg))
@@ -132,6 +133,7 @@ m <- "GAEEIOv1.0-s-GHG-19"
 cfg <- paste0("modelspecs/", m, ".yml")
 model <- buildModel(m, configpaths = file.path(cfg))
 printValidationResults(model)
+writeModeltoXLSX(model, ".")
 
 ## StateEEIOv1.0 Two-region Summary model with Import Factors
 cfg <- c(paste0("modelspecs/", m, ".yml"),