fix code based on fail test run

diff --git a/02-generate_spells.R b/02-generate_spells.R
index dc5850b5775b314ed9602d3695bc680ae498fc77..c2a21884025d363a126903e2a6c7ff91ed9fb3a3 100644 (file)
--- a/02-generate_spells.R
+++ b/02-generate_spells.R
@@ -1,9 +1,12 @@
 source("redirect_tools.R")
 
 source("redirect_tools.R")
 

+cur.dir <- getwd()
+

 # save the run number
 setwd(redirect.data.dir)
 redirect.spells <- filename.to.spells(list.files())
 
 # save the run number
 setwd(redirect.data.dir)
 redirect.spells <- filename.to.spells(list.files())
 

+setwd(cur.dir)

 setwd(spells.data.dir)
 save(redirect.spells, file="redirect_spells.RData")
 
 setwd(spells.data.dir)
 save(redirect.spells, file="redirect_spells.RData")