R/convertWGBU.R

In pik-piam/moinput: Model Operations Input Data Library

#' Convert WGBU data
#' 
#' Convert WGBU data on ISO country level.
#' 
#' 
#' @param x MAgPIE object containing WGBU data country-region resolution
#' @return WGBU data as MAgPIE object aggregated to country level
#' @author Lavinia Baumstark
#' @examples
#' 
#' \dontrun{ a <- convertWGBU(x)
#' }
#' 
convertWGBU <- function(x) {
  
  # remove world data    
  x <- x["Welt",,invert=TRUE]               # FIXME do we need it for the missing regions?
  
  # remove aggregated data ("total * ")     # FIXME do we need it for the difference to the sum over the related countries?
  x <- x["Total",,pmatch=TRUE,invert=TRUE]
  
  # remove space from region names
  getRegions(x) <- gsub(" ","",getRegions(x))
  # rename countries with ISO-code
  # FIXME delete Persien for now
  x <- x["Persien",,invert=TRUE]
  getRegions(x) <- toolCountry2isocode(getRegions(x))
  
  # fill all missing countries with 0
  x <- toolCountryFill(x,fill=0)
  
  return(x)
}