R/reportCostCapitalStocks.R

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

#' @title reportCostCapitalStocks
#' @description reports MAgPIE capital stocks
#'
#' @export
#'
#' @param gdx GDX file
#' @return Magpie object associated with overall costs and value of production
#' @author Edna J. Molina Bacca
#' @examples
#' \dontrun{
#' x <- reportCostCapitalStocks(gdx)
#' }
#' @importFrom magclass getNames

reportCostCapitalStocks <- function(gdx) {

  # Capital stocks used in croland per region
  x <- try(CostCapital(gdx, level = "regglo", type = "stocks"), silent = TRUE)
  if ("try-error" %in% class(x)) {
    message("Info only available for sticky cost implementation")
    return(NULL)
  }
  getNames(x) <- "Costs|Capital Stocks (million US$05)"
  return(x)
}