-# #1: redirect spells
-setwd("~/data/wp-enwiki-redir-spells/")
-redirect.spells <- do.call("rbind", lapply(list.files(), function (x) {load(x); return(redirect.spells)}))
-
-setwd("~/data/rdata")
-save(redirect.spells, file="redirect_spells.RData")
-