many improvements to the code to get it building from a dry run

[redirect-tools] / example / 03-assemble_redirect_spells.R

diff --git a/example/03-assemble_redirect_spells.R b/example/03-assemble_redirect_spells.R
new file mode 100644 (file)
index 0000000..697be80
--- /dev/null
+++ b/example/03-assemble_redirect_spells.R
@@ -0,0 +1,12 @@
+source("CONFIG.R")
+library(data.table)
+
+# read in the redirect spells
+setwd(redirect.data.dir)
+redirect.spells <- rbindlist(lapply(list.files(), function (x) {load(x); return(redirect.spells)}))
+
+# write out the redirect spells in a few formats
+setwd(output.data.dir)
+save(redirect.spells, file="redirect_spells.RData")
+
+