Convert To Proper Case Except If It's A TLA In R

Question

I HAVE A SERIES OF CHARACTER VALUES THAT LOOK LIKE THIS. I Want Them To Look Like This.

I have a set of words however that, when matched exactly, should remain as the