adjust replace_NAs parameter in unit conversion

pik-piam · Sep 3, 2024 · 775cee4 · 775cee4
1 parent a465f9a
commit 775cee4
Show file tree

Hide file tree

Showing 17 changed files with 19 additions and 19 deletions.
diff --git a/R/UNIDO.R b/R/UNIDO.R
@@ -265,7 +265,7 @@ convertUNIDO <- function(x, subtype = 'INDSTAT2')
               GDPuc::convertGDP(
                 unit_in = "constant 2005 US$MER",
                 unit_out = mrdrivers::toolGetUnitDollar(),
-                replace_NAs = c("linear", "with_USA")
+                replace_NAs = "with_USA"
               ) %>%
               return()
         }

diff --git a/R/calcBP.R b/R/calcBP.R
@@ -146,7 +146,7 @@ calcBP <- function() {
     gdp = x[, , "Price|Primary Energy|Oil (US$2023/GJ)"],
     unit_in = "constant 2022 US$MER",
     unit_out = mrdrivers::toolGetUnitDollar(),
-    replace_NAs = c("linear", "with_USA")
+    replace_NAs = "with_USA"
   )
 
   getNames(poil) <- gsub("\\$2023", "\\$2017", getNames(poil))
@@ -156,7 +156,7 @@ calcBP <- function() {
     gdp = x[, , c("Price|Primary Energy|Gas (US$/GJ)", "Price|Primary Energy|Coal (US$/GJ)")],
     unit_in = "current US$MER",
     unit_out = mrdrivers::toolGetUnitDollar(),
-    replace_NAs = c("linear", "with_USA")
+    replace_NAs =  "with_USA"
   )
 
   getNames(pcoalgas) <- gsub("\\$", "\\$2017", getNames(pcoalgas))

