Clean up very long list of company names - apply function on each row of data.table

Question

I have a data.table with company names and address information. I want to remove legal entities and the most common words from the company name. Therefore I wrote a function