#' @title reportCostTransport
#' @description reports MAgPIE costs
#'
#' @export
#'
#' @param gdx GDX file
#' @return consumption value as MAgPIE object Unit: see names
#' @author David Chen
#' @examples
#'
#' \dontrun{
#' x <- reportCostTransport(gdx)
#' }
#' @importFrom magpiesets reporthelper summationhelper
reportCostTransport<-function(gdx){
a <- CostTransport(gdx,level = "regglo",sum = FALSE)
a <- reporthelper(a, dim=3.1, level_zero_name = "Costs|Transport", detail=FALSE)
a <- summationhelper(a)
getNames(a) <- paste0(getNames(a)," (million US$2017/yr)")
return(a)
#delete Mainsolve also in magpie4 costs
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.