diff --git a/R/calcBiomassPrices.R b/R/calcBiomassPrices.R
@@ -34,7 +34,7 @@ calcBiomassPrices <- function() {
     gdp = x,
     unit_in = "constant 2005 US$MER",
     unit_out = mrdrivers::toolGetUnitDollar(),
-    replace_NAs = c("linear", "with_USA")
+    replace_NAs = "with_USA"
   )
 
   return(list(x           = x,

diff --git a/R/calcCO2Prices.R b/R/calcCO2Prices.R
@@ -10,7 +10,7 @@ calcCO2Prices <- function() {
     gdp = x,
     unit_in = "constant 2005 US$MER",
     unit_out = mrdrivers::toolGetUnitDollar(),
-    replace_NAs = c("linear", "with_USA")
+    replace_NAs = "with_USA"
   )
 
   # read data used for weight

diff --git a/R/calcCostsTradePeFinancial.R b/R/calcCostsTradePeFinancial.R
@@ -16,7 +16,7 @@ calcCostsTradePeFinancial <- function() {
     gdp = data,
     unit_in = "constant 2005 US$MER",
     unit_out = mrdrivers::toolGetUnitDollar(),
-    replace_NAs = c("linear", "with_USA")
+    replace_NAs = "with_USA"
   )
 
   w <- calcOutput("GDP", aggregate = FALSE)[, 2005, "gdp_SSP2"]

diff --git a/R/calcCostsWeathering.R b/R/calcCostsWeathering.R
@@ -15,7 +15,7 @@ calcCostsWeathering <- function() {
     gdp = costs,
     unit_in = "constant 2005 US$MER",
     unit_out = mrdrivers::toolGetUnitDollar(),
-    replace_NAs = c("linear", "with_USA")
+    replace_NAs = "with_USA"
   )
 
   weight <- costs # get the same dimensions of the data

diff --git a/R/calcDiffInvestCosts.R b/R/calcDiffInvestCosts.R
@@ -165,7 +165,7 @@ calcDiffInvestCosts <- function(subtype) {
       gdp = x_new,
       unit_in = "constant 2015 US$MER",
       unit_out = mrdrivers::toolGetUnitDollar(),
-      replace_NAs = c("linear", "with_USA")
+      replace_NAs = "with_USA"
     )
 
     return(list(

diff --git a/R/calcEU_ReferenceScenario.R b/R/calcEU_ReferenceScenario.R
@@ -7,7 +7,7 @@ calcEU_ReferenceScenario <- function() {
     gdp = euRef2016[, , "Price|Secondary Energy|Electricity (EUR2013/GJ)"],
     unit_in = "constant 2013 €",
     unit_out = mrdrivers::toolGetUnitDollar(),
-    replace_NAs = c("linear", "with_USA")
+    replace_NAs = "with_USA"
   )
 
   getNames(tmp) <- "Price|Secondary Energy|Electricity (US$2017/GJ)"
@@ -23,7 +23,7 @@ calcEU_ReferenceScenario <- function() {
     gdp = euRef2020[, , "Price|Secondary Energy|Electricity (EUR2015/GJ)"],
     unit_in = "constant 2015 €",
     unit_out = mrdrivers::toolGetUnitDollar(),
-    replace_NAs = c("linear", "with_USA")
+    replace_NAs = "with_USA"
   )
 
   getNames(tmp) <- "Price|Secondary Energy|Electricity (US$2017/GJ)"

diff --git a/R/calcEconometricEmiParameter.R b/R/calcEconometricEmiParameter.R
@@ -36,7 +36,7 @@ calcEconometricEmiParameter <- function() {
     gdp = p4,
     unit_in = "constant 2005 US$MER",
     unit_out = mrdrivers::toolGetUnitDollar(),
-    replace_NAs = c("linear", "with_USA")
+    replace_NAs = "with_USA"
   )
 
   # combine all parameters

diff --git a/R/calcINNOPATHS.R b/R/calcINNOPATHS.R
@@ -38,7 +38,7 @@ calcINNOPATHS <- function() {
     gdp = tmp,
     unit_in = "constant 2015 €",
     unit_out = mrdrivers::toolGetUnitDollar(),
-    replace_NAs = c("linear", "with_USA")
+    replace_NAs = "with_USA"
   )
 
   x <- mbind(x, tmp)

diff --git a/R/calcIndustry_EEK.R b/R/calcIndustry_EEK.R
@@ -111,7 +111,7 @@ calcIndustry_EEK <- function(kap) {
     dplyr::rename("value" = "EEK") %>%
     GDPuc::convertGDP(unit_in = "constant 2012 US$MER",
                       unit_out = mrdrivers::toolGetUnitDollar(),
-                      replace_NAs = c("linear", "with_USA")) %>%
+                      replace_NAs = "with_USA") %>%
     dplyr::mutate(value = .data$value * 1e-3) %>%
     dplyr::rename("EEK" = "value")
 

diff --git a/R/calcJRC_IDEES.R b/R/calcJRC_IDEES.R
@@ -83,7 +83,7 @@ calcJRC_IDEES <- function(subtype) {
       gdp = tmp,
       unit_in = "constant 2010 €",
       unit_out = mrdrivers::toolGetUnitDollar(),
-      replace_NAs = c("linear", "with_USA")
+      replace_NAs = "with_USA"
     )
     x <- mbind(x, tmp)
   }

diff --git a/R/calcTaxConvergence.R b/R/calcTaxConvergence.R
@@ -22,7 +22,7 @@ calcTaxConvergence <- function() {
     gdp = taxConvergence,
     unit_in = "constant 2005 US$MER",
     unit_out = mrdrivers::toolGetUnitDollar(),
-    replace_NAs = c("linear", "with_USA")
+    replace_NAs = "with_USA"
   )
 
   return(list(

diff --git a/R/calcTaxLimits.R b/R/calcTaxLimits.R
@@ -49,7 +49,7 @@ calcTaxLimits <- function(subtype) {
     gdp = output,
     unit_in = "constant 2005 US$MER",
     unit_out = mrdrivers::toolGetUnitDollar(),
-    replace_NAs = c("linear", "with_USA")
+    replace_NAs = "with_USA"
   )
 
   # Return tax convergence levels aggregated to selected REMIND regions

diff --git a/R/calcTaxXport.R b/R/calcTaxXport.R
@@ -11,7 +11,7 @@ calcTaxXport <- function() {
     gdp = x,
     unit_in = "constant 2005 US$MER",
     unit_out = mrdrivers::toolGetUnitDollar(),
-    replace_NAs = c("linear", "with_USA")
+    replace_NAs = "with_USA"
   )
 
   x <- time_interpolate(x, c(seq(2010, 2150, 5)),

diff --git a/R/convertGEA2012.R b/R/convertGEA2012.R
@@ -63,7 +63,7 @@ convertGEA2012 <- function(x, subtype) {
       gdp = out[, , c("xi1", "xi2")],
       unit_in = "constant 2005 US$MER",
       unit_out = mrdrivers::toolGetUnitDollar(),
-      replace_NAs = c("linear", "with_USA")
+      replace_NAs = "with_USA"
     )
 
     out <- mbind(tmp, out[, , c("xi1", "xi2"), invert = TRUE])

diff --git a/R/convertIIASA_subs_taxes.R b/R/convertIIASA_subs_taxes.R
@@ -30,7 +30,7 @@ convertIIASA_subs_taxes <- function(x, subtype) {
       gdp = x,
       unit_in = "constant 2005 US$MER",
       unit_out = mrdrivers::toolGetUnitDollar(),
-      replace_NAs = c("linear", "with_USA")
+      replace_NAs = "with_USA"
     )
   }