projects
/
redirect-tools
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
updated documentation after a readthrough
[redirect-tools]
/
02-generate_spells.R
diff --git
a/02-generate_spells.R
b/02-generate_spells.R
index dc5850b5775b314ed9602d3695bc680ae498fc77..528091d11c139ebdb8bce1ffc673244a303091cd 100644
(file)
--- a/
02-generate_spells.R
+++ b/
02-generate_spells.R
@@
-1,16
+1,17
@@
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")
-write.
csv(redirect.spells, file="redirect_spells.tsv", sep="\t"
+write.
table(redirect.spells, file="redirect_spells.tsv", sep="\t",
fileEncoding="UTF-8", row.names=FALSE)
library(foreign)
write.dta(redirect.spells, file="redirect_spells.dta")
fileEncoding="UTF-8", row.names=FALSE)
library(foreign)
write.dta(redirect.spells, file="redirect_spells.dta")
-
-
Benjamin Mako Hill
||
Want to submit a patch?