read in energy prices and taxes

R/convertIEA_EnergyPrices.R

@@ -0,0 +1,15 @@
+#' Convert IEA Energy Prices
+#'
+#' @author Falk Benke
+#' @importFrom madrat toolCountry2isocode
+convertIEA_EnergyPrices <- function(x) {
+  # remove regions
+  x <- x[c("OECDEUR", "OECDTOT"), , invert = TRUE]
+  getItems(x, dim = 1) <- toolCountry2isocode(getItems(x, dim = 1))
+
+  # remove quarterly data
+  x <- x[, !grepl("^[1-4]Q", getYears(x)), invert = TRUE]
+
+  x <- toolCountryFill(x, NA, verbosity = 2)
+  return(x)
+}

R/readIEA_EnergyPrices.R

@@ -0,0 +1,17 @@
+#' Read IEA Energy Prices
+#'
+#' Read-in an IEA Energy Prices file as magpie object
+#'
+#' @author Falk Benke
+#' @importFrom data.table
+#' @importFrom madrat as.magpie
+readIEA_EnergyPrices <- function() {
+  data <- data.table::fread(
+    file = file.path("2022", "EPT_prices_USD.TXT"),
+    col.names = c("SECTOR", "COUNTRY", "PRODUCT", "UNIT", "TIME", "value"),
+    colClasses = c("character", "character", "character", "character", "character", "numeric"),
+    sep = " ", stringsAsFactors = FALSE, na.strings = c("x", "..", "c"), skip = 0, showProgress = FALSE
+  )
+
+  return(as.magpie(data, spatial = 2, temporal = 5))
+}