projects.mako.cc - redirect-tools/blob - example/03-assemble_redirect_spells.R

   1 source("CONFIG.R")
   2 library(data.table)
   3
   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)}))
   7
   8 # write out the redirect spells in a few formats
   9 setwd(output.data.dir)
  10 save(redirect.spells, file="redirect_spells.RData")
  11
  12