From 4616a780130d35f62d5d0ca3445c6fb2156ca866 Mon Sep 17 00:00:00 2001
From: Janis Pagel <janis.pagel@ims.uni-stuttgart.de>
Date: Thu, 8 Oct 2020 14:05:31 +0200
Subject: [PATCH] Add option to set datadir using environment variable

---
 R/zzz.R | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/R/zzz.R b/R/zzz.R
index 77d3de6..2e39da7 100644
--- a/R/zzz.R
+++ b/R/zzz.R
@@ -1,5 +1,9 @@
 .onLoad <- function(libname, pkgname) {
-  dataDirectory <- file.path(path.expand("~"),"QuaDramA","Data2")
+  if (!Sys.getenv(c("QUADRAMA_DIR")) == "") {
+    dataDirectory <- Sys.getenv(c("QUADRAMA_DIR"))
+  } else {
+    dataDirectory <- file.path(path.expand("~"),"QuaDramA","Data2")
+  }
   collectionDirectory <- file.path(dataDirectory,"collections")
   options(qd.datadir=dataDirectory)
   options(qd.collectionDirectory=collectionDirectory)
@@ -7,4 +11,4 @@
 
 .onAttach <- function(libname, pkgname) {
   packageStartupMessage(paste("DramaAnalysis",utils::packageVersion("DramaAnalysis")))
-}
\ No newline at end of file
+}