R/convertOpenmod.R

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

#' Converts Openmod capacities data
#' 
#' @param x MAgPIE object to be converted
#' @return A MAgPIE object containing openmod EU country disaggregated data with 2010 and 2015 electricity capacities (GW)
#' @author Renato Rodrigues
#' @examples
#' 
#' \dontrun{ a <- convertOpenmod(x)
#' }
#'  
#'  
#' @importFrom madrat toolCountry2isocode toolGetMapping toolCountryFill
#' 


convertOpenmod <- function(x) {
  
  # loading LIMES country iso code
  LIMESMapping <- toolGetMapping("regionmappingLIMES.csv",where = "mappingfolder",type = "regional")
  # filter only relevant region names
  x <- x[LIMESMapping$LIMES_ISO2,,]
  # rename countries to REMIND iso codes
  getRegions(x) <- toolCountry2isocode(getRegions(x), mapping = setNames(as.character(LIMESMapping$LIMES_ISO3), LIMESMapping$LIMES_ISO2))
  # disaggregate BAL (Balkans) = BIH (Bosnia and Herzegovina), SRB (Serbia), MNE (Montenegro), MKD (Macedonia, the former Yugoslav Republic of) and Albania (ALB)
  # todo
  # fill countries with no data
  x  <- toolCountryFill(x,fill=0,verbosity=0)
  # replace NAs with 0
  x[is.na(x)] <- 0
 
  return(x)
 }