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")