R/reportCostsPresolve.R

In pik-piam/magpie4: MAgPIE outputs R package for MAgPIE version 4.x

#' @title reportCostsPresolve
#' @description reports MAgPIE costs
#' 
#' @export
#' 
#' @param gdx GDX file
#' @return consumption value as MAgPIE object Unit: see names
#' @author Florian Humpenoeder
#' @examples
#' 
#'   \dontrun{
#'     x <- reportCostsPresolve(gdx)
#'   }
#' 

reportCostsPresolve<-function(gdx){
  
  a <- costsPresolve(gdx,level = "regglo")
  if(!is.null(a)) getNames(a) <- "Costs|PreSolve|Total (million US$05)"
  
  return(a)
}