R string extract pattern

I have a question regarding to extract letters from a string For example I have in R one vector like:

America, Asia, Europe

I want to get all of the upper letters in this format like

AAE or A, A, E

How can I do this with regmatches and regexpr?