R/calcClinker_to_cement_ratio.R

In pik-piam/mrremind: MadRat REMIND Input Data Package

#' Calculate Clinker-to-Cement Ratio
#' 
#' @md
#' @return A list with a [`magpie`][magclass::magclass] object `x`, `weight`,
#'   `unit`, and `description`.
#' 
#' @author Michaja Pehl
#' 
#' @seealso [`calcOutput()`], [`readADVANCE_WP2()`], [`convertADVANCE_WP2()`]
#' 
#' @importFrom madrat readSource calcOutput
#' 
#' @export
calcClinker_to_cement_ratio <- function() {
  list(x = `getYears<-`(readSource('ADVANCE_WP2', 'clinker-to-cement-ratio'), 
                        2005),
       weight = calcOutput('GDPPast', aggregate = FALSE)[,2015,],
       unit = 'ratio',
       description = 'clinker-to-cement ratio') %>% 
    return()
}