fix code based on fail test run
[redirect-tools] / 02-generate_spells.R
1 source("redirect_tools.R")
2
3 cur.dir <- getwd()
4
5 # save the run number
6 setwd(redirect.data.dir)
7 redirect.spells <- filename.to.spells(list.files())
8
9 setwd(cur.dir)
10 setwd(spells.data.dir)
11 save(redirect.spells, file="redirect_spells.RData")
12
13 write.csv(redirect.spells, file="redirect_spells.tsv", sep="\t"
14                  fileEncoding="UTF-8", row.names=FALSE)
15
16 library(foreign)
17 write.dta(redirect.spells, file="redirect_spells.dta")
18
19

Benjamin Mako Hill || Want to submit a patch?