From 14b03fb3a955ee51840c25d097fb5eb498394b82 Mon Sep 17 00:00:00 2001
From: Daria Zenkova <darya.nightmare@gmail.com>
Date: Thu, 8 Sep 2016 17:51:25 +0300
Subject: [PATCH] now images are taken from tmp working directory

---
 R/pcaPlot.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/pcaPlot.R b/R/pcaPlot.R
index 67a4a82..033fd2b 100644
--- a/R/pcaPlot.R
+++ b/R/pcaPlot.R
@@ -65,11 +65,11 @@ pcaPlot <- function(es, columns=c(), rows=c(), c1, c2, size="", colour="", label
     g <- g + geom_text_repel(aes_string(label=label))
     
   }
-  f <- tempfile(pattern="plot",tmpdir="~/morpheus.js/tmp",fileext=".svg")
+  f <- tempfile(pattern="plot",tmpdir=getwd(),fileext=".svg")
   ggsave(f, g)
   
   
   
   print(capture.output(str(g)))
-  return(basename(f))
+  return(f)
 }
-- 
GitLab