R/toolGetUnitDollar.R

pik-piam · Jul 25, 2024 · 95eb981 · 95eb981
1 parent bb9451d
commit 95eb981
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/R/toolGetUnitDollar.R b/R/toolGetUnitDollar.R
@@ -0,0 +1,8 @@
+toolGetUnitDollar <- function(returnOnlyBase = FALSE, inPPPP = TRUE) {
+  base <- 2017
+  if (returnOnlyBase) {
+    return(base)
+  }
+  pppOrMer <- if (inPPPP) " Int$PPP" else " US$MER"
+  paste0("constant ", base, pppOrMer)
+}