From 0f0cf080e5f46dd06086a6de771eb0f0c34e6da4 Mon Sep 17 00:00:00 2001
From: Benjamin Mako Hill <mako@atdot.cc>
Date: Tue, 24 Jun 2014 14:51:34 -0700
Subject: [PATCH] fix code based on fail test run

---
 02-generate_spells.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/02-generate_spells.R b/02-generate_spells.R
index dc5850b..c2a2188 100644
--- a/02-generate_spells.R
+++ b/02-generate_spells.R
@@ -1,9 +1,12 @@
 source("redirect_tools.R")
 
+cur.dir <- getwd()
+
 # 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")
 
-- 
2.39.5