How can I apply the spell checker function to a large data set?

Question

I have a spell check function( Peter Novig\'s spell correction) that works on small data frames but for data frames with 5000 words it takes a long time to run and I stop the pr