bugfix calculations with incineration rate of plastics as some years …

…had NAs
pik-piam · Jan 13, 2025 · e03cb14 · e03cb14
1 parent b08c197
commit e03cb14
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/reportEmi.R b/R/reportEmi.R
@@ -360,6 +360,9 @@ reportEmi <- function(gdx, output = NULL, regionSubsetList = NULL,
                                  spatial = 2,
                                  react = "silent")[,t,]
 
+  # replace NA by 0
+  pm_incinerationRate[is.na(pm_incinerationRate)] <- 0
+
   if (is.null(vm_nonIncineratedPlastics)) {
     vm_nonIncineratedPlastics <- (1-pm_incinerationRate) * v37_plasticWaste
   }