Skip to content

Commit

Permalink
Concatenate category and subcategory for metadata export
Browse files Browse the repository at this point in the history
  • Loading branch information
bl-young committed Aug 19, 2021
1 parent 875f98b commit d3cdeda
Show file tree
Hide file tree
Showing 2 changed files with 1 addition and 1 deletion.
1 change: 1 addition & 0 deletions R/WriteModel.R
Original file line number Diff line number Diff line change
Expand Up @@ -258,6 +258,7 @@ writeModelMetadata <- function(model, dirs) {
sectors$ID <- sectors$Code_Loc
sectors$Location <- model$specs$ModelRegionAcronyms
sectors$Index <- c(1:nrow(sectors)-1)
sectors$Category <- paste(sectors$Category, sectors$Subcategory, sep="/")
sectors <- sectors[, fields$sectors]
checkNamesandOrdering(sectors$ID, rownames(model$L), "code in sectors.csv and rows in L matrix")
utils::write.csv(sectors, paste0(outputfolder, "/sectors.csv"), na = "", row.names = FALSE, fileEncoding = "UTF-8")
Expand Down
1 change: 0 additions & 1 deletion inst/extdata/USEEIO_API_fields.yml
Original file line number Diff line number Diff line change
Expand Up @@ -38,7 +38,6 @@ sectors:
- Code
- Location
- Category
- Subcategory
- Description

years:
Expand Down

1 comment on commit d3cdeda

@bl-young
Copy link
Collaborator Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

fyi @msrocka

Please sign in to comment.