test

R/calcClinker_to_cement_ratio.R

@@ -1,21 +1,26 @@
 #' 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') %>% 
+
+  x <- readSource("ADVANCE_WP2", "clinker-to-cement-ratio")
+  getYears(x) <- 2005
+
+  list(
+    x = x,
+    weight = calcOutput("GDPPast", aggregate = FALSE)[, 2015, ],
+    unit = "ratio",
+    description = "clinker-to-cement ratio"
+  ) %>%
     return()
 }

R/fullREMIND.R

@@ -17,7 +17,7 @@ fullREMIND <- function() {
 
   rem_years <- seq(2005, 2150, 5)
   rem_years_hist <- seq(1990, 2150, 5)
-
+  # some comment
   madratAttach("edgeTransport")   # enable madrat caching for edgeTransport
 
   #-------------- macro-economic parameters -----------------------------------------------------------