R/batch.possSpells.fnc.R

batch.possSpells.fnc <-
function(fn=list.files(pattern=".*\\.rda")){
  for(file in fn){
    sink(file=paste(gsub("(.*)\\.rda","\\1",file),"_log.txt",sep=""),split=TRUE)
    cat("loading file",file,"\n")
    load(file)
    possible.spellings=possSpells.fnc(words=words)
    write(possible.spellings,file=paste(gsub("(.*)\\.rda","\\1",file),".txt",sep=""))
    sink(file=NULL)
  }
}

Try the AllPossibleSpellings package in your browser

Any scripts or data that you put into this service are public.

AllPossibleSpellings documentation built on May 1, 2019, 7:50 p.m.