many improvements to the code to get it building from a dry run
[redirect-tools] / 02-generate_spells.R
1 source("redirect_tools.R")
2
3 # save the run number
4 setwd(redirect.data.dir)
5 redirect.spells <- filename.to.spells(list.files())
6
7 setwd(spells.data.dir)
8 save(redirect.spells, file="redirect_spells.RData")
9
10 write.csv(redirect.spells, file="redirect_spells.tsv", sep="\t"
11                  fileEncoding="UTF-8", row.names=FALSE)
12
13 library(foreign)
14 write.dta(redirect.spells, file="redirect_spells.dta")
15
16

Benjamin Mako Hill || Want to submit a patch?