From 3fc361f72c434a4c9d126c01385130be03367f48 Mon Sep 17 00:00:00 2001
From: Lennart Opitz <lopitz@fgcz.ethz.ch>
Date: Tue, 5 May 2020 11:49:14 +0200
Subject: [PATCH] make result folder for CountSpacer

---
 R/app-countSpacer.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/app-countSpacer.R b/R/app-countSpacer.R
index 30fbc4e62..1d0791239 100644
--- a/R/app-countSpacer.R
+++ b/R/app-countSpacer.R
@@ -9,7 +9,7 @@ ezMethodCountSpacer = function(input=NA, output=NA, param=NA){
   require(Biostrings)
   require(ShortRead)
   require(ggplot2)
-  
+  setwdNew(param[['name']])
   sampleName = input$getNames()
   param[['dictPath']] = list.files(file.path('/srv/GT/databases/GEML/sgRNA_Libs/',param[['dictPath']]), pattern = 'csv', full.names = TRUE)
   dict = ezRead.table(param[['dictPath']], header = FALSE, sep = ',', row.names = NULL)