Not sure if it'll work but try, replace(col,' ', ' ') <- Replace two spaces with one space.
That way if you start with 3 spaces, it should take the 1st two and make them one space, leaving you with two in a row. Question is will it take that new space w/ the old space and make it one as well.
Also, you could look into writing a "user defined function" to do this. You can actually write your own functions similar to replace.