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
+}