X-Git-Url: https://projects.mako.cc/source/redirect-tools/blobdiff_plain/6afdb261da3e6b7fe8d122614f052644556a3095..94bd17bbb5059ab82da990a6488cbe6eb3d5c42d:/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
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")
+
+