projects.mako.cc - redirect-tools/blob - 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