From 95eb9813a9dedffa1d1cf37ae1c745802ad3e8d6 Mon Sep 17 00:00:00 2001
From: Falk Benke <falk.benke@pik-potsdam.de>
Date: Thu, 25 Jul 2024 17:17:00 +0200
Subject: [PATCH] R/toolGetUnitDollar.R

---
 R/toolGetUnitDollar.R | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 R/toolGetUnitDollar.R

diff --git a/R/toolGetUnitDollar.R b/R/toolGetUnitDollar.R
new file mode 100644
index 0000000..502cf8f
--- /dev/null
+++ 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)
+}