From 4a3c9f005928416f21e39ffe21dc5caa19c30c28 Mon Sep 17 00:00:00 2001
From: Johannes Koch <jokoch@pik-potsdam.de>
Date: Wed, 13 Nov 2024 09:26:15 +0100
Subject: [PATCH] Set price level ratio years and names to NULL

---
 R/calcRatioPPP2MER.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/R/calcRatioPPP2MER.R b/R/calcRatioPPP2MER.R
index be2e520..0f4f5d1 100644
--- a/R/calcRatioPPP2MER.R
+++ b/R/calcRatioPPP2MER.R
@@ -16,6 +16,9 @@ calcRatioPPP2MER <- function(when = 2017) {
   data <- readSource("WDI", "PA.NUS.PPPC.RF")[, when, ]
   # Replace 0s with 1s. This was done previously. Other solutions here should be taken into consideration.
   data[data == 0] <- 1
+  # Set names and years to NULL, for GAMS interface to work.
+  getNames(data) <- NULL
+  getYears(data) <- NULL
 
   weight <- calcOutput("GDPPast", aggregate = FALSE, years = when)