R/convertAmmoniaProductionUSGS.R

In pik-piam/mrvalidnitrogen: madrat data preparation for validation purposes of nitrogen budgets

#' @import utils
#' @import madrat

convertAmmoniaProductionUSGS <- function(x) {
  usgstomagpie <- read.csv("CountryUSGStoMAgPIE.csv", stringsAsFactors = FALSE)
  tmp <- getRegions(x)
  tmp[match(usgstomagpie$Country.USGS, tmp, nomatch = FALSE)] <- usgstomagpie$Country.MagPIE
  getRegions(x) <- tmp
  map <- toolGetMapping(type = "regional", name = "regionmappingMAgPIE.csv")

  y <- toolAggregate(x, map, partrel = T, from = 1, to = 2)
  y <- toolCountryFill(y, fill = 0)
  y[is.na(y)] <- 0

  return(y)
}