4 # read in the redirect spells
5 setwd(redirect.data.dir)
6 redirect.spells <- rbindlist(lapply(list.files(), function (x) {load(x); return(redirect.spells)}))
8 # write out the redirect spells in a few formats
10 save(redirect.spells, file="redirect_spells.RData")