Replace missing PPPs by MERs instead of with 1

R/adapt_source.R

@@ -129,10 +129,12 @@ adapt_source <- function(gdp, source, with_regions, replace_NAs, require_year_co
       dplyr::arrange(.data$iso3c, .data$year) %>%
       dplyr::select(-"gd")
 
-    # Replace missing MER and PPP values with US values (=1)
-    source_adapted <- source_adapted %>%
-      tidyr::replace_na(list("MER (LCU per US$)" = 1,
-                             "PPP conversion factor, GDP (LCU per international $)" = 1))
+    # If there is no PPP data whatsoever for the country, use MERs
+    source_adapted <- source_adapted  %>%
+      dplyr::mutate("PPP conversion factor, GDP (LCU per international $)" =
+                      dplyr::if_else(is.na(.data$`PPP conversion factor, GDP (LCU per international $)`),
+                                     .data$`MER (LCU per US$)`,
+                                     .data$`PPP conversion factor, GDP (LCU per international $)`))
 
     # If there is no deflator data whatsoever for the country, use US values
     ec <- dplyr::group_by(source_adapted, .data$iso3c) %>%