remove unused gdx_ref parameter from reportLCOE

R/convGDX2MIF_LCOE.R

@@ -5,7 +5,6 @@
 #'
 #'
 #' @param gdx a GDX as created by readGDX, or the file name of a gdx
-#' @param gdx_ref a GDX as created by readGDX of the reference run
 #' @param file name of the mif file which will be written, if no name is
 #' provided a magpie object containing all the reporting information is
 #' returned
@@ -15,19 +14,19 @@
 #' @author Lavinia Baumstark
 #' @examples
 #' \dontrun{
-#' convGDX2MIF(gdx, gdx_ref, file = "REMIND_generic_LCOE.csv", scenario = "default")
+#' convGDX2MIF_LCOE(gdx, file = "REMIND_generic_LCOE.csv", scenario = "default")
 #' }
 #'
 #' @export
 #' @importFrom gdx readGDX
 #' @importFrom magclass mbind write.report
 #' @importFrom utils write.table
 
-convGDX2MIF_LCOE <- function(gdx, gdx_ref = NULL, file = NULL, scenario = "default",
+convGDX2MIF_LCOE <- function(gdx, file = NULL, scenario = "default",
                              t = c(seq(2005, 2060, 5), seq(2070, 2110, 10), 2130, 2150)) {
   # make the reporting
   output <- NULL
-  output <- mbind(output, reportLCOE(gdx = gdx, gdx_ref = gdx_ref)[, t, ])
+  output <- mbind(output, reportLCOE(gdx = gdx)[, t, ])
 
   # write the LCOE.mif or give back the magpie object output
   if (!is.null(file)) {

R/reportLCOE.R

@@ -20,9 +20,6 @@
 #' Can be either "average" (returns only average LCOE),
 #' "marginal" (returns only marginal LCOE), "both" (returns marginal and average LCOE) and
 #' and "marginal detail" (returns table to trace back how marginal LCOE are calculated).
-#' @param gdx_ref a GDX object as created by readGDX, or the path to a gdx of the reference run.
-#' It is used to guarantee consistency before 'cm_startyear' for capacity and investment variables
-#' using time averaging.
 #' @return MAgPIE object - LCOE calculated by model post-processing.
 #' Two types a) standing system LCOE b) new plant LCOE.
 #' @author Felix Schreyer, Robert Pietzcker, Lavinia Baumstark
@@ -39,7 +36,7 @@
 #' @importFrom quitte as.quitte overwrite getRegs getPeriods
 #' @importFrom tidyr spread gather expand fill
 
-reportLCOE <- function(gdx, output.type = "both", gdx_ref = NULL) {
+reportLCOE <- function(gdx, output.type = "both") {
   # test whether output.type defined
   if (!output.type %in% c("marginal", "average", "both", "marginal detail")) {
     print("Unknown output type. Please choose either marginal, average, both or marginal detail.")